diff options
author | Jacob Bachmeyer <jcb62281@gmail.com> | 2018-11-15 18:21:18 +1100 |
---|---|---|
committer | Ben Elliston <bje@gnu.org> | 2018-11-15 18:21:18 +1100 |
commit | c0310e95ba22fe548fe270b4af51065aceb17dcb (patch) | |
tree | b26d1eb04865a28dedf511b00fca6932e463b1f3 | |
parent | d6c157c0a8498dc5ae49f40f47c29f72369d05e2 (diff) | |
download | dejagnu-c0310e95ba22fe548fe270b4af51065aceb17dcb.zip dejagnu-c0310e95ba22fe548fe270b4af51065aceb17dcb.tar.gz dejagnu-c0310e95ba22fe548fe270b4af51065aceb17dcb.tar.bz2 |
* runtest.exp (load_tool_init): Search for tool init file instead
of assuming exactly one location.
Signed-off-by: Ben Elliston <bje@gnu.org>
-rw-r--r-- | ChangeLog | 5 | ||||
-rw-r--r-- | runtest.exp | 24 |
2 files changed, 15 insertions, 14 deletions
@@ -1,3 +1,8 @@ +2018-11-15 Jacob Bachmeyer <jcb62281@gmail.com> + + * runtest.exp (load_tool_init): Search for tool init file instead + of assuming exactly one location. + 2018-11-15 Ben Elliston <bje@gnu.org> * runtest.exp (load_lib): Whitespace fix. diff --git a/runtest.exp b/runtest.exp index c7beeb3..5ced8ab 100644 --- a/runtest.exp +++ b/runtest.exp @@ -929,25 +929,21 @@ proc load_tool_init { file } { global srcdir global loaded_libs - if {[info exists loaded_libs($file)]} { + if {[info exists loaded_libs(tool/$file)]} { return } - set loaded_libs($file) "" - - verbose "Looking for tool init file $srcdir/lib/$file" + set loaded_libs(tool/$file) "" - if {[file exists [file join ${srcdir} lib $file]]} { - verbose "Loading library file ${srcdir}/lib/$file" - if { [catch "uplevel #0 source ${srcdir}/lib/$file"] == 1 } { - send_error "ERROR: tcl error sourcing library file ${srcdir}/lib/$file.\n" - global errorInfo - if {[info exists errorInfo]} { - send_error "$errorInfo\n" - } - exit 1 - } + if { [lindex [file split $srcdir] end] != "testsuite" } { + lappend searchpath [file join $srcdir testsuite lib tool] + lappend searchpath [file join $srcdir testsuite lib] } else { + lappend searchpath [file join $srcdir lib tool] + } + lappend searchpath [file join $srcdir lib] + + if { ![search_and_load_file "tool init file" [list $file] $searchpath] } { warning "Couldn't find tool init file" } } |