diff options
Diffstat (limited to 'testsuite')
-rw-r--r-- | testsuite/runtest.libs/load_lib.exp | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/testsuite/runtest.libs/load_lib.exp b/testsuite/runtest.libs/load_lib.exp deleted file mode 100644 index 21e2824..0000000 --- a/testsuite/runtest.libs/load_lib.exp +++ /dev/null @@ -1,45 +0,0 @@ -# test load_lib - -# Verify that load_lib searches for a lib not only in its default -# search_dirs but also in the libdirs list of directories. - -# load_lib f exits with a failure if it does not find f. -# Arrange for the testcase to handle this: -rename exit saved_exit -proc exit { args } { return [lindex $args 0] } - -# The test right below is supposed to fail. -# Prettify default output by only printing the message in verbose mode. -rename send_error saved_send_error -proc send_error { args } { - verbose [lindex $args 0] 2 -} - -if { [ load_lib "subfile1" ] != 1} { - fail "load_lib subfile1 found per default" -} else { - pass "load_lib subfile1 not found per default" -} - -rename send_error "" -rename saved_send_error send_error - -set extradir [testsuite file -source -test "topdir" "subdir1"] -global libdirs -lappend libdirs $extradir -verbose "now added libdirs: $libdirs" 2 - -# In this testcase, we did not exit 1 from load_lib as per above -# rename. subfile1 thus is in the loaded_libs LUT and we won't walk -# the search_dirs again. Use another file for testing the lappend -# worked. - -if { [load_lib "subfile2"] eq ""} { - pass "load_lib subfile2 loaded" -} else { - fail "load_lib subfile2 not found" -} - -# cleanup after us -rename exit "" -rename saved_exit exit |