This is the mail archive of the gdb-patches@sources.redhat.com mailing list for the GDB project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

[RFA] Testsuite: skip tests that depend on stdio support.



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
  

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]