diff options
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | runtest.exp | 13 |
2 files changed, 17 insertions, 0 deletions
@@ -1,3 +1,7 @@ +2020-06-01 Jacob Bachmeyer <jcb62281+dev@gmail.com> + + * runtest.exp: Describe search for testsuite at verbose level 3. + 2020-05-28 Jacob Bachmeyer <jcb62281+dev@gmail.com> PR 41587 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] |