This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
Re: [RFA]: More testsuite printf purification.
- To: Michael Snyder <msnyder at cygnus dot com>
- Subject: Re: [RFA]: More testsuite printf purification.
- From: Fernando Nasser <fnasser at cygnus dot com>
- Date: Mon, 16 Oct 2000 21:39:34 -0400
- CC: gdb-patches at sourceware dot cygnus dot com, ezannoni at cygnus dot com
- Organization: Red Hat , Inc. - Toronto
- References: <200010140140.SAA15589@happy.cygnus.com>
I assume you have properly tested this and it is related to the already approved skip
stdio things, so go ahead.
Fernando
Michael Snyder wrote:
>
> 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
--
Fernando Nasser
Red Hat - Toronto E-Mail: fnasser@redhat.com
2323 Yonge Street, Suite #300
Toronto, Ontario M4P 2C9