From b249d2199711ced887de9ff6bc999b4a91143e5d Mon Sep 17 00:00:00 2001 From: Greg Hudson Date: Thu, 23 Oct 2014 12:30:42 -0400 Subject: [PATCH] Add test case for directory in profile path ticket: 8030 --- src/util/profile/prof_test1 | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/util/profile/prof_test1 b/src/util/profile/prof_test1 index d7117a65f4..87368d83d0 100644 --- a/src/util/profile/prof_test1 +++ b/src/util/profile/prof_test1 @@ -200,6 +200,16 @@ proc test4 {} { } profile_release $p + # Directly list the directory in the profile path and try again. + set p [profile_init_path $wd/test_include_dir] + set x [profile_get_values $p {{test section 1} bar}] + if $verbose { puts "Read $x from directory" } + if ![string equal $x "foo foo"] { + puts stderr, "Error: test4: Did not get expected result from directory." + exit 1 + } + profile_release $p + puts "OK: test4: include and includedir directives" } -- 2.47.3