diff options
Diffstat (limited to 'contrib/bluegnu2.0.3/testsets/BlueGnu/locateFile.itcl')
-rw-r--r-- | contrib/bluegnu2.0.3/testsets/BlueGnu/locateFile.itcl | 46 |
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\]<" +} + |