From: Greg Hudson <ghudson@mit.edu>
Date: Thu, 23 Oct 2014 16:30:42 +0000 (-0400)
Subject: Add test case for directory in profile path
X-Git-Tag: krb5-1.14-alpha1~69
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=b249d2199711ced887de9ff6bc999b4a91143e5d;p=thirdparty%2Fkrb5.git

Add test case for directory in profile path

ticket: 8030
---

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"
 }