diff options
Diffstat (limited to 'gdb/testsuite/gdb.chill/pr-8134.exp')
| -rw-r--r-- | gdb/testsuite/gdb.chill/pr-8134.exp | 36 |
1 files changed, 20 insertions, 16 deletions
diff --git a/gdb/testsuite/gdb.chill/pr-8134.exp b/gdb/testsuite/gdb.chill/pr-8134.exp index 086d527..e2586d0 100644 --- a/gdb/testsuite/gdb.chill/pr-8134.exp +++ b/gdb/testsuite/gdb.chill/pr-8134.exp @@ -23,6 +23,24 @@ if $tracelevel then { strace $tracelevel } +if [skip_chill_tests] then { continue } + +# Note we use pr-8136.ch for pr-8134.exp as well as pr-8136.exp. +set testfile2 "func1" +set srcfile2 ${srcdir}/$subdir/${testfile2}.ch +if { [compile "${srcfile2} -g -c"] != "" } { + perror "Couldn't compile ${srcfile2}" + return -1 +} + +set testfile "pr-8134" +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 +52,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 $" @@ -43,18 +61,4 @@ proc do_tests {} { gdb_test "print last" "= 10" } -# 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. - -# Note we use pr-8136 for pr-8134.exp as well as pr-8136.exp. -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 |