diff options
Diffstat (limited to 'third_party/git/t/Git-SVN/Utils/add_path_to_url.t')
-rwxr-xr-x | third_party/git/t/Git-SVN/Utils/add_path_to_url.t | 27 |
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; -} |