gdb/testsuite/gdb.base/commands.exp

   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 if $tracelevel then {
  21     strace $tracelevel
  22 }
  23
  24 #
  25 # test special commands (if, while, etc)
  26 #
  27 set prms_id 0
  28 set bug_id 0
  29
  30 set binfile "run"
  31
  32 if ![file exists $objdir/$subdir/$binfile] then {
  33     perror "$objdir/$subdir/$binfile does not exist."
  34     return 0
  35 }
  36
  37 delete_breakpoints
  38 gdb_reinitialize_dir $srcdir/$subdir
  39 gdb_load $objdir/$subdir/$binfile
  40
  41 proc gdbvar_simple_if_test {} {
  42     global prompt
  43
  44     gdb_test "set \\\$foo = 0"
  45     # All this test should do is print 0xdeadbeef once.
  46     gdb_test "if \\\$foo == 1\\np/x 0xfeedface\\nelse\\np/x 0xdeadbeef\\nend" "\\\$\[0-9\]* = 0xdeadbeef" "gdbvar_simple_if_test #1"
  47     # All this test should do is print 0xfeedface once.
  48     gdb_test "if \\\$foo == 0\\np/x 0xfeedface\\nelse\\np/x 0xdeadbeef\\nend" "\\\$\[0-9\]* = 0xfeedface" "gdbvar_simple_if_test #2"
  49 }
  50
  51 proc gdbvar_simple_while_test {} {
  52     global prompt
  53
  54     gdb_test "set \\\$foo = 5"
  55     # This test should print 0xfeedface five times.
  56     gdb_test "while \\\$foo > 0\\np/x 0xfeedface\\nset \\\$foo -= 1\\nend" "\\\$\[0-9\]* = 0xfeedface\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface" "gdbvar_simple_while_test #1"
  57 }
  58
  59 proc gdbvar_complex_if_while_test {} {
  60     global prompt
  61
  62     gdb_test "set \\\$foo = 4"
  63     # This test should alternate between 0xdeadbeef and 0xfeedface two times.
  64     gdb_test "while \\\$foo > 0\\nset \\\$foo -= 1\\nif \(\\\$foo % 2\) == 1\\np/x 0xdeadbeef\\nelse\\np/x 0xfeedface\\nend\\nend" "\\\$\[0-9\]* = 0xdeadbeef\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface\[^\n\]*\n\\\$\[0-9\]* = 0xdeadbeef\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface" "gdbvar_complex_if_while_test #1"
  65 }
  66
  67 proc progvar_simple_if_test {} {
  68     global prompt
  69
  70     gdb_test "set args 5"
  71     if { ![runto factorial] } then { return }
  72     # All this test should do is print 0xdeadbeef once.
  73     gdb_test "if value == 1\\np/x 0xfeedface\\nelse\\np/x 0xdeadbeef\\nend" "\\\$\[0-9\]* = 0xdeadbeef" "progvar_simple_if_test #1"
  74     # All this test should do is print 0xfeedface once.
  75     gdb_test "if value == 5\\np/x 0xfeedface\\nelse\\np/x 0xdeadbeef\\nend" "\\\$\[0-9\]* = 0xfeedface" "progvar_simple_if_test #2"
  76 }
  77
  78 proc progvar_simple_while_test {} {
  79     global prompt
  80
  81     gdb_test "set args 5"
  82     if { ![runto factorial] } then { return }
  83     # This test should print 0xfeedface five times.
  84     gdb_test "while value > 0\\np/x 0xfeedface\\nset value -= 1\\nend" "\\\$\[0-9\]* = 0xfeedface\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface" "progvar_simple_while_test #1"
  85 }
  86
  87 proc progvar_complex_if_while_test {} {
  88     global prompt
  89
  90     gdb_test "set args 4"
  91     if { ![runto factorial] } then { return }
  92     # This test should alternate between 0xdeadbeef and 0xfeedface two times.
  93     gdb_test "while value > 0\\nset value -= 1\\nif \(value % 2\) == 1\\np/x 0xdeadbeef\\nelse\\np/x 0xfeedface\\nend\\nend" "\\\$\[0-9\]* = 0xdeadbeef\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface\[^\n\]*\n\\\$\[0-9\]* = 0xdeadbeef\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface" "progvar_complex_if_while_test #1"
  94 }
  95
  96 proc if_while_breakpoint_command_test {} {
  97     global prompt
  98
  99     gdb_test "set args 5"
 100     if { ![runto factorial] } then { return }
 101     delete_breakpoints
 102     gdb_test "break factorial" "Breakpoint.*at"
 103     # For some stupid reason doing this with a gdb_test timed out.  Weird.
 104     send "commands\n"
 105     expect {
 106         -re "End with" { }
 107         default { fail "(timeout or eof) commands" }
 108     }
 109     # This test should alternate between 0xdeadbeef and 0xfeedface two times.
 110     gdb_test "while value > 0\\nset value -= 1\\nif \(value % 2\) == 1\\np/x 0xdeadbeef\\nelse\\np/x 0xfeedface\\nend\\nend\\nend\\n" ".*$prompt.*" "commands"
 111     gdb_test "continue" "\\\$\[0-9\]* = 0xdeadbeef\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface\[^\n\]*\n\\\$\[0-9\]* = 0xdeadbeef\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface" "if_while_breakpoint_command_test #1"
 112    gdb_test "info break" "while.*set.*if.*p/x.*else.*p/x.*end.*" "info break"
 113 }
 114
 115 # Test a simple user defined command (with arguments)
 116 proc user_defined_command_test {} {
 117     global prompt
 118
 119     gdb_test "set \\\$foo = 4"
 120     # For some stupid reason doing this with a gdb_test timed out.  Weird.
 121     send "define mycommand\n"
 122     expect {
 123         -re "End with" { }
 124         default { fail "(timeout or eof) enter user defined command" }
 125     }
 126     # This test should alternate between 0xdeadbeef and 0xfeedface two times.
 127     gdb_test "while \\\$arg0 > 0\\nset \\\$arg0 -= 1\\nif \(\\\$arg0 % 2\) == 1\\np/x 0xdeadbeef\\nelse\\np/x 0xfeedface\\nend\\nend\\nend\\n" ".*$prompt.*" "enter user defined command"
 128
 129     gdb_test "mycommand \\\$foo" "\\\$\[0-9\]* = 0xdeadbeef\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface\[^\n\]*\n\\\$\[0-9\]* = 0xdeadbeef\[^\n\]*\n\\\$\[0-9\]* = 0xfeedface" "execute user defined command"
 130    gdb_test "show user mycommand" "while.*set.*if.*p/x.*else.*p/x.*end.*" "display user command"
 131 }
 132
 133 gdbvar_simple_if_test
 134 gdbvar_simple_while_test
 135 gdbvar_complex_if_while_test
 136 progvar_simple_if_test
 137 progvar_simple_while_test
 138 progvar_complex_if_while_test
 139 if_while_breakpoint_command_test
 140 user_defined_command_test