From cb9c9df37acf5ff8a452b5fe2eaf7ad6ff8bfb72 Mon Sep 17 00:00:00 2001 From: Jakub Narebski Date: Fri, 21 Oct 2011 20:42:44 +0200 Subject: Add simple test for Git::config_path() in t/t9700-perl-git.sh Tests "~/foo" path expansion and multiple values. Signed-off-by: Jakub Narebski Signed-off-by: Junio C Hamano --- t/t9700/test.pl | 4 ++++ 1 file changed, 4 insertions(+) (limited to 't/t9700') diff --git a/t/t9700/test.pl b/t/t9700/test.pl index 13ba96e21..3b9b48408 100755 --- a/t/t9700/test.pl +++ b/t/t9700/test.pl @@ -33,6 +33,10 @@ is($r->config_int("test.int"), 2048, "config_int: integer"); 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"), $r->config("test.pathexpanded"), + "config_path: ~/foo expansion"); +is_deeply([$r->config_path("test.pathmulti")], ["foo", "bar"], + "config_path: multiple values"); our $ansi_green = "\x1b[32m"; is($r->get_color("color.test.slot1", "red"), $ansi_green, "get_color"); # Cannot test $r->get_colorbool("color.foo")) because we do not -- cgit v1.2.1