Merge branch 'js/grep-patterntype-config'
[git] / t / Git-SVN / Utils / collapse_dotdot.t
1 #!/usr/bin/env perl
2
3 use strict;
4 use warnings;
5
6 use Test::More 'no_plan';
7
8 use Git::SVN::Utils;
9 my $collapse_dotdot = \&Git::SVN::Utils::_collapse_dotdot;
10
11 my %tests = (
12         "foo/bar/baz"                   => "foo/bar/baz",
13         ".."                            => "..",
14         "foo/.."                        => "",
15         "/foo/bar/../../baz"            => "/baz",
16         "deeply/.././deeply/nested"     => "./deeply/nested",
17 );
18
19 for my $arg (keys %tests) {
20         my $want = $tests{$arg};
21
22         is $collapse_dotdot->($arg), $want, "_collapse_dotdot('$arg') => $want";
23 }