home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / gdb-4.9 / gdb / testsuite / gdb.t00 / teststrategy.exp < prev    next >
Encoding:
Text File  |  1993-05-12  |  11.8 KB  |  372 lines
  1. #   Copyright (C) 1988, 1990, 1991, 1992 Free Software Foundation, Inc.
  2.  
  3. # This program is free software; you can redistribute it and/or modify
  4. # it under the terms of the GNU General Public License as published by
  5. # the Free Software Foundation; either version 2 of the License, or
  6. # (at your option) any later version.
  7. # 
  8. # This program is distributed in the hope that it will be useful,
  9. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11. # GNU General Public License for more details.
  12. # 
  13. # You should have received a copy of the GNU General Public License
  14. # along with this program; if not, write to the Free Software
  15. # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  16.  
  17. # Please email any bugs, comments, and/or additions to this file to:
  18. # bug-gdb@prep.ai.mit.edu
  19.  
  20. # This file was written by Rob Savoye. (rob@cygnus.com)
  21.  
  22. if $tracelevel then {
  23.     strace $tracelevel
  24.     }
  25.  
  26. set prms_id 0
  27. set bug_id 0
  28.  
  29. # are we on a target board
  30. if [string first $target_alias $host_alias]==-1 then {
  31.     warning "These test cases can't run on a target system."
  32.     continue
  33. }
  34.  
  35. proc test_with_self {} {
  36.     global prompt
  37.     global tool
  38.     global det_file
  39.     global timeout
  40.     global decimal
  41.  
  42.     # load yourself into the debugger
  43.     # This can take a relatively long time, particularly for testing where
  44.     # the executable is being accessed over a network, or where gdb does not
  45.     # support partial symbols for a particular target and has to load the
  46.     # entire symbol table.  Set the timeout to 10 minutes, which should be
  47.     # adequate for most environments (it *has* timed out with 5 min on a
  48.     # SPARCstation SLC under moderate load, so this isn't unreasonable).
  49.     # After gdb is loaded, set the timeout to 30 seconds for the duration
  50.     # of this test, and then back to the original value.
  51.  
  52.     set oldtimeout $timeout
  53.     set timeout 600
  54.     if {[gdb_load "./x$tool"] <0} then {
  55.     return -1
  56.     }
  57.  
  58.     set timeout 30
  59.  
  60.     # disassemble yourself
  61.     send "x/10i main\n"
  62.     expect {
  63.     -re "x/10i.*main.*main\+$decimal.*main\+$decimal.*$prompt $"\
  64.         { pass "Disassemble main" }
  65.     -re ".*$prompt $"    { fail "Disassemble main" }
  66.     timeout        { fail "(timeout) Disassemble main" }
  67.     }
  68.  
  69.  
  70.     # do we have a version number ?
  71.     send "print version\n"
  72.     expect {
  73.     -re ".\[0-9\]+ = 0x.*\[0-9.\]+.*$prompt $"\
  74.         { pass "printed version" }
  75.     -re ".*$prompt $"    { fail "printed version" }
  76.     timeout        { fail "(timeout) printed version" }
  77.     }
  78.  
  79.  
  80.     # set a breakpoint at main()
  81.     send "break main\n"
  82.     expect {
  83.     -re "Breakpoint.*at.* file.*, line.*$prompt $" { pass "Set breakpoint at main" }
  84.     -re ".*$prompt $"   { fail "Set breakpoint at main" }
  85.     timeout        { fail "(timeout) Set breakpoint at main" }
  86.     }
  87.  
  88.  
  89.     # run yourself
  90.     send "run\n"
  91.     expect {
  92.     -re "Starting program.*Breakpoint \[0-9\]+,.*main \(argc.*argv.*\) at .*main.c:.*$prompt $"\
  93.         { pass "run until breakpoint at main" }
  94.     -re ".*$prompt $"       { fail "run until breakpoint at main" }
  95.     timeout                { fail "(timeout) run until breakpoint at main" }
  96.     }
  97.  
  98.  
  99.     # lets do a few single steps
  100.     send "step\n"
  101.     expect {
  102.     -re "char \*execarg = NULL;.*$prompt $" { pass "first single step" }
  103.     -re ".*No such file or directory.\r\n$prompt $" {
  104.         pass "first single step (no source available)"
  105.     }
  106.     -re ".*A file or directory in the path name does not exist..\r\n$prompt $" {
  107.         pass "first single step (no source available)"
  108.     }
  109.     -re ".*$prompt $"       { fail "first single step" }
  110.     timeout                { fail "(timeout) first single step" }
  111.     }
  112.  
  113.  
  114.     send "step\n"
  115.     expect {
  116.     -re "char \*corearg = NULL;.*$prompt $" { pass "second single step" }
  117.     -re ".*No such file or directory.\r\n$prompt $" {
  118.         pass "second single step (no source available)"
  119.     }
  120.     -re ".*A file or directory in the path name does not exist..\r\n$prompt $" {
  121.         pass "second single step (no source available)"
  122.     }
  123.     -re ".*$prompt $"       { fail "second single step" }
  124.     timeout                { fail "(timeout) second single step" }
  125.     }
  126.  
  127.  
  128.     send "step\n"
  129.     expect {
  130.     -re "char \*cdarg = NULL;.*$prompt $" { pass "third single step" }
  131.     -re ".*No such file or directory.\r\n$prompt $" {
  132.         pass "third step (no source available)"
  133.     }
  134.     -re ".*A file or directory in the path name does not exist..\r\n$prompt $" {
  135.         pass "third step (no source available)"
  136.     }
  137.     -re ".*$prompt $"       { fail "third single step" }
  138.     timeout                { fail "(timeout) third single step" }
  139.     }
  140.     
  141.     
  142.     send "step\n"
  143.     expect {
  144.     -re "char \*ttyarg = NULL;.*$prompt $" { pass "forth single step" }
  145.     -re ".*No such file or directory.\r\n$prompt $" {
  146.         pass "fourth single step (no source available)"
  147.     }
  148.     -re ".*A file or directory in the path name does not exist..\r\n$prompt $" {
  149.         pass "fourth single step (no source available)"
  150.     }
  151.     -re ".*$prompt $"       { fail "forth single step" }
  152.     timeout                { fail "(timeout) forth single step" }
  153.     }
  154.     
  155.     
  156.     send "step\n"
  157.     expect {
  158.     -re "init_malloc.* NULL.*$prompt $" { pass "fifth single step" }
  159.     -re ".*No such file or directory.\r\n$prompt $" {
  160.         pass "fifth single step (no source available)"
  161.     }
  162.     -re ".*A file or directory in the path name does not exist..\r\n$prompt $" {
  163.         pass "fifth single step (no source available)"
  164.     }
  165.     -re ".*$prompt $"       { fail "fifth single step" }
  166.     timeout                { fail "(timeout) fifth single step" }
  167.     }
  168.     
  169.     
  170.     # now jump over a few functions
  171.     send "next\n"
  172.     expect {
  173.     -re "if.*level.*$prompt $" { pass "first next" }
  174.     -re "i = .*count.*$prompt $" { pass "first next" }
  175.     -re ".*No such file or directory.\r\n$prompt $" {
  176.         pass "first next (no source available)"
  177.     }
  178.     -re ".*A file or directory in the path name does not exist..\r\n$prompt $" {
  179.         pass "first next (no source available)"
  180.     }
  181.     -re ".*$prompt $"       { fail "first next" }
  182.     timeout                { fail "(timeout) first next" }
  183.     }
  184.     #    -re "if \(setmp \(to_top_level\)\).*$prompt $" { pass "first next" }
  185.     
  186.     
  187.     # This one fails on Solaris (for some versions of gdb) because you
  188.     # can't next over library functions
  189.     setup_xfail "sparc-sun-solaris2" 1817
  190.     # The mips assembler rearranges jumps so that gdb lands in the
  191.     # middle of the next source line and then steps to the next line.
  192.     # We would have to pass -O0 from gcc to mips-as to fix that xfail.
  193.     setup_xfail "mips-*-*"
  194.     set next_ok 1
  195.     send "next\n"
  196.     expect {
  197.     -re "cmdsize = 1;.*$prompt $" { pass "second next" }
  198.     -re "if \(i.*$prompt $" { pass "second next" }
  199.     -re ".*No such file or directory.\r\n$prompt $" {
  200.         pass "second next (no source available)"
  201.     }
  202.     -re ".*A file or directory in the path name does not exist..\r\n$prompt $" {
  203.         pass "second next (no source available)"
  204.     }
  205.     -re ".*$prompt $"       { fail "second next"; set next_ok 0 }
  206.     timeout                 { fail "(timeout) second next"; set next_ok 0 }
  207.     }
  208.     
  209.     
  210.     # print something
  211.     # On the RS/6000 malloc is pulled in from a shared library, and gdb
  212.     # doesn't know how to find it.
  213.     setup_xfail "rs6000-*-*"
  214.     # On the Sun4 the value happens to be allocated near the sbrk, and
  215.     # gdb doesn't know how to handle that.
  216.     setup_xfail "sparc-sun-sunos4*" 1823
  217.     send "print \"foo\"\n"
  218.     expect {
  219.     -re ".\[0-9\]+ = 0x\[0-9a-f\]+ \"foo\".*$prompt $"\
  220.                 { pass "print \"foo\"" }
  221.     -re ".*$prompt $"       { fail "print \"foo\"" }
  222.     timeout                { fail "(timeout) print \"foo\"" }
  223.     }
  224.     
  225.     
  226.     # and another step for good luck
  227.     # This one fails on Solaris (for some versions of gdb) because you
  228.     # can't step into library functions
  229.     if $next_ok {
  230.         send "step\n"
  231.         expect {
  232.         -re "cmdarg = .*xmalloc.*$prompt $" { pass "Another single step" }
  233.         -re "if \(setjmp.*$prompt $" { pass "Another single step" }
  234.         -re ".*No such file or directory.\r\n$prompt $" {
  235.             pass "Another single step (no source available)"
  236.         }
  237.         -re ".*A file or directory in the path name does not exist..\r\n$prompt $" {
  238.         pass "Another single step (no source available)"
  239.         }
  240.         -re ".*$prompt $"       { fail "Another single step" }
  241.         timeout                { fail "(timeout) Another single step" }
  242.     }
  243.     }
  244.     
  245.     # start the "xgdb" process
  246.     send "continue\n"
  247.     expect {
  248.     -re "GDB is free software and you are welcome to distribute copies of it.*
  249.  under certain conditions; type \"show copying\" to see the conditions..*
  250. There is absolutely no warranty for GDB; type \"show warranty\" for details..*
  251. GDB.*Copyright \[0-9\]+ Free Software Foundation, Inc..*$prompt $"\
  252.         { pass "xgdb is at prompt" }
  253.     -re ".*$prompt $"       { fail "xgdb is at prompt" }
  254.     timeout                { fail "(timeout) xgdb is at prompt" }
  255.     }
  256.     
  257.     # set xgdb prompt so we can tell which is which
  258.     send "set prompt (xgdb) \n"
  259.     expect {
  260.     -re "\(xgdb\) $"        { pass "Set xgdb prompt" }
  261.     -re ".*$prompt $"       { fail "Set xgdb prompt" }
  262.     timeout                { fail "(timeout) Set xgdb prompt" }
  263.     }
  264.     
  265.     # kill the xgdb process
  266.     send "\Cc"
  267.     expect {
  268.     -re "Program received signal 2, Interrupt.*$prompt $"   { pass "Sent ^C to xgdb" }
  269.     -re ".*$prompt $"       { fail "Sent ^C to xgdb" }
  270.     timeout                { fail "(timeout) Sent ^C to xgdb" }
  271.     }
  272.     
  273.     send "signal 2\n"
  274.     expect {
  275.     -re "Continuing with signal 2.*$prompt $" { pass "Continuing with  signal 2" }
  276.     -re ".*$prompt $"       { fail "Continuing with  signal 2" }
  277.     timeout                { fail "(timeout) Continuing with  signal 2" }
  278.     }
  279.     
  280.     # get a stack trace
  281.     setup_xfail "rs6000-*-*"
  282.     send "backtrace\n"
  283.     expect {
  284.     -re "#0.*read.*#\[1-9\].*main.c.*$prompt $"\
  285.                 { pass "Got a stack trace" }
  286.     -re ".*$prompt $"       { fail "Got a stack trace" }
  287.     timeout                { fail "(timeout) Got a stack trace" }
  288.     }
  289.     
  290.     # force GDB to dump core.  On Solaris expect seems to not see the
  291.     # final message, even if gdb did dump core, so we check for the
  292.     # core dump explicitly if we time out.
  293.     system rm -f core
  294.     send "maint dump-me\n"
  295.     expect {
  296.     -re "Should GDB dump core\? \(y or n\) $" {
  297.         send "y\n"
  298.         expect {
  299.         -re "Quit.*core dumped.*"    { pass "GDB dumped core" }
  300.         -re "Program received signal 3, Quit.* in kill.*$prompt $" {
  301.             pass "GDB dumped core"
  302.         }
  303.         -re "$prompt $" { fail "GDB dumped core" }
  304.         default { 
  305.             if [file exists core] then {
  306.             pass "GDB dumped core"
  307.             } else {
  308.             fail "GDB dumped core"
  309.             }
  310.         }
  311.         }
  312.     }
  313.     -re ".*$prompt $"       { fail "GDB dumped core" }
  314.     timeout                { fail "(timeout) GDB dumped core" }
  315.     }
  316.     system rm -f core
  317.  
  318.     # Set the timeout back to the value it had when we were called.
  319.     set timeout $oldtimeout
  320.  
  321.     # Restart gdb in case next text expects it to be started already.
  322.     gdb_start
  323.     return 0
  324. }
  325.  
  326. # Find a pathname to a file that we would execute if the shell was asked
  327. # to run $arg using the current PATH.
  328.  
  329. proc find_gdb { arg } {
  330.  
  331.     # If the arg directly specifies an existing executable file, then
  332.     # simply use it.
  333.  
  334.     if [file executable $arg] then {
  335.     return $arg
  336.     }
  337.  
  338.     set result [which $arg]
  339.     if [string match "/" [ string range $result 0 0 ]] then {
  340.     return $result
  341.     }
  342.  
  343.     # If everything fails, just return the unqualified pathname as default
  344.     # and hope for best.
  345.  
  346.     return $arg
  347. }
  348.  
  349. # Run the test with self.
  350. # Copy the file executable file in case this OS doesn't like to edit it's own
  351. # text space.
  352.  
  353. set GDB_FULLPATH [find_gdb $GDB]
  354.  
  355. if ![file executable $GDB_FULLPATH] then {
  356.     fail "couldn't convert $GDB to absolute pathname to make local copy"
  357. } else {
  358.     if [catch "exec cp $GDB_FULLPATH ./x$tool"] then {
  359.     fail "couldn't copy $GDB_FULLPATH to current directory"
  360.     } else {
  361.     if $verbose>1 then {
  362.         send_user "\t\tCopied $GDB_FULLPATH to ./x$tool\n"
  363.     }
  364.     if {[test_with_self] <0} then {
  365.         warning "Couldn't test self"
  366.         catch "exec rm -f ./x$tool"
  367.         return -1
  368.     }
  369.     catch "exec rm -f ./x$tool"
  370.     }
  371. }
  372.