aboutsummaryrefslogtreecommitdiff
path: root/contrib/bluegnu2.0.3/testsets/BlueGnu/locateFile.itcl
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/bluegnu2.0.3/testsets/BlueGnu/locateFile.itcl')
-rw-r--r--contrib/bluegnu2.0.3/testsets/BlueGnu/locateFile.itcl46
1 files changed, 0 insertions, 46 deletions
diff --git a/contrib/bluegnu2.0.3/testsets/BlueGnu/locateFile.itcl b/contrib/bluegnu2.0.3/testsets/BlueGnu/locateFile.itcl
deleted file mode 100644
index 9f629e9..0000000
--- a/contrib/bluegnu2.0.3/testsets/BlueGnu/locateFile.itcl
+++ /dev/null
@@ -1,46 +0,0 @@
-#
-# 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\]<"
-}
-