* misc.exp: If executable does not exist, issue warning and skip

	remaining tests, like other chill tests.

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index 8446b095ebb5507b163cdd1cd929279e39ee89d8..049b54f3e08d27dabaeaac9bc7d6bfc6a53c1b27 100644 (file)
--- a/gdb/testsuite/gdb.chill/ChangeLog
+++ b/gdb/testsuite/gdb.chill/ChangeLog
@@ -1,3 +1,8 @@
+Thu Mar  2 06:17:41 1995  Jim Kingdon  (kingdon@lioth.cygnus.com)
+
+       * misc.exp: If executable does not exist, issue warning and skip
+       remaining tests, like other chill tests.
+
 Wed Mar  1 20:28:42 1995  Per Bothner  <bothner@kalessin.cygnus.com>
 
        * misc.ch, misc.exp, Makefile.in:  New test case.

diff --git a/gdb/testsuite/gdb.chill/misc.exp b/gdb/testsuite/gdb.chill/misc.exp
index a1f3123aea419dbffce32f00b8f7faa2e296b872..a12bdb88e846bb8a98a4a6b616df495381d7e767 100644 (file)
--- a/gdb/testsuite/gdb.chill/misc.exp
+++ b/gdb/testsuite/gdb.chill/misc.exp
@@ -36,7 +36,8 @@ proc set_lang_chill {} {
     global binfile objdir subdir
 
     if ![file exists $objdir/$subdir/$binfile] then {
-       return 0
+       warning "$binfile does not exist; tests suppressed."
+       return 1
     }
     verbose "loading file '$objdir/$subdir/$binfile'"
     gdb_load $objdir/$subdir/$binfile