about summary refs log tree commit diff
path: root/third_party/git/t/Git-SVN/Utils/add_path_to_url.t
diff options
context:
space:
mode:
Diffstat (limited to 'third_party/git/t/Git-SVN/Utils/add_path_to_url.t')
-rwxr-xr-xthird_party/git/t/Git-SVN/Utils/add_path_to_url.t27
1 files changed, 0 insertions, 27 deletions
diff --git a/third_party/git/t/Git-SVN/Utils/add_path_to_url.t b/third_party/git/t/Git-SVN/Utils/add_path_to_url.t
deleted file mode 100755
index bfbd87845f77..000000000000
--- a/third_party/git/t/Git-SVN/Utils/add_path_to_url.t
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-
-use Test::More 'no_plan';
-
-use Git::SVN::Utils qw(
-	add_path_to_url
-);
-
-# A reference cannot be a hash key, so we use an array.
-my @tests = (
-	["http://x.com", "bar"]			=> 'http://x.com/bar',
-	["http://x.com", ""]			=> 'http://x.com',
-	["http://x.com/foo/", undef]		=> 'http://x.com/foo/',
-	["http://x.com/foo/", "/bar/baz/"]	=> 'http://x.com/foo/bar/baz/',
-	["http://x.com", 'per%cent']		=> 'http://x.com/per%25cent',
-);
-
-while(@tests) {
-	my($have, $want) = splice @tests, 0, 2;
-
-	my $args = join ", ", map { qq['$_'] } map { defined($_) ? $_ : 'undef' } @$have;
-	my $name = "add_path_to_url($args) eq $want";
-	is add_path_to_url(@$have), $want, $name;
-}