diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2008-01-08 18:17:30 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2008-01-08 18:17:30 +0000 |
| commit | 88e2547f139cd37f679460bac0e3ab94feef2533 (patch) | |
| tree | 30b3f48a08e2c3ace61442d9ca21693f6bfb0e5b /gdb/testsuite/gdb.ada | |
| parent | a84a8a0d30b375691d864cf8d842fa19354e7e20 (diff) | |
| download | gdb-88e2547f139cd37f679460bac0e3ab94feef2533.zip gdb-88e2547f139cd37f679460bac0e3ab94feef2533.tar.gz gdb-88e2547f139cd37f679460bac0e3ab94feef2533.tar.bz2 | |
* gdb.ada/print_pc.exp: Add verification of where gdb_start_cmd
landed. Should also fix random failures in the test following it.
Diffstat (limited to 'gdb/testsuite/gdb.ada')
| -rw-r--r-- | gdb/testsuite/gdb.ada/print_pc.exp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.ada/print_pc.exp b/gdb/testsuite/gdb.ada/print_pc.exp index 50fbe75..555ef10 100644 --- a/gdb/testsuite/gdb.ada/print_pc.exp +++ b/gdb/testsuite/gdb.ada/print_pc.exp @@ -39,6 +39,10 @@ if { [gdb_start_cmd] < 0 } { return -1 } +gdb_test "" \ + "dummy \\(\\) at .*dummy.adb:.*" \ + "start inferior" + gdb_test "p /x \$pc" \ "0x\[0-9a-zA-Z\]+" \ "p /x \$pc" |