This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[RFA] Testsuite: skip tests that depend on stdio support.
- To: gdb-patches at sourceware dot cygnus dot com
- Subject: [RFA] Testsuite: skip tests that depend on stdio support.
- From: Michael Snyder <msnyder at happy dot cygnus dot com>
- Date: Fri, 13 Oct 2000 17:28:07 -0700
- Cc: ezannoni at happy dot cygnus dot com, fnasser at happy dot cygnus dot com
Here is a new utility function that returns true if the target does NOT
support stdio. This is true for instance on remote stubs that do not
convert printfs to "O" packets. Some tests must be skipped if they
depend on printf output from the child.
While I was at it, I made a similar function for floating point support.
2000-10-13 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.
Index: lib/gdb.exp
===================================================================
RCS file: /cvs/cvsfiles/devo/gdb/testsuite/lib/gdb.exp,v
retrieving revision 1.156
diff -c -p -r1.156 gdb.exp
*** gdb.exp 2000/03/14 06:47:51 1.156
--- gdb.exp 2000/10/14 00:25:48
*************** proc gdb_test { args } {
*** 502,507 ****
--- 502,516 ----
fail "$errmsg"
return -1
}
+ -re "Program exited normally.*$gdb_prompt $" {
+ if ![string match "" $message] then {
+ set errmsg "$message: the program exited normally"
+ } else {
+ set errmsg "$command: the program exited normally"
+ }
+ fail "$errmsg"
+ return -1
+ }
-re "The program is not being run.*$gdb_prompt $" {
if ![string match "" $message] then {
set errmsg "$message: the program is no longer running"
*************** proc gdbtk_analyze_results {results} {
*** 1686,1689 ****
--- 1695,1724 ----
}
}
}
+ }
+
+ # Print a message and return true if a test should be skipped
+ # due to lack of floating point suport.
+
+ proc gdb_skip_float_test { msg } {
+ if [target_info exists gdb,skip_float_tests] {
+ verbose "Skipping test '$msg': no float tests.";
+ return 1;
+ }
+ return 0;
+ }
+
+ # Print a message and return true if a test should be skipped
+ # due to lack of stdio support.
+
+ proc gdb_skip_stdio_test { msg } {
+ if [target_info exists gdb,noinferiorio] {
+ verbose "Skipping test '$msg': no inferior i/o.";
+ return 1;
+ }
+ return 0;
+ }
+
+ proc gdb_skip_bogus_test { msg } {
+ return 0;
}
Index: gdb.base/call-ar-st.exp
===================================================================
RCS file: /cvs/cvsfiles/devo/gdb/testsuite/gdb.base/call-ar-st.exp,v
retrieving revision 1.18
diff -c -p -r1.18 call-ar-st.exp
*** call-ar-st.exp 2000/07/04 02:42:48 1.18
--- call-ar-st.exp 2000/10/14 00:25:48
*************** proc set_lang_c {} {
*** 85,94 ****
}
}
-
source ${binfile}.ci
# Start with a fresh gdb.
gdb_exit
--- 85,107 ----
}
}
source ${binfile}.ci
+ proc call_ar_skip_test { testname } {
+ global ret;
+ set ret 0;
+ if {![target_info exists gdb,skip_float_tests]} {
+ set ret 1;
+ verbose "Skipping test '$testname': no float tests.";
+ }
+ if {![target_info exists gdb,noinferiorio]} {
+ set ret 1;
+ verbose "Skipping test '$testname': no inferior io.";
+ }
+ return $ret;
+ }
+
# Start with a fresh gdb.
gdb_exit
*************** gdb_test continue \
*** 116,122 ****
#call print_double_array(double_array)
! if {![target_info exists gdb,skip_float_tests]} {
send_gdb "print print_double_array(double_array)\n"
gdb_expect_list "print print_double_array(double_array)" ".*$gdb_prompt $" {
"\[ \t\r\n\]+array_d :"
--- 129,136 ----
#call print_double_array(double_array)
! if {![gdb_skip_float_test "print print_double_array(double_array)"] && \
! ![gdb_skip_stdio_test "print print_double_array(double_array)"] } {
send_gdb "print print_double_array(double_array)\n"
gdb_expect_list "print print_double_array(double_array)" ".*$gdb_prompt $" {
"\[ \t\r\n\]+array_d :"
*************** if {![target_info exists gdb,skip_float_
*** 140,172 ****
#call print_char_array(char_array)
! send_gdb "print print_char_array(char_array)\n"
! gdb_expect_list "print print_char_array(char_array)" ".*$gdb_prompt $" {
! "\[ \t\r\n\]+array_c :"
! "\[ \t\r\n\]+========="
! "\[ \t\r\n\]+\[ \t\r\n\]+Z"
! "\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZ"
! "\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZ"
! "\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZa\[ \t\r\n\]+\[ \t\r\n\]+"
}
#go -until 1216
gdb_test "tbreak 1216" \
"Breakpoint.*file.*$srcfile, line 1216.*" \
"tbreakpoint line 1216"
! send_gdb "continue\n"
! gdb_expect_list "continue to 1216" ".*$gdb_prompt $" {
! "\[ \t\r\n\]+array_c :"
! "\[ \t\r\n\]+========="
! "\[ \t\r\n\]+\[ \t\r\n\]+Z"
! "\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZ"
! "\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZ"
! "\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZa"
! "\[ \t\r\n\]+main.*at.*:1216"
! "\[ \t\r\n\]+1216.*print_double_array\\(double_array\\)"
}
# I am disabling this test, because it takes too long. I verified by
--- 154,193 ----
#call print_char_array(char_array)
! if ![gdb_skip_stdio_test "print_char_array(char_array)"] {
! send_gdb "print print_char_array(char_array)\n"
! gdb_expect_list "print print_char_array(char_array)" ".*$gdb_prompt $" {
! "\[ \t\r\n\]+array_c :"
! "\[ \t\r\n\]+========="
! "\[ \t\r\n\]+\[ \t\r\n\]+Z"
! "\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZ"
! "\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZ"
! "\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZa\[ \t\r\n\]+\[ \t\r\n\]+"
! }
}
+
#go -until 1216
gdb_test "tbreak 1216" \
"Breakpoint.*file.*$srcfile, line 1216.*" \
"tbreakpoint line 1216"
! if ![gdb_skip_stdio_test "continue to 1216"] {
! send_gdb "continue\n"
! gdb_expect_list "continue to 1216" ".*$gdb_prompt $" {
! "\[ \t\r\n\]+array_c :"
! "\[ \t\r\n\]+========="
! "\[ \t\r\n\]+\[ \t\r\n\]+Z"
! "\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZ"
! "\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZ"
! "\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZa"
! "\[ \t\r\n\]+main.*at.*:1216"
! "\[ \t\r\n\]+1216.*print_double_array\\(double_array\\)"
! }
! } else {
! gdb_test "continue" "" ""
}
# I am disabling this test, because it takes too long. I verified by
*************** gdb_expect_list "continue to 1216" ".*$g
*** 184,257 ****
#set timeout $oldtimeout
#go -until 1220
gdb_test "tbreak 1220" \
! "Breakpoint.* file .*$srcfile, line 1220.*" \
! "tbreakpoint line 1220"
! send_gdb "continue\n"
! gdb_expect_list "continuing to breakpoint 1220" ".*$gdb_prompt $" {
! "Continuing\\."
! "\[ \t\r\n\]+array_d :"
! "\[ \t\r\n\]+========="
! "\[ \t\r\n\]+0.000000"
! "\[ \t\r\n\]+23.456700 46.913400 70.370100 93.826800 117.283500 140.740200 164.196900 187.653600"
! "\[ \t\r\n\]+211.110300 234.567000 258.023700 281.480400 304.937100 328.393800 351.850500 375.307200"
! "\[ \t\r\n\]+398.763900 422.220600 445.677300 469.134000 492.590700 516.047400 539.504100 562.960800"
! "\[ \t\r\n\]+586.417500 609.874200 633.330900 656.787600 680.244300 703.701000 727.157700 750.614400"
! "\[ \t\r\n\]+774.071100 797.527800 820.984500 844.441200 867.897900 891.354600 914.811300 938.268000"
! "\[ \t\r\n\]+961.724700 985.181400 1008.638100 1032.094800 1055.551500 1079.008200 1102.464900 1125.921600"
! "\[ \t\r\n\]+1149.378300 1172.835000 1196.291700 1219.748400 1243.205100 1266.661800 1290.118500 1313.575200"
! "\[ \t\r\n\]+1337.031900 1360.488600 1383.945300 1407.402000 1430.858700 1454.315400 1477.772100 1501.228800"
! "\[ \t\r\n\]+1524.685500 1548.142200 1571.598900 1595.055600 1618.512300 1641.969000 1665.425700 1688.882400"
! "\[ \t\r\n\]+1712.339100 1735.795800 1759.252500 1782.709200 1806.165900 1829.622600 1853.079300 1876.536000"
! "\[ \t\r\n\]+1899.992700 1923.449400 1946.906100 1970.362800 1993.819500 2017.276200 2040.732900 2064.189600"
! "\[ \t\r\n\]+2087.646300 2111.103000 2134.559700 2158.016400 2181.473100 2204.929800 2228.386500 2251.843200"
! "\[ \t\r\n\]+2275.299900 2298.756600 2322.213300\[ \t\r\n\]+\[ \t\r\n\]+"
! ".*array_f :"
! ".*student id :\[\t \]+.*YELLOW"
! ".*array_i :"
! ".*main \\(\\) at .*call-ar-st.c:1220\[ \t\r\n\]+.*print_all_arrays\\(integer_array, char_array, float_array, double_array\\)."
}
#step
! send_gdb "step\n"
! gdb_expect {
! -re "print_all_arrays \\(array_i=, array_c=.ZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZa., array_f=, array_d=\\) at .*call-ar-st.c:306\[ \t\r\n\]+306.*print_int_array\\(array_i\\);.*$gdb_prompt $" {pass "step inside print_all_arrays"}
! -re ".*$gdb_prompt $" { fail "step inside print_all_arrays" }
! timeout { fail "step inside print_all_arrays (timeout)" }
! }
#step -over
send_gdb "next\n"
gdb_expect {
! -re "array_i :.*307.*print_char_array\\(array_c\\);.*$gdb_prompt $" {pass "next over print_int_array in print-all_arrays"}
! -re ".*$gdb_prompt $" { fail "next over print_int_array in print-all_arrays" }
! timeout { fail "next over print_int_array in print-all_arrays (timeout)" }
}
!
!
#call print_double_array(array_d)
! if {![target_info exists gdb,skip_float_tests]} {
! send_gdb "print print_double_array(array_d)\n"
! gdb_expect_list "print print_double_array(array_d)" ".*$gdb_prompt $" {
! "array_d :"
! "\[ \t\r\n\]+========="
! "\[ \t\r\n\]+\[ \t\r\n\]+0.000000"
! "\[ \t\r\n\]+23.456700 46.913400 70.370100 93.826800 117.283500 140.740200 164.196900 187.653600"
! "\[ \t\r\n\]+211.110300 234.567000 258.023700 281.480400 304.937100 328.393800 351.850500 375.307200"
! "\[ \t\r\n\]+398.763900 422.220600 445.677300 469.134000 492.590700 516.047400 539.504100 562.960800"
! "\[ \t\r\n\]+586.417500 609.874200 633.330900 656.787600 680.244300 703.701000 727.157700 750.614400"
! "\[ \t\r\n\]+774.071100 797.527800 820.984500 844.441200 867.897900 891.354600 914.811300 938.268000"
! "\[ \t\r\n\]+961.724700 985.181400 1008.638100 1032.094800 1055.551500 1079.008200 1102.464900 1125.921600"
! "\[ \t\r\n\]+1149.378300 1172.835000 1196.291700 1219.748400 1243.205100 1266.661800 1290.118500 1313.575200"
! "\[ \t\r\n\]+1337.031900 1360.488600 1383.945300 1407.402000 1430.858700 1454.315400 1477.772100 1501.228800"
! "\[ \t\r\n\]+1524.685500 1548.142200 1571.598900 1595.055600 1618.512300 1641.969000 1665.425700 1688.882400"
! "\[ \t\r\n\]+1712.339100 1735.795800 1759.252500 1782.709200 1806.165900 1829.622600 1853.079300 1876.536000"
! "\[ \t\r\n\]+1899.992700 1923.449400 1946.906100 1970.362800 1993.819500 2017.276200 2040.732900 2064.189600"
! "\[ \t\r\n\]+2087.646300 2111.103000 2134.559700 2158.016400 2181.473100 2204.929800 2228.386500 2251.843200"
! "\[ \t\r\n\]+2275.299900 2298.756600 2322.213300\[ \t\r\n\]+\[ \t\r\n\]+"
! }
}
#go -until 1236
--- 205,292 ----
#set timeout $oldtimeout
#go -until 1220
gdb_test "tbreak 1220" \
! "Breakpoint.* file .*$srcfile, line 1220.*" \
! "tbreakpoint line 1220"
! if ![gdb_skip_stdio_test "continuing to breakpoint 1220"] {
! send_gdb "continue\n"
! gdb_expect_list "continuing to breakpoint 1220" ".*$gdb_prompt $" {
! "Continuing\\."
! "\[ \t\r\n\]+array_d :"
! "\[ \t\r\n\]+========="
! "\[ \t\r\n\]+0.000000"
! "\[ \t\r\n\]+23.456700 46.913400 70.370100 93.826800 117.283500 140.740200 164.196900 187.653600"
! "\[ \t\r\n\]+211.110300 234.567000 258.023700 281.480400 304.937100 328.393800 351.850500 375.307200"
! "\[ \t\r\n\]+398.763900 422.220600 445.677300 469.134000 492.590700 516.047400 539.504100 562.960800"
! "\[ \t\r\n\]+586.417500 609.874200 633.330900 656.787600 680.244300 703.701000 727.157700 750.614400"
! "\[ \t\r\n\]+774.071100 797.527800 820.984500 844.441200 867.897900 891.354600 914.811300 938.268000"
! "\[ \t\r\n\]+961.724700 985.181400 1008.638100 1032.094800 1055.551500 1079.008200 1102.464900 1125.921600"
! "\[ \t\r\n\]+1149.378300 1172.835000 1196.291700 1219.748400 1243.205100 1266.661800 1290.118500 1313.575200"
! "\[ \t\r\n\]+1337.031900 1360.488600 1383.945300 1407.402000 1430.858700 1454.315400 1477.772100 1501.228800"
! "\[ \t\r\n\]+1524.685500 1548.142200 1571.598900 1595.055600 1618.512300 1641.969000 1665.425700 1688.882400"
! "\[ \t\r\n\]+1712.339100 1735.795800 1759.252500 1782.709200 1806.165900 1829.622600 1853.079300 1876.536000"
! "\[ \t\r\n\]+1899.992700 1923.449400 1946.906100 1970.362800 1993.819500 2017.276200 2040.732900 2064.189600"
! "\[ \t\r\n\]+2087.646300 2111.103000 2134.559700 2158.016400 2181.473100 2204.929800 2228.386500 2251.843200"
! "\[ \t\r\n\]+2275.299900 2298.756600 2322.213300\[ \t\r\n\]+\[ \t\r\n\]+"
! ".*array_f :"
! ".*student id :\[\t \]+.*YELLOW"
! ".*array_i :"
! ".*main \\(\\) at .*call-ar-st.c:1220\[ \t\r\n\]+.*print_all_arrays\\(integer_array, char_array, float_array, double_array\\)."
! }
! } else {
! gdb_test "continue" "" ""
}
#step
! send_gdb "step\n"
! gdb_expect {
! -re "print_all_arrays \\(array_i=, array_c=.ZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZa., array_f=, array_d=\\) at .*call-ar-st.c:306\[ \t\r\n\]+306.*print_int_array\\(array_i\\);.*$gdb_prompt $" {pass "step inside print_all_arrays"}
! -re ".*$gdb_prompt $" { fail "step inside print_all_arrays" }
! timeout { fail "step inside print_all_arrays (timeout)" }
! }
#step -over
+ if ![gdb_skip_stdio_test "next over print_int_array in print_all_arrays"] {
send_gdb "next\n"
gdb_expect {
! -re "array_i :.*307.*print_char_array.*$gdb_prompt $" {
! pass "next over print_int_array in print-all_arrays"
! }
! -re ".*$gdb_prompt $" {
! fail "next over print_int_array in print-all_arrays"
! }
! timeout {
! fail "next over print_int_array in print-all_arrays (timeout)"
! }
}
! } else {
! gdb_test "next" "" ""
! }
+ # ???? FIXME MVS ????
#call print_double_array(array_d)
! if {![gdb_skip_float_test "print print_double_array(array_d)"] && \
! ![gdb_skip_stdio_test "print print_double_array(array_d)"] } {
! send_gdb "print print_double_array(array_d)\n"
! gdb_expect_list "print print_double_array(array_d)" ".*$gdb_prompt $" {
! "array_d :"
! "\[ \t\r\n\]+========="
! "\[ \t\r\n\]+\[ \t\r\n\]+0.000000"
! "\[ \t\r\n\]+23.456700 46.913400 70.370100 93.826800 117.283500 140.740200 164.196900 187.653600"
! "\[ \t\r\n\]+211.110300 234.567000 258.023700 281.480400 304.937100 328.393800 351.850500 375.307200"
! "\[ \t\r\n\]+398.763900 422.220600 445.677300 469.134000 492.590700 516.047400 539.504100 562.960800"
! "\[ \t\r\n\]+586.417500 609.874200 633.330900 656.787600 680.244300 703.701000 727.157700 750.614400"
! "\[ \t\r\n\]+774.071100 797.527800 820.984500 844.441200 867.897900 891.354600 914.811300 938.268000"
! "\[ \t\r\n\]+961.724700 985.181400 1008.638100 1032.094800 1055.551500 1079.008200 1102.464900 1125.921600"
! "\[ \t\r\n\]+1149.378300 1172.835000 1196.291700 1219.748400 1243.205100 1266.661800 1290.118500 1313.575200"
! "\[ \t\r\n\]+1337.031900 1360.488600 1383.945300 1407.402000 1430.858700 1454.315400 1477.772100 1501.228800"
! "\[ \t\r\n\]+1524.685500 1548.142200 1571.598900 1595.055600 1618.512300 1641.969000 1665.425700 1688.882400"
! "\[ \t\r\n\]+1712.339100 1735.795800 1759.252500 1782.709200 1806.165900 1829.622600 1853.079300 1876.536000"
! "\[ \t\r\n\]+1899.992700 1923.449400 1946.906100 1970.362800 1993.819500 2017.276200 2040.732900 2064.189600"
! "\[ \t\r\n\]+2087.646300 2111.103000 2134.559700 2158.016400 2181.473100 2204.929800 2228.386500 2251.843200"
! "\[ \t\r\n\]+2275.299900 2298.756600 2322.213300\[ \t\r\n\]+\[ \t\r\n\]+"
! }
}
#go -until 1236
*************** gdb_test "tbreak 1236" \
*** 259,316 ****
"Breakpoint.* file .*$srcfile, line 1236.*" \
"tbreakpoint line 1236"
! send_gdb "continue\n"
! gdb_expect_list "continuing to 1236" ".*$gdb_prompt $" {
! "Continuing\\..*array_c"
! ".*array_f"
! "\[ \t\r\n\]+array_d :"
! "\[ \t\r\n\]+========="
! "\[ \t\r\n\]+0.000000"
! "\[ \t\r\n\]+23.456700 46.913400 70.370100 93.826800 117.283500 140.740200 164.196900 187.653600"
! "\[ \t\r\n\]+211.110300 234.567000 258.023700 281.480400 304.937100 328.393800 351.850500 375.307200"
! "\[ \t\r\n\]+398.763900 422.220600 445.677300 469.134000 492.590700 516.047400 539.504100 562.960800"
! "\[ \t\r\n\]+586.417500 609.874200 633.330900 656.787600 680.244300 703.701000 727.157700 750.614400"
! "\[ \t\r\n\]+774.071100 797.527800 820.984500 844.441200 867.897900 891.354600 914.811300 938.268000"
! "\[ \t\r\n\]+961.724700 985.181400 1008.638100 1032.094800 1055.551500 1079.008200 1102.464900 1125.921600"
! "\[ \t\r\n\]+1149.378300 1172.835000 1196.291700 1219.748400 1243.205100 1266.661800 1290.118500 1313.575200"
! "\[ \t\r\n\]+1337.031900 1360.488600 1383.945300 1407.402000 1430.858700 1454.315400 1477.772100 1501.228800"
! "\[ \t\r\n\]+1524.685500 1548.142200 1571.598900 1595.055600 1618.512300 1641.969000 1665.425700 1688.882400"
! "\[ \t\r\n\]+1712.339100 1735.795800 1759.252500 1782.709200 1806.165900 1829.622600 1853.079300 1876.536000"
! "\[ \t\r\n\]+1899.992700 1923.449400 1946.906100 1970.362800 1993.819500 2017.276200 2040.732900 2064.189600"
! "\[ \t\r\n\]+2087.646300 2111.103000 2134.559700 2158.016400 2181.473100 2204.929800 2228.386500 2251.843200"
! "\[ \t\r\n\]+2275.299900 2298.756600 2322.213300.*HELLO WORLD.*main \\(\\) at .*call-ar-st.c:1236.*printf\\(.BYE BYE FOR NOW.n.\\)."
}
#call sum_array_print(10, *list1, *list2, *list3, *list4)
! send_gdb "print sum_array_print(10, *list1, *list2, *list3, *list4)\n"
! gdb_expect {
! -re ".*Sum of 4 arrays, by element \\(add in seed as well\\):\[ \t\r\n\]+Seed: 10\[ \t\r\n\]+Element Index . Sum\[ \t\r\n\]+-------------------------\[ \t\r\n\]+.*\[ \t\]+0\[ \t\]+52\[ \t\r\n\]+1\[ \t\]+60\[ \t\r\n\]+2\[ \t\]+68\[ \t\r\n\]+3\[ \t\]+76\[ \t\r\n\]+4\[ \t\]+84\[ \t\r\n\]+5\[ \t\]+92\[ \t\r\n\]+6\[ \t\]+100\[ \t\r\n\]+7\[ \t\]+108\[ \t\r\n\]+8\[ \t\]+116\[ \t\r\n\]+9\[ \t\]+124\[ \t\r\n\]+.*$gdb_prompt $" {
! pass "print sum_array_print(10, *list1, *list2, *list3, *list4)"
! }
! -re ".*$gdb_prompt $" { fail "print sum_array_print(10, *list1, *list2, *list3, *list4)" }
! timeout { fail "(timeout) print sum_array_print(10, *list1, *list2, *list3, *list4)" }
! }
#step over
! send_gdb "n\n"
! gdb_expect {
! -re ".*BYE BYE FOR NOW.*1237.*printf\\(.VERY GREEN GRASS.n.\\);.*$gdb_prompt $" { pass "next to 1237"}
! -re ".*$gdb_prompt $" { fail "next to 1237" }
! timeout { fail "next to 1237(timeout)" }
}
#call print_array_rep(\*list1, \*list2, \*list3)
! send_gdb "print print_array_rep(\*list1, \*list2, \*list3)\n"
! gdb_expect {
! -re ".*$gdb_prompt $" {
! pass "print print_array_rep(*list1, *list2, *list3)"
! }
! -re ".*$gdb_prompt $" { fail "print print_array_rep(*list1, *list2, *list3)" }
! timeout { fail "(timeout) print print_array_rep(*list1, *list2, *list3)" }
! }
#go -until 1241
gdb_test "tbreak 1241" \
--- 294,367 ----
"Breakpoint.* file .*$srcfile, line 1236.*" \
"tbreakpoint line 1236"
! if ![gdb_skip_stdio_test "continuing to 1236"] {
! send_gdb "continue\n"
! gdb_expect_list "continuing to 1236" ".*$gdb_prompt $" {
! "Continuing\\..*array_c"
! ".*array_f"
! "\[ \t\r\n\]+array_d :"
! "\[ \t\r\n\]+========="
! "\[ \t\r\n\]+0.000000"
! "\[ \t\r\n\]+23.456700 46.913400 70.370100 93.826800 117.283500 140.740200 164.196900 187.653600"
! "\[ \t\r\n\]+211.110300 234.567000 258.023700 281.480400 304.937100 328.393800 351.850500 375.307200"
! "\[ \t\r\n\]+398.763900 422.220600 445.677300 469.134000 492.590700 516.047400 539.504100 562.960800"
! "\[ \t\r\n\]+586.417500 609.874200 633.330900 656.787600 680.244300 703.701000 727.157700 750.614400"
! "\[ \t\r\n\]+774.071100 797.527800 820.984500 844.441200 867.897900 891.354600 914.811300 938.268000"
! "\[ \t\r\n\]+961.724700 985.181400 1008.638100 1032.094800 1055.551500 1079.008200 1102.464900 1125.921600"
! "\[ \t\r\n\]+1149.378300 1172.835000 1196.291700 1219.748400 1243.205100 1266.661800 1290.118500 1313.575200"
! "\[ \t\r\n\]+1337.031900 1360.488600 1383.945300 1407.402000 1430.858700 1454.315400 1477.772100 1501.228800"
! "\[ \t\r\n\]+1524.685500 1548.142200 1571.598900 1595.055600 1618.512300 1641.969000 1665.425700 1688.882400"
! "\[ \t\r\n\]+1712.339100 1735.795800 1759.252500 1782.709200 1806.165900 1829.622600 1853.079300 1876.536000"
! "\[ \t\r\n\]+1899.992700 1923.449400 1946.906100 1970.362800 1993.819500 2017.276200 2040.732900 2064.189600"
! "\[ \t\r\n\]+2087.646300 2111.103000 2134.559700 2158.016400 2181.473100 2204.929800 2228.386500 2251.843200"
! "\[ \t\r\n\]+2275.299900 2298.756600 2322.213300.*HELLO WORLD.*main \\(\\) at .*call-ar-st.c:1236.*printf\\(.BYE BYE FOR NOW.n.\\)."
! }
! } else {
! gdb_test "continue" "" ""
}
#call sum_array_print(10, *list1, *list2, *list3, *list4)
! if ![gdb_skip_stdio_test "print sum_array_print(...)"] {
! send_gdb "print sum_array_print(10, *list1, *list2, *list3, *list4)\n"
! gdb_expect {
! -re ".*Sum of 4 arrays, by element \\(add in seed as well\\):\[ \t\r\n\]+Seed: 10\[ \t\r\n\]+Element Index . Sum\[ \t\r\n\]+-------------------------\[ \t\r\n\]+.*\[ \t\]+0\[ \t\]+52\[ \t\r\n\]+1\[ \t\]+60\[ \t\r\n\]+2\[ \t\]+68\[ \t\r\n\]+3\[ \t\]+76\[ \t\r\n\]+4\[ \t\]+84\[ \t\r\n\]+5\[ \t\]+92\[ \t\r\n\]+6\[ \t\]+100\[ \t\r\n\]+7\[ \t\]+108\[ \t\r\n\]+8\[ \t\]+116\[ \t\r\n\]+9\[ \t\]+124\[ \t\r\n\]+.*$gdb_prompt $" {
! pass "print sum_array_print(10, *list1, *list2, *list3, *list4)"
! }
! -re ".*$gdb_prompt $" { fail "print sum_array_print(10, *list1, *list2, *list3, *list4)" }
! timeout { fail "(timeout) print sum_array_print(10, *list1, *list2, *list3, *list4)" }
! }
! }
#step over
! if ![gdb_skip_stdio_test "next to 1237"] {
! send_gdb "next\n"
! gdb_expect {
! -re ".*BYE BYE FOR NOW.*1237.*printf\\(.VERY GREEN GRASS.n.\\);.*$gdb_prompt $" { pass "next to 1237"}
! -re ".*$gdb_prompt $" { fail "next to 1237" }
! timeout { fail "next to 1237(timeout)" }
! }
! } else {
! gdb_test "next" "" ""
}
#call print_array_rep(\*list1, \*list2, \*list3)
! if ![gdb_skip_stdio_test "print print_array_rep(...)"] {
! send_gdb "print print_array_rep(\*list1, \*list2, \*list3)\n"
! gdb_expect {
! -re ".*$gdb_prompt $" {
! pass "print print_array_rep(*list1, *list2, *list3)"
! }
! -re ".*$gdb_prompt $" {
! fail "print print_array_rep(*list1, *list2, *list3)"
! }
! timeout {
! fail "(timeout) print print_array_rep(*list1, *list2, *list3)"
! }
! }
! }
#go -until 1241
gdb_test "tbreak 1241" \
*************** gdb_test "tbreak 1281" \
*** 361,377 ****
"Breakpoint.* file .*call-ar-st.c, line 1281.*" \
"tbreakpoint line 1281"
! send_gdb "continue\n"
! gdb_expect {
! -re "Continuing\\..*Sum of 4 arrays.*Contents of linked list1.*Contents of two_floats_t.*main \\(\\) at .*call-ar-st.c:1281.*c = 0.*$gdb_prompt $" {
! pass "continue to 1281"}
! -re ".*$gdb_prompt $" { fail "continue to 1281"}
! timeout { fail "(timeout) continue to 1281"}
}
! #call print_small_structs(*struct1, *struct2, *struct3, *struct4,*flags, *flags_combo,
! #*three_char, *five_char, *int_char_combo, *d1, *d2, *d3, *f1, *f2, *f3)
! if {![target_info exists gdb,skip_float_tests]} {
send_gdb "print print_small_structs(*struct1, *struct2, *struct3, *struct4, *flags, *flags_combo, *three_char, *five_char, *int_char_combo, *d1, *d2, *d3, *f1, *f2, *f3)\n"
gdb_expect_list "print print_small_structs" ".*$gdb_prompt $" {
"\[\t\r\n \]+alpha"
--- 412,436 ----
"Breakpoint.* file .*call-ar-st.c, line 1281.*" \
"tbreakpoint line 1281"
! if ![gdb_skip_stdio_test "continuing to 1281"] {
! send_gdb "continue\n"
! gdb_expect {
! -re "Continuing\\..*Sum of 4 arrays.*Contents of linked list1.*Contents of two_floats_t.*main \\(\\) at .*call-ar-st.c:1281.*c = 0.*$gdb_prompt $" {
! pass "continue to 1281"
! }
! -re ".*$gdb_prompt $" { fail "continue to 1281"}
! timeout { fail "(timeout) continue to 1281"}
! }
! } else {
! gdb_test "continue" "" ""
}
! #call print_small_structs(*struct1, *struct2, *struct3, *struct4,
! # *flags, *flags_combo, *three_char, *five_char,
! # *int_char_combo, *d1, *d2, *d3, *f1, *f2, *f3)
!
! if {![gdb_skip_float_test "print print_small_structs(...)"] && \
! ![gdb_skip_stdio_test "print print_small_structs(...)"] } {
send_gdb "print print_small_structs(*struct1, *struct2, *struct3, *struct4, *flags, *flags_combo, *three_char, *five_char, *int_char_combo, *d1, *d2, *d3, *f1, *f2, *f3)\n"
gdb_expect_list "print print_small_structs" ".*$gdb_prompt $" {
"\[\t\r\n \]+alpha"
*************** gdb_expect {
*** 420,428 ****
timeout { fail "(timeout) compute_with_small_structs(20)" }
}
! #call print_ten_doubles(123.456, 123.456, -0.12, -1.23, 343434.8, 89.098, 3.14, -5678.12345, -0.11111111, 216.97065)
! if {![target_info exists gdb,skip_float_tests]} {
send_gdb "print print_ten_doubles(123.456, 123.456, -0.12, -1.23, 343434.8, 89.098, 3.14, -5678.12345, -0.11111111, 216.97065)\n"
gdb_expect_list "print print_ten_doubles" ".*$gdb_prompt $" {
"\[\t\r\n \]+Two Doubles : 123.456000.*123.456000"
--- 479,490 ----
timeout { fail "(timeout) compute_with_small_structs(20)" }
}
+
+ #call print_ten_doubles(123.456, 123.456, -0.12, -1.23, 343434.8, 89.098,
+ # 3.14, -5678.12345, -0.11111111, 216.97065)
! if {![gdb_skip_float_test "print print_ten_doubles(...)"] && \
! ![gdb_skip_stdio_test "print print_ten_doubles(...)"]} {
send_gdb "print print_ten_doubles(123.456, 123.456, -0.12, -1.23, 343434.8, 89.098, 3.14, -5678.12345, -0.11111111, 216.97065)\n"
gdb_expect_list "print print_ten_doubles" ".*$gdb_prompt $" {
"\[\t\r\n \]+Two Doubles : 123.456000.*123.456000"
*************** if { [istarget "hppa*-*-hpux*"] } {
*** 469,475 ****
# overflows or something, and expect can't deal with the full
# line. Perhaps a more elegant solution exists... -sts 1999-08-17
send_gdb "continue\n"
! if {![target_info exists gdb,skip_float_tests]} {
gdb_expect {
-re ".*print_long_arg_list \\(a=22.25, b=33.375, c=0, d=-25, e=100, f=2345, struct1=\{value = 6, head = 0\}, struct2=\{value = 10, head = 0\}, struct3=\{value = 12, head = 0\}, struct4=\{value = 14, head = 0\}, flags=\{alpha = 1, beta = 0, gamma = 1, delta = 0, epsilon = 1, omega = 0\}, flags_combo=\{alpha = 1, beta = 0, ch1 = 121 \'y\', gamma = 1, delta = 0, ch2 = 110 \'n\', epsilon = 1, omega = 0\}, three_char=\{ch1 = 97 \'a\', ch2 = 98 \'b\', ch3 = 99 \'c\'\}, five_char=\{ch1 = 108 \'l\', ch2 = 109 \'m\', ch3 = 110 \'n\', ch4 = 111 \'o\', ch5 = 112 \'p\'\}, int_char_combo=\{int1 = 123, ch1 = 122 \'z\'\}, d1=\{double1 = 10.5\}, d2=\{double1 = -3.375\}, d3=\{double1 = 675.09375\}, f1=\{float1 = 45.2340012, float2 = 43.5999985\}, f2=\{float1 = 78.0100021, float2 = 122.099998\}, f3=\{float1 = -1232.34497, float2 = -199.210007\}\\) at .*${srcfile}:992\[\r\n\]+992\[ \t\]+printf\\(\"double :.*\", a\\);.*$gdb_prompt $" { pass "step into print_long_arg_list" }
-re ".*print_long_arg_list.*\\(a=22.25, b=33.375, c=0, d=-25, e=100, f=2345, struct1=\{value = 6, head = 0\}, struct2=\{value = 10, head = 0\}, struct3=\{value = 12, head = 0\}, struct4=\{value = 14, head = 0\}, flags=\{alpha = 1, beta = 0, gamma = 1, delta = 0, epsilon = 1, omega = 0\}, flags_combo=\{alpha = 1, beta = 0, ch1 = 121 \'y\', gamma = 1, delta = 0, ch2 = 110 \'n\', epsilon = 1, omega = 0\}, three_char=\{ch1 = 97 \'a\', ch2 = 98 \'b\', ch3 = 99 \'c\'\}.*\\) at .*${srcfile}:992\[\r\n\]+992\[ \t\]+printf\\(\"double :.*\", a\\);.*$gdb_prompt $" {pass "step into print_long_arg_list (short match)"}
--- 531,537 ----
# overflows or something, and expect can't deal with the full
# line. Perhaps a more elegant solution exists... -sts 1999-08-17
send_gdb "continue\n"
! if {![gdb_skip_float_test "step into print_long_arg_list"]} {
gdb_expect {
-re ".*print_long_arg_list \\(a=22.25, b=33.375, c=0, d=-25, e=100, f=2345, struct1=\{value = 6, head = 0\}, struct2=\{value = 10, head = 0\}, struct3=\{value = 12, head = 0\}, struct4=\{value = 14, head = 0\}, flags=\{alpha = 1, beta = 0, gamma = 1, delta = 0, epsilon = 1, omega = 0\}, flags_combo=\{alpha = 1, beta = 0, ch1 = 121 \'y\', gamma = 1, delta = 0, ch2 = 110 \'n\', epsilon = 1, omega = 0\}, three_char=\{ch1 = 97 \'a\', ch2 = 98 \'b\', ch3 = 99 \'c\'\}, five_char=\{ch1 = 108 \'l\', ch2 = 109 \'m\', ch3 = 110 \'n\', ch4 = 111 \'o\', ch5 = 112 \'p\'\}, int_char_combo=\{int1 = 123, ch1 = 122 \'z\'\}, d1=\{double1 = 10.5\}, d2=\{double1 = -3.375\}, d3=\{double1 = 675.09375\}, f1=\{float1 = 45.2340012, float2 = 43.5999985\}, f2=\{float1 = 78.0100021, float2 = 122.099998\}, f3=\{float1 = -1232.34497, float2 = -199.210007\}\\) at .*${srcfile}:992\[\r\n\]+992\[ \t\]+printf\\(\"double :.*\", a\\);.*$gdb_prompt $" { pass "step into print_long_arg_list" }
-re ".*print_long_arg_list.*\\(a=22.25, b=33.375, c=0, d=-25, e=100, f=2345, struct1=\{value = 6, head = 0\}, struct2=\{value = 10, head = 0\}, struct3=\{value = 12, head = 0\}, struct4=\{value = 14, head = 0\}, flags=\{alpha = 1, beta = 0, gamma = 1, delta = 0, epsilon = 1, omega = 0\}, flags_combo=\{alpha = 1, beta = 0, ch1 = 121 \'y\', gamma = 1, delta = 0, ch2 = 110 \'n\', epsilon = 1, omega = 0\}, three_char=\{ch1 = 97 \'a\', ch2 = 98 \'b\', ch3 = 99 \'c\'\}.*\\) at .*${srcfile}:992\[\r\n\]+992\[ \t\]+printf\\(\"double :.*\", a\\);.*$gdb_prompt $" {pass "step into print_long_arg_list (short match)"}
*************** if { [istarget "hppa*-*-hpux*"] } {
*** 488,495 ****
set ws "\[\n\r\t \]+"
! #call print_small_structs(struct1, struct2, struct3, struct4, flags, flags_combo, three_char, five_char, int_char_combo, d1, d2, d3, f1, f2, f3)
! if {![target_info exists gdb,skip_float_tests]} {
# On Solaris, some of the args are passed by ref, others by value,
# and GDB gets confused and says "Invalid cast" because it thinks
# it has to cast the structure into a pointer to structure. A real
--- 550,561 ----
set ws "\[\n\r\t \]+"
! #call print_small_structs(struct1, struct2, struct3, struct4, flags,
! # flags_combo, three_char, five_char, int_char_combo,
! # d1, d2, d3, f1, f2, f3)
!
! if {![gdb_skip_float_test "print_small_structs from print_long_arg_list"] && \
! ![gdb_skip_stdio_test "print_small_structs from print_long_arg_list"] } {
# On Solaris, some of the args are passed by ref, others by value,
# and GDB gets confused and says "Invalid cast" because it thinks
# it has to cast the structure into a pointer to structure. A real
*************** gdb_test "tbreak 1300" \
*** 539,546 ****
"Breakpoint.* file .*call-ar-st.c, line 1300.*" \
"tbreakpoint line 1300"
! gdb_test continue "Continuing\\..*Contents of two_floats_t:.*main \\(\\) at.*call-ar-st.c:1300.*1300.*init_bit_flags_combo\\(flags_combo, \\(unsigned\\)1, \\(unsigned\\)0, .y.,.*" \
! "continue to 1300"
#step
send_gdb "step\n"
--- 605,616 ----
"Breakpoint.* file .*call-ar-st.c, line 1300.*" \
"tbreakpoint line 1300"
! if ![gdb_skip_stdio_test "continuing to 1300"] {
! gdb_test "continue" "Continuing\\..*Contents of two_floats_t:.*main \\(\\) at.*call-ar-st.c:1300.*1300.*init_bit_flags_combo\\(flags_combo, \\(unsigned\\)1, \\(unsigned\\)0, .y.,.*" \
! "continue to 1300"
! } else {
! gdb_test "continue" "" ""
! }
#step
send_gdb "step\n"
*************** init_bit_flags_combo \\(bit_flags_combo=
*** 553,566 ****
}
#call print_bit_flags_combo(*bit_flags_combo)
! send_gdb "print print_bit_flags_combo(*bit_flags_combo)\n"
! gdb_expect {
! -re ".*alpha.*gamma.*epsilon.*ch1: y.*ch2: n.*$gdb_prompt $" {
! pass "print print_bit_flags_combo from init_bit_flags_combo"
! }
! -re ".*$gdb_prompt $" { fail "print print_bit_flags_combo from init_bit_flags_combo" }
! timeout { fail "(timeout) print_bit_flags_combo from init_bit_flags_combo" }
! }
#go -until 1305
--- 623,642 ----
}
#call print_bit_flags_combo(*bit_flags_combo)
! if ![gdb_skip_stdio_test "continuing to 1300"] {
! send_gdb "print print_bit_flags_combo(*bit_flags_combo)\n"
! gdb_expect {
! -re ".*alpha.*gamma.*epsilon.*ch1: y.*ch2: n.*$gdb_prompt $" {
! pass "print print_bit_flags_combo from init_bit_flags_combo"
! }
! -re ".*$gdb_prompt $" {
! fail "print print_bit_flags_combo from init_bit_flags_combo"
! }
! timeout {
! fail "(timeout) print_bit_flags_combo from init_bit_flags_combo"
! }
! }
! }
#go -until 1305
*************** gdb_test continue "Continuing\\..*main \
*** 579,585 ****
if {$hp_aCC_compiler} {setup_xfail "hppa*-*-*" CLLbs16994}
! if {![target_info exists gdb,skip_float_tests]} {
send_gdb "print print_long_arg_list(a, b, c, d, e, f, *struct1, *struct2, *struct3, *struct4, *flags, *flags_combo, *three_char, *five_char, *int_char_combo, *d1, *d2, *d3, *f1, *f2, *f3)\n"
gdb_expect_list "print print_long_arg_list" ".*$gdb_prompt $" {
"\[ \n\r\t\]+double : 22.250000"
--- 655,662 ----
if {$hp_aCC_compiler} {setup_xfail "hppa*-*-*" CLLbs16994}
! if {![gdb_skip_float_test "print print_long_arg_list"] && \
! ![gdb_skip_stdio_test "print print_long_arg_list"] } {
send_gdb "print print_long_arg_list(a, b, c, d, e, f, *struct1, *struct2, *struct3, *struct4, *flags, *flags_combo, *three_char, *five_char, *int_char_combo, *d1, *d2, *d3, *f1, *f2, *f3)\n"
gdb_expect_list "print print_long_arg_list" ".*$gdb_prompt $" {
"\[ \n\r\t\]+double : 22.250000"
*************** gdb_test continue "Continuing\\..*main \
*** 632,666 ****
#call sum_struct_print(10, *struct1, *struct2, *struct3, *struct4)
! send_gdb "print sum_struct_print(10, *struct1, *struct2, *struct3, *struct4)\n"
! gdb_expect {
! -re ".*Sum of the 4 struct values and seed :\[ \t\n\r\]+218.*$gdb_prompt $" {
! pass "print sum_struct_print(10, *struct1, *struct2, *struct3, *struct4)"
! }
! -re ".*$gdb_prompt $" { fail "print sum_struct_print(10, *struct1, *struct2, *struct3, *struct4)" }
! timeout { fail "(timeout) sum_struct_print(10, *struct1, *struct2, *struct3, *struct4)" }
! }
#call print_struct_rep(*struct1, *struct2, *struct3)
! send_gdb "print print_struct_rep(*struct1, *struct2, *struct3)\n"
! gdb_expect_list "print print_struct_rep(*struct1, *struct2, *struct3)" ".*$gdb_prompt $" {
! "\[ \t\n\r\]+Contents of struct1:"
! "\[ \t\n\r\]+ 22 0"
! "\[ \t\n\r\]+Contents of struct2:"
! "\[ \t\n\r\]+ 42 0"
! "\[ \t\n\r\]+Contents of struct3:"
! "\[ \t\n\r\]+ 62 0"
}
! send_gdb "print print_one_large_struct(*list1)\n"
! gdb_expect {
! -re ".* 4 1.*$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)" }
! }
return
--- 709,758 ----
#call sum_struct_print(10, *struct1, *struct2, *struct3, *struct4)
! if ![gdb_skip_stdio_test "print sum_struct_print(...)"] {
! send_gdb "print sum_struct_print(10, *struct1, *struct2, *struct3, *struct4)\n"
! gdb_expect {
! -re ".*Sum of the 4 struct values and seed :\[ \t\n\r\]+218.*$gdb_prompt $" {
! pass "print sum_struct_print(10, *struct1, *struct2, *struct3, *struct4)"
! }
! -re ".*$gdb_prompt $" {
! fail "print sum_struct_print(10, *struct1, *struct2, *struct3, *struct4)"
! }
! timeout {
! fail "(timeout) sum_struct_print(10, *struct1, *struct2, *struct3, *struct4)"
! }
! }
! }
#call print_struct_rep(*struct1, *struct2, *struct3)
! if ![gdb_skip_stdio_test "print print_struct_rep(...)"] {
! send_gdb "print print_struct_rep(*struct1, *struct2, *struct3)\n"
! gdb_expect_list "print print_struct_rep(*struct1, *struct2, *struct3)" \
! ".*$gdb_prompt $" {
! "\[ \t\n\r\]+Contents of struct1:"
! "\[ \t\n\r\]+ 22 0"
! "\[ \t\n\r\]+Contents of struct2:"
! "\[ \t\n\r\]+ 42 0"
! "\[ \t\n\r\]+Contents of struct3:"
! "\[ \t\n\r\]+ 62 0"
! }
}
! if ![gdb_skip_stdio_test "print print_one_large_struct(...)"] {
! send_gdb "print print_one_large_struct(*list1)\n"
! gdb_expect {
! -re ".* 4 1.*$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)"
! }
! }
! }
return