-# Copyright 2010 Free Software Foundation, Inc.
+# Copyright 2010-2012 Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
gdb_test_no_output "set width 80"
gdb_test_no_output "set height 2"
-set test "print c"
-gdb_test_multiple $test $test {
- -re " = \{loooooooooooooooooooooooooooooooooooooooooooooong = 0, static field = \{\r\n---Type <return> to continue, or q <return> to quit---$" {
+set test "print c - <return>"
+gdb_test_multiple "print c" $test {
+ -re "\\$\[0-9\]+ = \{loooooooooooooooooooooooooooooooooooooooooooooong = 0, static field = \{\r\n---Type <return>" {
pass $test
}
+ -re "\r\n---Type <return>" {
+ # gdb-7.1 did not crash with this testcase but it had the same bug.
+ untested ${testfile}.exp
+ return 0
+ }
+}
+
+set test "print c - q <return>"
+gdb_test_multiple "" $test {
+ -re " to continue, or q <return>" {
+ pass $test
+ }
+}
+
+set test "print c - to quit"
+gdb_test_multiple "" $test {
-re " to quit---$" {
- fail $test
- return -1
+ pass $test
}
}