* libjava.verify/verify.exp (gcj_verify_list_tests): Only change

	directory if new directory exists.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@69590 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libjava/testsuite/ChangeLog b/libjava/testsuite/ChangeLog
index 2e7d5d9..576318b 100644 (file)
--- 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 (file)
--- 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
 }