diff options
| author | Jacob Bachmeyer <jcb62281+dev@gmail.com> | 2020-06-01 21:22:11 -0500 |
|---|---|---|
| committer | Jacob Bachmeyer <jcb62281+dev@gmail.com> | 2020-06-01 21:22:11 -0500 |
| commit | ad035c009d7cb33970ef95533d06c671c359ca34 (patch) | |
| tree | f7b389edc5901406e5ec839fe95919daf672fe5e /runtest.exp | |
| parent | d37c15b4d569a3d70493653efe82a78c3550e903 (diff) | |
| download | dejagnu-ad035c009d7cb33970ef95533d06c671c359ca34.zip dejagnu-ad035c009d7cb33970ef95533d06c671c359ca34.tar.gz dejagnu-ad035c009d7cb33970ef95533d06c671c359ca34.tar.bz2 | |
Add verbose output for testsuite search
Diffstat (limited to 'runtest.exp')
| -rw-r--r-- | runtest.exp | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/runtest.exp b/runtest.exp index 5a3cf54..4c1c6ba 100644 --- a/runtest.exp +++ b/runtest.exp @@ -661,6 +661,17 @@ if { $objdir eq "." || $objdir eq $srcdir } { # The DejaGnu manual has always stated that a testsuite must be in a # testsuite/ subdirectory. +verbose "Finding testsuite ..." 3 +verbose "\$base_dir -> $base_dir" 3 +verbose "\$srcdir -> $srcdir" 3 +verbose "\$objdir -> $objdir" 3 +verbose [concat "file tail \$srcdir -> " [file tail $srcdir]] 3 +verbose [concat "file join \$srcdir testsuite -> " \ + [file join $srcdir testsuite]] 3 +verbose [concat "file isdirectory [file join \$srcdir testsuite] -> " \ + [file isdirectory [file join $srcdir testsuite]]] 3 +verbose [concat "file tail \$base_dir -> " [file tail $base_dir]] 3 + if { [file tail $srcdir] eq "testsuite" } { # Subdirectory case -- $srcdir includes testsuite/ set testsuitedir $srcdir @@ -686,6 +697,8 @@ if { [file tail $srcdir] eq "testsuite" } { } } +verbose "Finding testsuite ... done" 3 + # Well, this just demonstrates the real problem... if {![info exists tool_root_dir]} { set tool_root_dir [file dirname $objdir] |