Merge tag 'l10n-2.28.0-rnd1' of https://www.github.com/git-l10n/git-po into master
[git] / t / Git-SVN / Utils / canonicalize_url.t
1 #!/usr/bin/env perl
2
3 # Test our own home rolled URL canonicalizer.  Test the private one
4 # directly because we can't predict what the SVN API is doing to do.
5
6 use strict;
7 use warnings;
8
9 use Test::More 'no_plan';
10
11 use Git::SVN::Utils;
12 my $canonicalize_url = \&Git::SVN::Utils::_canonicalize_url_ourselves;
13
14 my %tests = (
15         "http://x.com"                  => "http://x.com",
16         "http://x.com/"                 => "http://x.com",
17         "http://x.com/foo/bar"          => "http://x.com/foo/bar",
18         "http://x.com//foo//bar//"      => "http://x.com/foo/bar",
19         "http://x.com/  /%/"            => "http://x.com/%20%20/%25",
20 );
21
22 for my $arg (keys %tests) {
23         my $want = $tests{$arg};
24
25         is $canonicalize_url->($arg), $want, "canonicalize_url('$arg') => $want";
26 }