mirror of https://gitee.com/Nocallback/dejagnu.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
45 lines
1.2 KiB
45 lines
1.2 KiB
# 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
|
|
|