diff options
| author | Tom Tromey <tromey@redhat.com> | 2012-06-25 20:43:40 +0000 |
|---|---|---|
| committer | Tom Tromey <tromey@redhat.com> | 2012-06-25 20:43:40 +0000 |
| commit | 17b776263f034e4acd0b5038f64a4a88b104a720 (patch) | |
| tree | 6f6f6ff7a00f166ce026d800942f7889e044e7ce /gdb/testsuite/gdb.pascal | |
| parent | f91e3dc1b63cb8ac775de13783454ae8a915d704 (diff) | |
| download | gdb-17b776263f034e4acd0b5038f64a4a88b104a720.zip gdb-17b776263f034e4acd0b5038f64a4a88b104a720.tar.gz gdb-17b776263f034e4acd0b5038f64a4a88b104a720.tar.bz2 | |
* gdb.pascal/integers.exp: Use standard_testfile, clean_restart.
* gdb.pascal/hello.exp: Use standard_testfile, clean_restart.
* gdb.pascal/gdb11492.exp: Use standard_testfile, clean_restart.
* gdb.pascal/floats.exp: Use standard_testfile, clean_restart.
Diffstat (limited to 'gdb/testsuite/gdb.pascal')
| -rw-r--r-- | gdb/testsuite/gdb.pascal/floats.exp | 13 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.pascal/gdb11492.exp | 12 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.pascal/hello.exp | 9 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.pascal/integers.exp | 9 |
4 files changed, 13 insertions, 30 deletions
diff --git a/gdb/testsuite/gdb.pascal/floats.exp b/gdb/testsuite/gdb.pascal/floats.exp index e7122e7..1bde7fa 100644 --- a/gdb/testsuite/gdb.pascal/floats.exp +++ b/gdb/testsuite/gdb.pascal/floats.exp @@ -15,18 +15,15 @@ load_lib "pascal.exp" -set testfile "floats" -set srcfile ${testfile}.pas -set binfile ${objdir}/${subdir}/${testfile}$EXEEXT +standard_testfile .pas if {[gdb_compile_pascal "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug ]] != "" } { - return -1 + untested $testfile.exp + return -1 } -gdb_exit -gdb_start -gdb_reinitialize_dir $srcdir/$subdir -gdb_load ${binfile} +clean_restart ${testfile} + set bp_location1 [gdb_get_line_number "set breakpoint 1 here"] set bp_location2 [gdb_get_line_number "set breakpoint 2 here"] diff --git a/gdb/testsuite/gdb.pascal/gdb11492.exp b/gdb/testsuite/gdb.pascal/gdb11492.exp index 48f7b47..d232ddc 100644 --- a/gdb/testsuite/gdb.pascal/gdb11492.exp +++ b/gdb/testsuite/gdb.pascal/gdb11492.exp @@ -15,18 +15,14 @@ load_lib "pascal.exp" -set testfile "gdb11492" -set srcfile ${testfile}.pas -set binfile ${objdir}/${subdir}/${testfile}$EXEEXT +standard_testfile .pas if {[gdb_compile_pascal "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug ]] != "" } { - return -1 + untested $testfile.exp + return -1 } -gdb_exit -gdb_start -gdb_reinitialize_dir $srcdir/$subdir -gdb_load ${binfile} +clean_restart ${testfile} set bp_location1 [gdb_get_line_number "set breakpoint 1 here"] if { [gdb_breakpoint ${srcfile}:${bp_location1}] } { diff --git a/gdb/testsuite/gdb.pascal/hello.exp b/gdb/testsuite/gdb.pascal/hello.exp index 0329acb..cd0fce6 100644 --- a/gdb/testsuite/gdb.pascal/hello.exp +++ b/gdb/testsuite/gdb.pascal/hello.exp @@ -15,18 +15,13 @@ load_lib "pascal.exp" -set testfile "hello" -set srcfile ${testfile}.pas -set binfile ${objdir}/${subdir}/${testfile}${EXEEXT} +standard_testfile .pas if {[gdb_compile_pascal "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug ]] != "" } { return -1 } -gdb_exit -gdb_start -gdb_reinitialize_dir $srcdir/$subdir -gdb_load ${binfile} +clean_restart ${testfile} set bp_location1 [gdb_get_line_number "set breakpoint 1 here"] set bp_location2 [gdb_get_line_number "set breakpoint 2 here"] diff --git a/gdb/testsuite/gdb.pascal/integers.exp b/gdb/testsuite/gdb.pascal/integers.exp index 68b978b..82ce065 100644 --- a/gdb/testsuite/gdb.pascal/integers.exp +++ b/gdb/testsuite/gdb.pascal/integers.exp @@ -15,18 +15,13 @@ load_lib "pascal.exp" -set testfile "integers" -set srcfile ${testfile}.pas -set binfile ${objdir}/${subdir}/${testfile}$EXEEXT +standard_testfile .pas if {[gdb_compile_pascal "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug ]] != "" } { return -1 } -gdb_exit -gdb_start -gdb_reinitialize_dir $srcdir/$subdir -gdb_load ${binfile} +clean_restart ${testfile} set bp_location1 [gdb_get_line_number "set breakpoint 1 here"] set bp_location2 [gdb_get_line_number "set breakpoint 2 here"] |