diff options
Diffstat (limited to 'third_party/git/t/Git-SVN/Utils/canonicalize_url.t')
-rwxr-xr-x | third_party/git/t/Git-SVN/Utils/canonicalize_url.t | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/third_party/git/t/Git-SVN/Utils/canonicalize_url.t b/third_party/git/t/Git-SVN/Utils/canonicalize_url.t deleted file mode 100755 index 05795ab636d6..000000000000 --- a/third_party/git/t/Git-SVN/Utils/canonicalize_url.t +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/env perl - -# Test our own home rolled URL canonicalizer. Test the private one -# directly because we can't predict what the SVN API is doing to do. - -use strict; -use warnings; - -use Test::More 'no_plan'; - -use Git::SVN::Utils; -my $canonicalize_url = \&Git::SVN::Utils::_canonicalize_url_ourselves; - -my %tests = ( - "http://x.com" => "http://x.com", - "http://x.com/" => "http://x.com", - "http://x.com/foo/bar" => "http://x.com/foo/bar", - "http://x.com//foo//bar//" => "http://x.com/foo/bar", - "http://x.com/ /%/" => "http://x.com/%20%20/%25", -); - -for my $arg (keys %tests) { - my $want = $tests{$arg}; - - is $canonicalize_url->($arg), $want, "canonicalize_url('$arg') => $want"; -} |