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

remaining tests, like other chill tests.
This commit is contained in:
Jim Kingdon 1995-03-02 14:23:40 +00:00
parent 60fdbf97c7
commit ff0a7ea5cd
2 changed files with 7 additions and 1 deletions

View File

@ -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> Wed Mar 1 20:28:42 1995 Per Bothner <bothner@kalessin.cygnus.com>
* misc.ch, misc.exp, Makefile.in: New test case. * misc.ch, misc.exp, Makefile.in: New test case.

View File

@ -36,7 +36,8 @@ proc set_lang_chill {} {
global binfile objdir subdir global binfile objdir subdir
if ![file exists $objdir/$subdir/$binfile] then { if ![file exists $objdir/$subdir/$binfile] then {
return 0 warning "$binfile does not exist; tests suppressed."
return 1
} }
verbose "loading file '$objdir/$subdir/$binfile'" verbose "loading file '$objdir/$subdir/$binfile'"
gdb_load $objdir/$subdir/$binfile gdb_load $objdir/$subdir/$binfile