merge(third_party/git): Merge squashed git subtree at v2.23.0
Merge commit '1b593e1ea4' as 'third_party/git'
This commit is contained in:
commit
7ef0d62730
3629 changed files with 1139935 additions and 0 deletions
32
third_party/git/t/Git-SVN/Utils/join_paths.t
vendored
Executable file
32
third_party/git/t/Git-SVN/Utils/join_paths.t
vendored
Executable file
|
|
@ -0,0 +1,32 @@
|
|||
#!/usr/bin/env perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use Test::More 'no_plan';
|
||||
|
||||
use Git::SVN::Utils qw(
|
||||
join_paths
|
||||
);
|
||||
|
||||
# A reference cannot be a hash key, so we use an array.
|
||||
my @tests = (
|
||||
[] => '',
|
||||
["/x.com", "bar"] => '/x.com/bar',
|
||||
["x.com", ""] => 'x.com',
|
||||
["/x.com/foo/", undef, "bar"] => '/x.com/foo/bar',
|
||||
["x.com/foo/", "/bar/baz/"] => 'x.com/foo/bar/baz/',
|
||||
["foo", "bar"] => 'foo/bar',
|
||||
["/foo/bar", "baz", "/biff"] => '/foo/bar/baz/biff',
|
||||
["", undef, "."] => '.',
|
||||
[] => '',
|
||||
|
||||
);
|
||||
|
||||
while(@tests) {
|
||||
my($have, $want) = splice @tests, 0, 2;
|
||||
|
||||
my $args = join ", ", map { qq['$_'] } map { defined($_) ? $_ : 'undef' } @$have;
|
||||
my $name = "join_paths($args) eq '$want'";
|
||||
is join_paths(@$have), $want, $name;
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue