[thirdparty/git.git] / t / Git-SVN / Utils / collapse_dotdot.t

#!/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";
}
Commit	Line	Data
280ad88a MS	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	}