This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[RFA]: More testsuite printf purification.
- To: gdb-patches at sourceware dot cygnus dot com
- Subject: [RFA]: More testsuite printf purification.
- From: Michael Snyder <msnyder at happy dot cygnus dot com>
- Date: Fri, 13 Oct 2000 18:40:19 -0700
- Cc: ezannoni at happy dot cygnus dot com, fnasser at happy dot cygnus dot com
More tests that should not be run if printf output is not available.
* gdb.base/call-rr-st.exp: Use above procs to skip tests.
* gdb.base/call-strs.exp: Ditto.
Index: gdb.base/call-rt-st.exp
===================================================================
RCS file: /cvs/cvsfiles/devo/gdb/testsuite/gdb.base/call-rt-st.exp,v
retrieving revision 1.4
diff -c -p -r1.4 call-rt-st.exp
*** call-rt-st.exp 2000/05/01 04:46:49 1.4
--- call-rt-st.exp 2000/10/14 01:39:04
*************** gdb_expect {
*** 135,223 ****
timeout { fail "(timeout)finish out from loop_count"}
}
! send_gdb "print print_struct_rep(*struct1)\n"
! gdb_expect {
! -re ".*Contents of struct1:\[ \t\n\r\]+22\[ \t\]+0\[ \t\n\r\]+.\[0-9\]+ = \{value = 5, head = 0\}.*$gdb_prompt $" {
! pass "print print_struct_rep(*struct1, *struct2, *struct3)"
! }
! -re ".*$gdb_prompt $" { fail "print print_struct_rep(*struct1, *struct2, *struct3)" }
! timeout { fail "(timeout) print_struct_rep(*struct1, *struct2, *struct3)" }
! }
!
! send_gdb "print print_one_large_struct(*list1)\n"
! gdb_expect {
! -re ".*\[ \t\]+4\[ \t\]+1\[ \r\n\]+.\[0-9\]+ = \{next_index = \{1, 2, 3, 4, 5, 6, 7, 8, 9, 10\}, values = \{4, 6, 8, 10, 12, 14, 16, 18, 20, 22\}, head = 0\}.*$gdb_prompt $" {
! pass "print print_one_large_struct(*list1)"
! }
! -re ".*$gdb_prompt $" { fail "print print_one_large_struct(*list1)" }
! timeout { fail "(timeout) print_one_large_struct(*list1)" }
! }
!
! if {![target_info exists gdb,skip_float_tests]} {
! send_gdb "print print_one_double(*d1)\n"
! gdb_expect {
! -re ".*Contents of one_double_t:\[ \r\n\]+1\\.111110\[ \r\n\]+.\[0-9\]+ = \{double1 = 1\\.11111\}.*$gdb_prompt $" {
! pass "print print_one_double(*d1)"
! }
! -re ".*$gdb_prompt $" { fail "print print_one_double(*d1)" }
! timeout { fail "(timeout) print_one_double(*d1)" }
! }
!
! send_gdb "print print_two_floats(*f3)\n"
! gdb_expect {
! -re ".*Contents of two_floats_t:\[ \r\n\]+-2\\.345000\[ \t]+1\\.000000\[ \r\n\]+.\[0-9\]+ = \{float1 = -2\\.34500003, float2 = 1\}.*$gdb_prompt $" {
! pass "print print_two_floats(*f3)"
! }
! -re ".*$gdb_prompt $" { fail "print print_two_floats(*f3)" }
! timeout { fail "(timeout) print_two_floats(*f3)" }
! }
! }
!
! send_gdb "print print_bit_flags(*flags)\n"
! gdb_expect {
! -re ".*alpha\[ \r\n\]+gamma\[ \r\n\]+epsilon\[ \r\n\]+.\[0-9\]+ = \{alpha = 1, beta = 0, gamma = 1, delta = 0, epsilon = 1, omega = 0\}\[ \r\n\]+$gdb_prompt $" {
! pass "print print_bit_flags(*flags)"
! }
! -re ".*$gdb_prompt $" { fail "print print_bit_flags(*flags)" }
! timeout { fail "(timeout) print_bit_flags(*flags)" }
! }
!
! send_gdb "print print_bit_flags_combo(*flags_combo)\n"
! gdb_expect {
! -re ".*alpha\[ \r\n\]+gamma\[ \r\n\]+epsilon\[ \r\n\]+ch1: y\[ \t\]+ch2: n\[ \r\n\]+.\[0-9\]+ = \{alpha = 1, beta = 0, ch1 = 121 'y', gamma = 1, delta = 0, ch2 = 110 'n', epsilon = 1, omega = 0\}\[ \r\n\]+$gdb_prompt $" {
! pass "print print_bit_flags_combo(*flags_combo)"
! }
! -re ".*$gdb_prompt $" { fail "print print_bit_flags_combo(*flags_combo)" }
! timeout { fail "(timeout) print_bit_flags_combo(*flags_combo)" }
! }
!
! send_gdb "print print_three_chars(*three_char)\n"
! gdb_expect {
! -re ".*Contents of three_char_t:\[ \r\n\]+x\[ \t\]+y\[ \t\]+z\[ \r\n\]+.\[0-9\]+ = \{ch1 = 120 'x', ch2 = 121 'y', ch3 = 122 'z'\}\[ \r\n\]+$gdb_prompt $" {
! pass "print print_three_chars(*three_char)"
! }
! -re ".*$gdb_prompt $" { fail "print print_three_chars(*three_char)" }
! timeout { fail "(timeout) print_three_chars(*three_char)" }
! }
!
! send_gdb "print print_five_chars(*five_char)\n"
! gdb_expect {
! -re ".*Contents of five_char_t:\[ \r\n\]+h\[ \t\]+e\[ \t\]+l\[ \t\]+l\[ \t\]+o\[ \r\n\]+.\[0-9\]+ = \{ch1 = 104 'h', ch2 = 101 'e', ch3 = 108 'l', ch4 = 108 'l', ch5 = 111 'o'\}\[ \r\n\]+$gdb_prompt $" {
! pass "print print_five_chars(*five_char)"
! }
! -re ".*$gdb_prompt $" { fail "print print_five_chars(*five_char)" }
! timeout { fail "(timeout) print_five_chars(*five_char)" }
! }
!
! send_gdb "print print_int_char_combo(*int_char_combo)\n"
! gdb_expect {
! -re ".*Contents of int_char_combo_t:\[ \r\n\]+13\[ \t\]+!\[ \r\n\]+.\[0-9\]+ = \{int1 = 13, ch1 = 33 '!'\}\[ \r\n\]+$gdb_prompt $" {
! pass "print print_int_char_combo(*int_char_combo)"
! }
! -re ".*$gdb_prompt $" { fail "print print_int_char_combo(*int_char_combo)" }
! timeout { fail "(timeout) print_int_char_combo(*int_char_combo)" }
! }
return
--- 135,251 ----
timeout { fail "(timeout)finish out from loop_count"}
}
+ if ![gdb_skip_stdio_test "print print_struct_rep(*struct1)"] {
+ send_gdb "print print_struct_rep(*struct1)\n"
+ gdb_expect {
+ -re ".*Contents of struct1:\[ \t\n\r\]+22\[ \t\]+0\[ \t\n\r\]+.\[0-9\]+ = \{value = 5, head = 0\}.*$gdb_prompt $" {
+ pass "print print_struct_rep(*struct1, *struct2, *struct3)"
+ }
+ -re ".*$gdb_prompt $" {
+ fail "print print_struct_rep(*struct1, *struct2, *struct3)"
+ }
+ timeout {
+ fail "(timeout) print_struct_rep(*struct1, *struct2, *struct3)"
+ }
+ }
+ }
! if ![gdb_skip_stdio_test "print print_one_large_struct(...)"] {
! send_gdb "print print_one_large_struct(*list1)\n"
! gdb_expect {
! -re ".*\[ \t\]+4\[ \t\]+1\[ \r\n\]+.\[0-9\]+ = \{next_index = \{1, 2, 3, 4, 5, 6, 7, 8, 9, 10\}, values = \{4, 6, 8, 10, 12, 14, 16, 18, 20, 22\}, head = 0\}.*$gdb_prompt $" {
! pass "print print_one_large_struct(*list1)"
! }
! -re ".*$gdb_prompt $" { fail "print print_one_large_struct(*list1)" }
! timeout { fail "(timeout) print_one_large_struct(*list1)" }
! }
! }
!
! if {![gdb_skip_float_test "print print_one_double(*d1)"] && \
! ![gdb_skip_stdio_test "print print_one_double(*d1)"] } {
! send_gdb "print print_one_double(*d1)\n";
! gdb_expect {
! -re ".*Contents of one_double_t:\[ \r\n\]+1\\.111110\[ \r\n\]+.\[0-9\]+ = \{double1 = 1\\.11111\}.*$gdb_prompt $" {
! pass "print print_one_double(*d1)"
! }
! -re ".*$gdb_prompt $" { fail "print print_one_double(*d1)" }
! timeout { fail "(timeout) print_one_double(*d1)" }
! }
! }
!
! if ![gdb_skip_stdio_test "print print_two_floats(*f3)"] {
! send_gdb "print print_two_floats(*f3)\n"
! gdb_expect {
! -re ".*Contents of two_floats_t:\[ \r\n\]+-2\\.345000\[ \t]+1\\.000000\[ \r\n\]+.\[0-9\]+ = \{float1 = -2\\.34500003, float2 = 1\}.*$gdb_prompt $" {
! pass "print print_two_floats(*f3)"
! }
! -re ".*$gdb_prompt $" { fail "print print_two_floats(*f3)" }
! timeout { fail "(timeout) print_two_floats(*f3)" }
! }
! }
!
! if ![gdb_skip_stdio_test "print print_bit_flags(*flags)"] {
! send_gdb "print print_bit_flags(*flags)\n"
! gdb_expect {
! -re ".*alpha\[ \r\n\]+gamma\[ \r\n\]+epsilon\[ \r\n\]+.\[0-9\]+ = \{alpha = 1, beta = 0, gamma = 1, delta = 0, epsilon = 1, omega = 0\}\[ \r\n\]+$gdb_prompt $" {
! pass "print print_bit_flags(*flags)"
! }
! -re ".*$gdb_prompt $" { fail "print print_bit_flags(*flags)" }
! timeout { fail "(timeout) print_bit_flags(*flags)" }
! }
! }
!
! if ![gdb_skip_stdio_test "print print_bit_flags_combo(*flags_combo)"] {
! send_gdb "print print_bit_flags_combo(*flags_combo)\n"
! gdb_expect {
! -re ".*alpha\[ \r\n\]+gamma\[ \r\n\]+epsilon\[ \r\n\]+ch1: y\[ \t\]+ch2: n\[ \r\n\]+.\[0-9\]+ = \{alpha = 1, beta = 0, ch1 = 121 'y', gamma = 1, delta = 0, ch2 = 110 'n', epsilon = 1, omega = 0\}\[ \r\n\]+$gdb_prompt $" {
! pass "print print_bit_flags_combo(*flags_combo)"
! }
! -re ".*$gdb_prompt $" {
! fail "print print_bit_flags_combo(*flags_combo)"
! }
! timeout {
! fail "(timeout) print_bit_flags_combo(*flags_combo)"
! }
! }
! }
!
! if ![gdb_skip_stdio_test "print print_three_chars(*three_chars)"] {
! send_gdb "print print_three_chars(*three_char)\n"
! gdb_expect {
! -re ".*Contents of three_char_t:\[ \r\n\]+x\[ \t\]+y\[ \t\]+z\[ \r\n\]+.\[0-9\]+ = \{ch1 = 120 'x', ch2 = 121 'y', ch3 = 122 'z'\}\[ \r\n\]+$gdb_prompt $" {
! pass "print print_three_chars(*three_char)"
! }
! -re ".*$gdb_prompt $" { fail "print print_three_chars(*three_char)" }
! timeout { fail "(timeout) print_three_chars(*three_char)" }
! }
! }
!
! if ![gdb_skip_stdio_test "print print_five_chars(*five_chars)"] {
! send_gdb "print print_five_chars(*five_char)\n"
! gdb_expect {
! -re ".*Contents of five_char_t:\[ \r\n\]+h\[ \t\]+e\[ \t\]+l\[ \t\]+l\[ \t\]+o\[ \r\n\]+.\[0-9\]+ = \{ch1 = 104 'h', ch2 = 101 'e', ch3 = 108 'l', ch4 = 108 'l', ch5 = 111 'o'\}\[ \r\n\]+$gdb_prompt $" {
! pass "print print_five_chars(*five_char)"
! }
! -re ".*$gdb_prompt $" { fail "print print_five_chars(*five_char)" }
! timeout { fail "(timeout) print_five_chars(*five_char)" }
! }
! }
!
! if ![gdb_skip_stdio_test "print print_int_char_combo(*int_char_combo)"] {
! send_gdb "print print_int_char_combo(*int_char_combo)\n"
! gdb_expect {
! -re ".*Contents of int_char_combo_t:\[ \r\n\]+13\[ \t\]+!\[ \r\n\]+.\[0-9\]+ = \{int1 = 13, ch1 = 33 '!'\}\[ \r\n\]+$gdb_prompt $" {
! pass "print print_int_char_combo(*int_char_combo)"
! }
! -re ".*$gdb_prompt $" {
! fail "print print_int_char_combo(*int_char_combo)"
! }
! timeout {
! fail "(timeout) print_int_char_combo(*int_char_combo)"
! }
! }
! }
return
Index: gdb.base/call-strs.exp
===================================================================
RCS file: /cvs/cvsfiles/devo/gdb/testsuite/gdb.base/call-strs.exp,v
retrieving revision 1.4
diff -c -p -r1.4 call-strs.exp
*** call-strs.exp 2000/05/01 04:46:49 1.4
--- call-strs.exp 2000/10/14 01:39:04
*************** gdb_expect {
*** 143,247 ****
#print str_func1(s)
! send_gdb "print str_func1(s)\n"
! gdb_expect {
! -re "first string arg is: test string.*\"test string\".*$gdb_prompt $" {
! pass "print str_func1(s)"
! }
! -re ".*$gdb_prompt $" { fail "print str_func1(s)" }
! timeout { fail "(timeout) print str_func1(s)" }
! }
#print str_func1("test string")
! send_gdb "print str_func1(\"test string\")\n"
! gdb_expect {
! -re "first string arg is: test string.*\"test string\".*$gdb_prompt $" {
! pass "print str_func1(\"test string\")"
! }
! -re ".*$gdb_prompt $" { fail "print str_func1(\"test string\")" }
! timeout { fail "(timeout) print str_func1(\"test string\")" }
! }
#call str_func1(s)
! send_gdb "call str_func1(s)\n"
! gdb_expect {
! -re "first string arg is: test string.*\"test string\".*$gdb_prompt $" {
! pass "call str_func1(s)"
! }
! -re ".*$gdb_prompt $" { fail "call str_func1(s)" }
! timeout { fail "(timeout) call str_func1(s)" }
! }
#call str_func1("test string")
! send_gdb "call str_func1(\"test string\")\n"
! gdb_expect {
! -re "first string arg is: test string.*\"test string\".*$gdb_prompt $" {
! pass "call str_func1(\"test string\")"
! }
! -re ".*$gdb_prompt $" { fail "call str_func1(\"test string\")" }
! timeout { fail "(timeout) call str_func1(\"test string\")" }
! }
#print str_func1(buf)
! send_gdb "print str_func1(buf)\n"
! gdb_expect {
! -re "first string arg is: test string.*\"test string\".*$gdb_prompt $" {
! pass "print str_func1(buf)"
! }
! -re ".*$gdb_prompt $" { fail "print str_func1(buf)" }
! timeout { fail "(timeout) print str_func1(buf)" }
! }
#call str_func1(buf)
! send_gdb "call str_func1(buf)\n"
! gdb_expect {
! -re "first string arg is: test string.*\"test string\".*$gdb_prompt $" {
! pass "call str_func1(buf)"
! }
! -re ".*$gdb_prompt $" { fail "call str_func1(buf)" }
! timeout { fail "(timeout) call str_func1(buf)" }
! }
#print str_func("a","b","c","d","e","f","g")
! send_gdb "print str_func(\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\")\n"
! gdb_expect {
! -re "first string arg is: a\[ \t\r\n\]+second string arg is: b\[ \t\r\n\]+third string arg is: c\[ \t\r\n\]+fourth string arg is: d\[ \t\r\n\]+fifth string arg is: e\[ \t\r\n\]+sixth string arg is: f\[ \t\r\n\]+seventh string arg is: g\[ \t\r\n\]+.*= \"abcdefg\".*$gdb_prompt $" {
! pass "print str_func(\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\")"
! }
! -re ".*$gdb_prompt $" { fail "print str_func(\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\")" }
! timeout { fail "(timeout) print str_func(\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\")" }
! }
#call str_func("a","b","c","d","e","f","g")
! send_gdb "call str_func(\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\")\n"
! gdb_expect {
! -re "first string arg is: a\[ \t\r\n\]+second string arg is: b\[ \t\r\n\]+third string arg is: c\[ \t\r\n\]+fourth string arg is: d\[ \t\r\n\]+fifth string arg is: e\[ \t\r\n\]+sixth string arg is: f\[ \t\r\n\]+seventh string arg is: g\[ \t\r\n\]+.*= \"abcdefg\".*$gdb_prompt $" {
! pass "call str_func(\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\")"
! }
! -re ".*$gdb_prompt $" { fail "call str_func(\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\")" }
! timeout { fail "(timeout) call str_func(\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\")" }
! }
#print str_func(s,s,s,s,s,s,s)
! send_gdb "print str_func(s,s,s,s,s,s,s)\n"
! gdb_expect {
! -re "first string arg is: test string\[ \t\r\n\]+second string arg is: test string\[ \t\r\n\]+third string arg is: test string\[ \t\r\n\]+fourth string arg is: test string\[ \t\r\n\]+fifth string arg is: test string\[ \t\r\n\]+sixth string arg is: test string\[ \t\r\n\]+seventh string arg is: test string\[ \t\r\n\]+.*\"test stringtest stringtest stringtest stringtest stringtest stringtest string\".*$gdb_prompt $" {
! pass "print str_func(s,s,s,s,s,s,s)"
! }
! -re ".*$gdb_prompt $" { fail "print str_func(s,s,s,s,s,s,s)" }
! timeout { fail "(timeout) print str_func(s,s,s,s,s,s,s)" }
! }
#call str_func(s,s,s,s,s,s,s)
! send_gdb "call str_func(s,s,s,s,s,s,s)\n"
! gdb_expect {
! -re "first string arg is: test string\[ \t\r\n\]+second string arg is: test string\[ \t\r\n\]+third string arg is: test string\[ \t\r\n\]+fourth string arg is: test string\[ \t\r\n\]+fifth string arg is: test string\[ \t\r\n\]+sixth string arg is: test string\[ \t\r\n\]+seventh string arg is: test string\[ \t\r\n\]+.*\"test stringtest stringtest stringtest stringtest stringtest stringtest string\".*$gdb_prompt $" {
! pass "call str_func(s,s,s,s,s,s,s)"
! }
! -re ".*$gdb_prompt $" { fail "call str_func(s,s,s,s,s,s,s)" }
! timeout { fail "(timeout) call str_func(s,s,s,s,s,s,s)" }
! }
gdb_exit
return 0
--- 143,267 ----
#print str_func1(s)
! if ![gdb_skip_stdio_test "print str_func1(s)"] {
! send_gdb "print str_func1(s)\n"
! gdb_expect {
! -re "first string arg is: test string.*\"test string\".*$gdb_prompt $" {
! pass "print str_func1(s)"
! }
! -re ".*$gdb_prompt $" { fail "print str_func1(s)" }
! timeout { fail "(timeout) print str_func1(s)" }
! }
! }
#print str_func1("test string")
! if ![gdb_skip_stdio_test "print str_func1(teststring)"] {
! send_gdb "print str_func1(\"test string\")\n"
! gdb_expect {
! -re "first string arg is: test string.*\"test string\".*$gdb_prompt $" {
! pass "print str_func1(\"test string\")"
! }
! -re ".*$gdb_prompt $" { fail "print str_func1(\"test string\")" }
! timeout { fail "(timeout) print str_func1(\"test string\")" }
! }
! }
#call str_func1(s)
! if ![gdb_skip_stdio_test "call str_func1(s)"] {
! send_gdb "call str_func1(s)\n"
! gdb_expect {
! -re "first string arg is: test string.*\"test string\".*$gdb_prompt $" {
! pass "call str_func1(s)"
! }
! -re ".*$gdb_prompt $" { fail "call str_func1(s)" }
! timeout { fail "(timeout) call str_func1(s)" }
! }
! }
#call str_func1("test string")
! if ![gdb_skip_stdio_test "call str_func1 (...)"] {
! send_gdb "call str_func1(\"test string\")\n"
! gdb_expect {
! -re "first string arg is: test string.*\"test string\".*$gdb_prompt $" {
! pass "call str_func1(\"test string\")"
! }
! -re ".*$gdb_prompt $" { fail "call str_func1(\"test string\")" }
! timeout { fail "(timeout) call str_func1(\"test string\")" }
! }
! }
#print str_func1(buf)
! if ![gdb_skip_stdio_test "print str_func1(buf)"] {
! send_gdb "print str_func1(buf)\n"
! gdb_expect {
! -re "first string arg is: test string.*\"test string\".*$gdb_prompt $" {
! pass "print str_func1(buf)"
! }
! -re ".*$gdb_prompt $" { fail "print str_func1(buf)" }
! timeout { fail "(timeout) print str_func1(buf)" }
! }
! }
#call str_func1(buf)
! if ![gdb_skip_stdio_test "call str_func1(buf)"] {
! send_gdb "call str_func1(buf)\n"
! gdb_expect {
! -re "first string arg is: test string.*\"test string\".*$gdb_prompt $" {
! pass "call str_func1(buf)"
! }
! -re ".*$gdb_prompt $" { fail "call str_func1(buf)" }
! timeout { fail "(timeout) call str_func1(buf)" }
! }
! }
#print str_func("a","b","c","d","e","f","g")
! if ![gdb_skip_stdio_test "print str_func(a,b,c,d,e,f,g)"] {
! send_gdb "print str_func(\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\")\n"
! gdb_expect {
! -re "first string arg is: a\[ \t\r\n\]+second string arg is: b\[ \t\r\n\]+third string arg is: c\[ \t\r\n\]+fourth string arg is: d\[ \t\r\n\]+fifth string arg is: e\[ \t\r\n\]+sixth string arg is: f\[ \t\r\n\]+seventh string arg is: g\[ \t\r\n\]+.*= \"abcdefg\".*$gdb_prompt $" {
! pass "print str_func(\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\")"
! }
! -re ".*$gdb_prompt $" { fail "print str_func(\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\")" }
! timeout { fail "(timeout) print str_func(\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\")" }
! }
! }
#call str_func("a","b","c","d","e","f","g")
! if ![gdb_skip_stdio_test "call str_func(a,b,c,d,e,f,g)"] {
! send_gdb "call str_func(\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\")\n"
! gdb_expect {
! -re "first string arg is: a\[ \t\r\n\]+second string arg is: b\[ \t\r\n\]+third string arg is: c\[ \t\r\n\]+fourth string arg is: d\[ \t\r\n\]+fifth string arg is: e\[ \t\r\n\]+sixth string arg is: f\[ \t\r\n\]+seventh string arg is: g\[ \t\r\n\]+.*= \"abcdefg\".*$gdb_prompt $" {
! pass "call str_func(\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\")"
! }
! -re ".*$gdb_prompt $" { fail "call str_func(\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\")" }
! timeout { fail "(timeout) call str_func(\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\")" }
! }
! }
#print str_func(s,s,s,s,s,s,s)
! if ![gdb_skip_stdio_test "print str_func(s,s,s,s,s,s,s,s)"] {
! send_gdb "print str_func(s,s,s,s,s,s,s)\n"
! gdb_expect {
! -re "first string arg is: test string\[ \t\r\n\]+second string arg is: test string\[ \t\r\n\]+third string arg is: test string\[ \t\r\n\]+fourth string arg is: test string\[ \t\r\n\]+fifth string arg is: test string\[ \t\r\n\]+sixth string arg is: test string\[ \t\r\n\]+seventh string arg is: test string\[ \t\r\n\]+.*\"test stringtest stringtest stringtest stringtest stringtest stringtest string\".*$gdb_prompt $" {
! pass "print str_func(s,s,s,s,s,s,s)"
! }
! -re ".*$gdb_prompt $" { fail "print str_func(s,s,s,s,s,s,s)" }
! timeout { fail "(timeout) print str_func(s,s,s,s,s,s,s)" }
! }
! }
#call str_func(s,s,s,s,s,s,s)
! if ![gdb_skip_stdio_test "call str_func(s,s,s,s,s,s,s,s)"] {
! send_gdb "call str_func(s,s,s,s,s,s,s)\n"
! gdb_expect {
! -re "first string arg is: test string\[ \t\r\n\]+second string arg is: test string\[ \t\r\n\]+third string arg is: test string\[ \t\r\n\]+fourth string arg is: test string\[ \t\r\n\]+fifth string arg is: test string\[ \t\r\n\]+sixth string arg is: test string\[ \t\r\n\]+seventh string arg is: test string\[ \t\r\n\]+.*\"test stringtest stringtest stringtest stringtest stringtest stringtest string\".*$gdb_prompt $" {
! pass "call str_func(s,s,s,s,s,s,s)"
! }
! -re ".*$gdb_prompt $" { fail "call str_func(s,s,s,s,s,s,s)" }
! timeout { fail "(timeout) call str_func(s,s,s,s,s,s,s)" }
! }
! }
gdb_exit
return 0