2179b6727e
These scripts are not run directly as part of a normal build, so no one noticed that they did not have the +x bit. Mark them executable to make it more obvious that they can be run directly (when debugging, for example). Signed-off-by: Jonathan Nieder <jrnieder@gmail.com> Signed-off-by: Junio C Hamano <gitster@pobox.com>
24 lines
462 B
Perl
Executable File
24 lines
462 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More 'no_plan';
|
|
|
|
use Git::SVN::Utils;
|
|
my $collapse_dotdot = \&Git::SVN::Utils::_collapse_dotdot;
|
|
|
|
my %tests = (
|
|
"foo/bar/baz" => "foo/bar/baz",
|
|
".." => "..",
|
|
"foo/.." => "",
|
|
"/foo/bar/../../baz" => "/baz",
|
|
"deeply/.././deeply/nested" => "./deeply/nested",
|
|
);
|
|
|
|
for my $arg (keys %tests) {
|
|
my $want = $tests{$arg};
|
|
|
|
is $collapse_dotdot->($arg), $want, "_collapse_dotdot('$arg') => $want";
|
|
}
|