diff options
| -rw-r--r-- | libjava/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | libjava/testsuite/libjava.verify/verify.exp | 12 |
2 files changed, 12 insertions, 5 deletions
diff --git a/libjava/testsuite/ChangeLog b/libjava/testsuite/ChangeLog index 2e7d5d9..576318b 100644 --- a/libjava/testsuite/ChangeLog +++ b/libjava/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2003-07-19 Tom Tromey <tromey@redhat.com> + + * libjava.verify/verify.exp (gcj_verify_list_tests): Only change + directory if new directory exists. + 2003-07-13 Tom Tromey <tromey@redhat.com> * libjava.verify/verify.exp: Fixed variable init. diff --git a/libjava/testsuite/libjava.verify/verify.exp b/libjava/testsuite/libjava.verify/verify.exp index 456f3b6..76c9b00 100644 --- a/libjava/testsuite/libjava.verify/verify.exp +++ b/libjava/testsuite/libjava.verify/verify.exp @@ -11,12 +11,14 @@ set {gcj_verify_xfail(gij verify of subr.fail.jsr8)} 1 proc gcj_verify_list_tests {srcdir} { set result {} - set here [pwd] - cd $srcdir - foreach item [lsort [glob -nocomplain */*/*.class]] { - lappend result [file rootname $item] + if {[file exists $srcdir]} { + set here [pwd] + cd $srcdir + foreach item [lsort [glob -nocomplain */*/*.class]] { + lappend result [file rootname $item] + } + cd $here } - cd $here return $result } |