development/git
development/git
1
0
Fork 0
mirror of https://github.com/git/git synced 2024-11-05 18:59:29 +00:00
Code Issues Projects Releases Packages Wiki Activity

Merge branch 'js/mingw-tests'

Browse source 
* js/mingw-tests:
  t9700: fix test for perl older than 5.14
This commit is contained in:
Junio C Hamano 2016-03-04 10:14:39 -08:00
commit 2e7b6afcba
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
t/t9700/test.pl
View file

@ -17,6 +17,12 @@ BEGIN
use Cwd;
use File::Basename;
sub adjust_dirsep {
my $path = shift;
$path =~ s{\\}{/}g;
return $path;
}
BEGIN { use_ok('Git') }
# set up
@ -33,7 +39,7 @@ BEGIN
is($r->config_int("test.nonexistent"), undef, "config_int: nonexistent");
ok($r->config_bool("test.booltrue"), "config_bool: true");
ok(!$r->config_bool("test.boolfalse"), "config_bool: false");
is($r->config_path("test.path") =~ s/\\/\//gr, $r->config("test.pathexpanded"),
is(adjust_dirsep($r->config_path("test.path")), $r->config("test.pathexpanded"),
"config_path: ~/foo expansion");
is_deeply([$r->config_path("test.pathmulti")], ["foo", "bar"],
"config_path: multiple values");