diff options
Diffstat (limited to 'gdb/testsuite/gdb.chill/pr-8136.exp')
| -rw-r--r-- | gdb/testsuite/gdb.chill/pr-8136.exp | 34 |
1 files changed, 19 insertions, 15 deletions
diff --git a/gdb/testsuite/gdb.chill/pr-8136.exp b/gdb/testsuite/gdb.chill/pr-8136.exp index b1bca3f..29f99a9 100644 --- a/gdb/testsuite/gdb.chill/pr-8136.exp +++ b/gdb/testsuite/gdb.chill/pr-8136.exp @@ -23,6 +23,23 @@ if $tracelevel then { strace $tracelevel } +if [skip_chill_tests] then { continue } + +set testfile2 "func1" +set srcfile2 ${srcdir}/$subdir/${testfile2}.ch +if { [compile "${srcfile2} -g -c"] != "" } { + perror "Couldn't compile ${srcfile2}" + return -1 +} + +set testfile "pr-8136" +set srcfile ${srcdir}/$subdir/pr-8136.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 +51,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 $" @@ -42,17 +59,4 @@ proc do_tests {} { gdb_test "print ps" {= \[e3, e7:e9\]} } -# 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 "pr-8136.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 |