diff options
author | Michael Snyder <msnyder@specifix.com> | 2000-10-17 20:00:21 +0000 |
---|---|---|
committer | Michael Snyder <msnyder@specifix.com> | 2000-10-17 20:00:21 +0000 |
commit | 77ba3eb1803264ff0d2450625f55941e5006c8c2 (patch) | |
tree | 7d347b75395ab5beeb751f0ad6a2f3b98ca6f044 /gdb/testsuite/gdb.base/call-strs.exp | |
parent | 42dfbda7b5cfb6ef6b155a4b4d56717a963b8d92 (diff) | |
download | gdb-77ba3eb1803264ff0d2450625f55941e5006c8c2.tar.gz |
2000-10-16 Michael Snyder <msnyder@cleaver.cygnus.com>
* lib/gdb.exp (gdb_skip_float_test): New proc. Skip test if
no floating point support.
(gdb_skip_stdio_test): New proc. Skip test if no stdio support.
* gdb.base/call-ar-st.exp: Use above procs to skip tests.
* gdb.base/call-rt-st.exp: Ditto.
* gdb.base/call-strs.exp: Ditto.
* gdb.base/sizeof.exp (check_sizeof): Skip if no printf support.
* gdb.base/varargs.exp: Skip entire test if no printf support.
* gdb.base/ending-run.exp (Step to return): Skip if no printf supt.
* gdb.base/shlib-call.exp: Skip several tests if no printf support.
Diffstat (limited to 'gdb/testsuite/gdb.base/call-strs.exp')
-rw-r--r-- | gdb/testsuite/gdb.base/call-strs.exp | 180 |
1 files changed, 100 insertions, 80 deletions
diff --git a/gdb/testsuite/gdb.base/call-strs.exp b/gdb/testsuite/gdb.base/call-strs.exp index 5e6cbff6ecd..f14c37000ee 100644 --- a/gdb/testsuite/gdb.base/call-strs.exp +++ b/gdb/testsuite/gdb.base/call-strs.exp @@ -143,105 +143,125 @@ gdb_expect { #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)" } - } +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") -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\")" } - } +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) -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)" } - } +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") -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\")" } - } +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) -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)" } - } +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) -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)" } - } +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") -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\")" } - } +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") -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\")" } - } +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) -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)" } - } +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) -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)" } - } +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 |