Index: gdb/testsuite/gdb.stabs/exclfwd.exp |
diff --git a/gdb/testsuite/gdb.stabs/exclfwd.exp b/gdb/testsuite/gdb.stabs/exclfwd.exp |
index 92df6f960892fb5f3f0631c5a5d8503717cbc2ac..77e2d5ddebd78e05961689bcf4d5354cccab065f 100644 |
--- a/gdb/testsuite/gdb.stabs/exclfwd.exp |
+++ b/gdb/testsuite/gdb.stabs/exclfwd.exp |
@@ -16,40 +16,17 @@ |
# Please email any bugs, comments, and/or additions to this file to: |
# bug-gdb@gnu.org |
-if $tracelevel { |
- strace $tracelevel |
-} |
- |
-# If the test directory was not created by configure then skip |
-# this test. |
-if ![file isdirectory ${objdir}/${subdir}] then { |
- return 0 |
-} |
- |
# |
# test running programs |
# |
-set testfile exclfwd |
-set binfile ${objdir}/${subdir}/${testfile} |
+standard_testfile exclfwd1.c exclfwd2.c |
-foreach file {exclfwd1 exclfwd2} { |
- if {[gdb_compile "${srcdir}/${subdir}/${file}.c" "${file}.o" object {debug}] != ""} { |
- untested exclfwd.exp |
- return -1 |
- } |
+if {[prepare_for_testing $testfile.exp $testfile \ |
+ [list $srcfile $srcfile2] debug]} { |
+ return -1 |
} |
-if {[gdb_compile "exclfwd1.o exclfwd2.o" ${binfile} executable {debug}] != "" } { |
- untested exclfwd.exp |
- return -1 |
-} |
- |
-gdb_exit |
-gdb_start |
-gdb_reinitialize_dir $srcdir/$subdir |
-gdb_load ${binfile} |
- |
if ![runto_main] then { |
perror "couldn't run to breakpoint" |
continue |