diff options
Diffstat (limited to 'gdb/testsuite/gdb.chill/chillvars.exp')
| -rw-r--r-- | gdb/testsuite/gdb.chill/chillvars.exp | 27 |
1 files changed, 12 insertions, 15 deletions
diff --git a/gdb/testsuite/gdb.chill/chillvars.exp b/gdb/testsuite/gdb.chill/chillvars.exp index 2c92d33..72c7ff9 100644 --- a/gdb/testsuite/gdb.chill/chillvars.exp +++ b/gdb/testsuite/gdb.chill/chillvars.exp @@ -23,6 +23,16 @@ if $tracelevel then { strace $tracelevel } +if [skip_chill_tests] then { continue } + +set testfile "chillvars" +set srcfile ${srcdir}/$subdir/${testfile}.ch +set binfile ${objdir}/${subdir}/${testfile}.exe +if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } { + perror "Couldn't compile ${srcfile}" + return -1 +} + proc do_tests {} { global prms_id bug_id subdir objdir srcdir binfile prompt @@ -34,7 +44,7 @@ proc do_tests {} { gdb_exit gdb_start gdb_reinitialize_dir $srcdir/$subdir - gdb_load $objdir/$subdir/$binfile + gdb_load $binfile send "set language chill\n" ; expect -re "$prompt $" @@ -303,17 +313,4 @@ proc test_ptr {} { gdb_test "print xptr->int" ".* = 32767" } -# Check to see if we have an executable to test. If not, then either we -# haven't tried to compile one, or the compilation failed for some reason. -# In either case, just notify the user and skip the tests in this file. - -set binfile "chillvars.exe" -set srcfile $binfile.ch - -if [skip_chill_tests] then { continue } - -if ![file exists $objdir/$subdir/$binfile] then { - warning "$binfile does not exist; tests suppressed." 0 -} else { - do_tests -} +do_tests |