diff options
| author | Bob Manson <manson@cygnus> | 1997-02-21 00:22:50 +0000 |
|---|---|---|
| committer | Bob Manson <manson@cygnus> | 1997-02-21 00:22:50 +0000 |
| commit | c309781f7e3243d2e3642a2372bf550c01563d8e (patch) | |
| tree | e827afb10321b2dae7a6a0e4447096ae627f66bb | |
| parent | eb659148adacd1d72ff6de09aed350c63ba0a456 (diff) | |
| download | gdb-c309781f7e3243d2e3642a2372bf550c01563d8e.zip gdb-c309781f7e3243d2e3642a2372bf550c01563d8e.tar.gz gdb-c309781f7e3243d2e3642a2372bf550c01563d8e.tar.bz2 | |
* lib/gdb.exp(gdb_init): New function.
| -rw-r--r-- | gdb/testsuite/ChangeLog | 2 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.base/setvar.exp | 12 |
2 files changed, 12 insertions, 2 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 806f58a..1c7c090 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,7 @@ Thu Feb 20 13:57:01 1997 Bob Manson <manson@charmed.cygnus.com> + * lib/gdb.exp(gdb_init): New function. + * gdb.base/setvar.exp(test_set): Don't bother printing a PASS/FAIL for each individual variable set. diff --git a/gdb/testsuite/gdb.base/setvar.exp b/gdb/testsuite/gdb.base/setvar.exp index 7ff717d..cc1d962 100644 --- a/gdb/testsuite/gdb.base/setvar.exp +++ b/gdb/testsuite/gdb.base/setvar.exp @@ -89,12 +89,15 @@ proc test_set { args } { for {set x 0;} {$x < $length} {incr x;} { if { "[lindex $args $x]" != "" } { verbose "doing [lindex $args $x]" - gdb_test "[lindex $args $x]" "" "$message (setting variable)" + if [gdb_test "[lindex $args $x]" "" ""] { + fail "$message [lindex $args $x]"; + return 1; + } } } verbose "expecting $print_result from '$print_cmd'" # Now run the test. - gdb_test "$print_cmd" "$print_result" "$message"; + return [gdb_test "$print_cmd" "$print_result" "$message"]; } # @@ -352,6 +355,11 @@ v_long_member = 3,.*v_float_member = 4,.*v_double_member = 5.*\}" \ # the type of the structure to be specified, as in # v_struct1 = (struct t_struct) {32, 33, 34, 35, 36, 37} # GDB should do the same if it wants to provide this feature. +if [target_info exists gdb,cannot_call_functions] { + setup_xfail "*-*-*" 2416 + fail "set variable v_struct1 = {32, 33, 34, 35, 36, 37}" + continue +} gdb_test "set variable v_struct1 = {32, 33, 34, 35, 36, 37}" "Invalid.*" # And after the error the structure should be unchanged. |