1 files changed, 46 insertions, 0 deletions
diff --git a/contrib/bluegnu2.0.3/testsets/BlueGnu/locateFile.itcl b/contrib/bluegnu2.0.3/testsets/BlueGnu/locateFile.itcl
new file mode 100644
index 0000000..9f629e9
--- /dev/null
+++ b/contrib/bluegnu2.0.3/testsets/BlueGnu/locateFile.itcl
@@ -0,0 +1,46 @@
+#
+# Unit test for command: locateFile
+#
+
+note "[locateFile A.itcl]"
+
+
+if {[regexp {verbose.itcl$} [locateFile verbose.itcl]]} {
+    pass "Found verbose.itcl as >[locateFile verbose.itcl]<"
+} else {
+    fail "Couldn't find verbose.itcl"
+}
+if {[regexp {lib/bug.exp$} [locateFile bug.exp lib]]} {
+    pass "Found bug.exp as >[locateFile bug.exp lib]<"
+} else {
+    fail "Couldn't find bug.exp"
+}
+if {[regexp {testsuite/T/test_004.exp$} \
+	[locateFile test_004.exp testsuite/T]]} {
+    pass "Found test_004.exp as >[locateFile test_004.exp testsuite/T]<"
+} else {
+    fail "Couldn't find test_004.exp as\
+	    >\[locateFile test_004.exp testsuite/T\]<"
+}
+if {[regexp {testsuite/T/test_004.exp$} \
+	[locateFile test_004.exp testsuite]]} {
+    pass "Found test_004.exp as >[locateFile test_004.exp testsuite]<"
+} else {
+    fail "Couldn't find test_004.exp as\
+	    >\[locateFile test_004.exp testsuite\]<"
+}
+if {[regexp {testsuite/T/test_004.exp$} \
+	[locateFile test_004.exp T]]} {
+    pass "Found test_004.exp as >[locateFile test_004.exp T]<"
+} else {
+    fail "Couldn't find test_004.exp as\
+	    >\[locateFile test_004.exp T\]<"
+}
+if {[regexp {testsuite/T/test_004.exp$} \
+	[locateFile test_004.exp]]} {
+    pass "Found test_004.exp as >[locateFile test_004.exp]<"
+} else {
+    fail "Couldn't find test_004.exp as\
+	    >\[locateFile test_004.exp testsuite\]<"
+}
+