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.t01 / run.exp < prev    next >
Encoding:
Text File  |  1993-05-12  |  5.9 KB  |  223 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. #
  27. # test running programs
  28. #
  29. set prms_id 0
  30. set bug_id 0
  31.  
  32. set binfile "gdbme"
  33.  
  34. if ![file exists $objdir/$subdir/$binfile] then {
  35.     error "$objdir/$subdir/$binfile does not exist."
  36.     alldone
  37.     }
  38.  
  39. gdb_reinitialize_dir $srcdir/$subdir
  40. gdb_load $objdir/$subdir/$binfile
  41.  
  42. # Run with no arguments.
  43. # On VxWorks this justs make sure the program was run.
  44. send "run\n"
  45. expect -re "run\r\n" {}
  46. if [istarget "*-*-vxworks"] then {
  47.     set timeout 120
  48.     expect {
  49.         -i $shell_id -re "usage:  factorial <number>"\
  50.                 { pass "run $binfile" }
  51.         timeout        { fail "(timeout) run $binfile" }
  52.     }
  53.     set timeout 10
  54.     expect -re "$prompt $" {}
  55. } else {
  56.     expect {
  57.         -re "Starting program.*usage:  factorial <number>.*$prompt $"\
  58.                 { pass "run $binfile" }
  59.         -re ".*$prompt $"    { fail "run $binfile" }
  60.         timeout        { fail "(timeout) run $binfile" }
  61.     }
  62. }
  63.  
  64. # Now run with some arguments
  65. if [istarget "*-*-vxworks"] then {
  66.     send "run vxmain \"5\"\n"
  67.     expect -re "run vxmain \"5\"\r\n" {}
  68.     set timeout 120
  69.     expect {
  70.         -i $shell_id "120" { pass "run $binfile with arg" }
  71.         timeout { fail "(timeout) run $binfile with arg" }
  72.     }
  73.     set timeout 10
  74.     expect -re "$prompt $" {}
  75. } else {
  76.     if [istarget "a29k-*-udi"] then {
  77.     # FIXME: If PR 2415 is fixed, gdb_target_udi and gdb_load are
  78.     # not needed.
  79.     gdb_target_udi
  80.     gdb_load $objdir/$subdir/$binfile
  81.     send "run gdbme 5\n"
  82.     expect {
  83.         -re "Starting program.*120.*$prompt $"\
  84.                 { pass "run $binfile with arg" }
  85.         -re ".*$prompt $"    { fail "run $binfile with arg" }
  86.         timeout        { fail "(timeout) run $binfile with arg" }
  87.     }
  88.     } else {
  89.     setup_xfail "mips-idt-*"
  90.     send "run 5\n"
  91.     expect {
  92.         -re "Starting program.*$binfile.*120.*$prompt $"\
  93.                 { pass "run $binfile with arg" }
  94.         -re ".*$prompt $"    { fail "run $binfile with arg" }
  95.         timeout        { fail "(timeout) run $binfile with arg" }
  96.     }
  97.     }
  98. }
  99.  
  100. # Run again with same arguments.
  101. setup_xfail "mips-idt-*"
  102. if [istarget "a29k-*-udi"] then {
  103.     # FIXME: If PR 2415 is fixed, this is not needed.
  104.     gdb_target_udi
  105.     gdb_load $objdir/$subdir/$binfile
  106. }
  107. send "run\n"
  108. expect -re "run\r\n" {}
  109. if [istarget "*-*-vxworks"] then {
  110.     set timeout 120
  111.     expect {
  112.         -i $shell_id "120" { pass "run $binfile again" }
  113.         timeout { fail "(timeout) run $binfile again" }
  114.     }
  115.     set timeout 10
  116.     expect -re "$prompt $" {}
  117. } else {
  118.     expect {
  119.         -re "Starting program.*120.*$prompt $"\
  120.                 { pass "run $binfile again" }
  121.         -re ".*$prompt $"    { fail "run $binfile again" }
  122.         timeout        { fail "(timeout) run $binfile again" }
  123.     }
  124. }
  125.  
  126. # Use "set args" command to specify no arguments as default and run again.
  127. if [istarget "*-*-vxworks"] then {
  128.     send "set args main\n"
  129. } else {
  130.     send "set args\n"
  131. }
  132. expect -re "$prompt $"
  133.  
  134. if [istarget "a29k-*-udi"] then {
  135.     # FIXME: If PR 2415 is fixed, this is not needed.
  136.     gdb_target_udi
  137.     gdb_load $objdir/$subdir/$binfile
  138. }
  139. send "run\n"
  140. expect -re "run\r\n" {}
  141. if [istarget "*-*-vxworks"] then {
  142.     set timeout 120
  143.     expect {
  144.         -i $shell_id "usage:  factorial <number>"\
  145.                 { pass "set args to nil" }
  146.         timeout        { fail "(timeout) set args to nil" }
  147.     }
  148.     set timeout 10
  149.     expect -re "$prompt $" {}
  150. } else {
  151.     expect {
  152.         -re "Starting program.*usage:  factorial <number>.*$prompt $"\
  153.                 { pass "set args to nil" }
  154.         -re ".*$prompt $"    { fail "set args to nil" }
  155.         timeout        { fail "(timeout) set args to nil" }
  156.     }
  157. }
  158.  
  159. # Use "set args" command to specify an argument and run again.
  160. setup_xfail "mips-idt-*"
  161. if [istarget "*-*-vxworks"] then {
  162.    send "set args vxmain \"6\"\n"
  163. } else {
  164.     if [istarget "a29k-*-udi"] then {
  165.     send "set args gdbme 6\n"
  166.     } else {
  167.     send "set args 6\n"
  168.     }
  169. }
  170. expect -re "$prompt $"
  171. if [istarget "a29k-*-udi"] then {
  172.     # FIXME: If PR 2415 is fixed, this is not needed.
  173.     gdb_target_udi
  174.     gdb_load $objdir/$subdir/$binfile
  175. }
  176. send "run\n"
  177. expect -re "run\r\n" {}
  178. if [istarget "*-*-vxworks"] then {
  179.     set timeout 120
  180.     expect {
  181.         -i $shell_id "720" { pass "run $binfile again" }
  182.         timeout { fail "(timeout) run $binfile again" }
  183.     }
  184.     set timeout 10
  185.     expect -re "$prompt $" {}
  186. } else {
  187.     expect {
  188.         -re "Starting program.*720.*$prompt $"\
  189.                 { pass "set args" }
  190.         -re ".*$prompt $"    { fail "set args" }
  191.         timeout        { fail "(timeout) set args" }
  192.     }
  193. }
  194.  
  195. if [istarget "a29k-*-udi"] then {
  196.     # FIXME: If PR 2415 is fixed, this is not needed.
  197.     gdb_target_udi
  198.     gdb_load $objdir/$subdir/$binfile
  199. }
  200.  
  201. # GOAL: Test that shell is being used with "run".
  202. if ![istarget "*-*-vxworks"] then {
  203.     setup_xfail "mips-idt-*"
  204.     send "run `echo 8`\n"
  205.     expect {
  206.         -re "Starting program.*40320.*$prompt $"\
  207.                 { pass "run with shell" }
  208.         -re ".*$prompt $"    { fail "run with shell" }
  209.         timeout        { fail "(timeout) run with shell" }
  210.     }
  211. }
  212.  
  213. if [istarget "a29k-*-udi"] then {
  214.     # FIXME: If PR 2415 is fixed, this is not needed.
  215.     gdb_target_udi
  216. }
  217.  
  218. # Reset the default arguments for VxWorks
  219. if [istarget "*-*-vxworks"] then {
  220.     send "set args main\n"
  221.     expect -re ".*$prompt $" {}
  222. }
  223.