gdb/testsuite/gdb.base/define.exp

   1 # Copyright 1998-1999, 2001, 2003-2004, 2007-2012 Free Software
   2 # Foundation, Inc.
   3
   4 # This program is free software; you can redistribute it and/or modify
   5 # it under the terms of the GNU General Public License as published by
   6 # the Free Software Foundation; either version 3 of the License, or
   7 # (at your option) any later version.
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License
  15 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16
  17 # This file was written by Elena Zannoni. (ezannoni@cygnus.com)
  18
  19
  20 #
  21 # test running programs
  22 #
  23
  24 set testfile "break"
  25 set srcfile ${testfile}.c
  26 set srcfile1 ${testfile}1.c
  27 set binfile ${objdir}/${subdir}/${testfile}
  28
  29 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}0.o" object {debug nowarnings}] != "" } {
  30      untested define.exp
  31      return -1
  32 }
  33
  34 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile1}" "${binfile}1.o" object {debug nowarnings}] != "" } {
  35      untested define.exp
  36      return -1
  37 }
  38
  39 if  { [gdb_compile "${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug nowarnings}] != "" } {
  40      untested define.exp
  41      return -1
  42 }
  43
  44 gdb_exit
  45 gdb_start
  46 gdb_reinitialize_dir $srcdir/$subdir
  47 gdb_load ${binfile}
  48
  49 set bp_location1 [gdb_get_line_number "set breakpoint 1 here"]
  50 set bp_location11 [gdb_get_line_number "set breakpoint 11 here"]
  51
  52 if ![runto_main] then { fail "define tests suppressed" }
  53
  54 # Verify that GDB allows a user to define their very own commands.
  55 #
  56 gdb_test_multiple "define nextwhere" "define user command: nextwhere" {
  57     -re "Type commands for definition of \"nextwhere\".\r\nEnd with a line saying just \"end\".\r\n>$" {
  58         gdb_test "next\nbt\nend" "" \
  59             "define user command: nextwhere"
  60     }
  61 }
  62
  63 # Verify that those commands work as gdb_expected.
  64 #
  65 gdb_test "nextwhere" \
  66     "$bp_location1\[ \t\]*printf.*#0\[ \t\]*main.*:$bp_location1.*" \
  67     "use user command: nextwhere"
  68
  69 # Verify that a user can define a command whose spelling is a
  70 # proper substring of another user-defined command.
  71 #
  72 gdb_test_multiple "define nextwh" "define user command: nextwh" {
  73     -re "Type commands for definition of \"nextwh\".\r\nEnd with a line saying just \"end\".\r\n>$" {
  74         gdb_test "next 2\nbt\nend" "" \
  75             "define user command: nextwh"
  76     }
  77 }
  78
  79 # Verify that a user can redefine their commands.  (Test both the
  80 # confirmed and unconfirmed cases.)
  81 #
  82 gdb_test "define nextwhere" \
  83     "Command \"nextwhere\" not redefined.*" \
  84     "redefine user command aborted: nextwhere" \
  85     "Redefine command \"nextwhere\".*y or n. $" \
  86     "n"
  87
  88 send_gdb "define nextwhere\n"
  89 gdb_expect {
  90   -re "Redefine command \"nextwhere\".*y or n. $"\
  91           {send_gdb "y\n"
  92            gdb_expect {
  93              -re "Type commands for definition of \"nextwhere\".\r\nEnd with a line saying just \"end\".\r\n>$"\
  94                      {send_gdb "bt\nnext\nend\n"
  95                       gdb_expect {
  96                         -re "$gdb_prompt $"\
  97                                 {pass "redefine user command: nextwhere"}
  98                         timeout {fail "(timeout) redefine user command: nextwhere"}
  99                       }
 100                      }
 101              timeout {fail "(timeout) redefine user command: nextwhere"}
 102            }
 103           }
 104   -re "$gdb_prompt $"\
 105           {fail "redefine user command: nextwhere"}
 106   timeout {fail "(timeout) redefine user command: nextwhere"}
 107 }
 108
 109 # Verify that GDB gracefully handles an attempt to redefine the
 110 # help text for a builtin command.
 111 #
 112 gdb_test "document step" "Command \"step\" is built-in.*" \
 113     "redocumenting builtin command disallowed"
 114
 115 # Verify that a user can document their own commands.  (And redocument
 116 # them.)
 117 #
 118 gdb_test_multiple "document nextwhere" "document user command: nextwhere" {
 119     -re "Type documentation for \"nextwhere\".\r\nEnd with a line saying just \"end\".\r\n>$" {
 120         gdb_test "A next command that first shows you where you're stepping from.\nend" \
 121             "" \
 122             "document user command: nextwhere"
 123     }
 124 }
 125
 126 gdb_test_multiple "document nextwhere" "re-document user command: nextwhere" {
 127     -re "Type documentation for \"nextwhere\".\r\nEnd with a line saying just \"end\".\r\n>$" {
 128         gdb_test "A next command that first shows you where you're stepping from.\nend" \
 129             "" \
 130             "re-document user command: nextwhere"
 131     }
 132 }
 133
 134 gdb_test "help nextwhere" \
 135     "A next command that first shows you where you're stepping from.*" \
 136     "help user command: nextwhere"
 137
 138 # Verify that the document command preserves whitespace in the beginning of the line.
 139 #
 140 gdb_test_multiple "document nextwhere" "set up whitespace in help string" {
 141     -re "Type documentation for \"nextwhere\".\r\nEnd with a line saying just \"end\".\r\n>$" {
 142         gdb_test "   A next command that first shows you where you're stepping from.\nend" \
 143             "" \
 144             "set up whitespace in help string"
 145     }
 146 }
 147
 148 gdb_test "help nextwhere" \
 149     "   A next command that first shows you where you're stepping from.*" \
 150     "preserve whitespace in help string"
 151
 152 # Verify that the command parser doesn't require a space after an 'if'
 153 # command in a user defined function.
 154 #
 155 gdb_test_multiple "define ifnospace" "define user command: ifnospace" \
 156 {
 157   -re "Type commands for definition of \"ifnospace\".\r\nEnd with a line saying just \"end\".\r\n>$" \
 158     {
 159       gdb_test_multiple "if(3<4)\nprint \"hi there\\n\"\nend\nend" "send body of ifnospace"  \
 160         {
 161          -re "$gdb_prompt $"\
 162                  {pass "define user command: ifnospace"}
 163         }
 164     }
 165 }
 166
 167 gdb_test "ifnospace" ".*hi there.*" "test ifnospace is parsed correctly"
 168
 169 # Verify that the command parser doesn't require a space after an 'while'
 170 # command in a user defined function.
 171 #
 172 gdb_test_multiple "define whilenospace" "define user command: whilenospace" \
 173 {
 174   -re "Type commands for definition of \"whilenospace\".\r\nEnd with a line saying just \"end\".\r\n>$" \
 175     {
 176       gdb_test_multiple "set \$i=1\nwhile(\$i<2)\nset \$i=2\nprint \"hi there\\n\"\nend\nend" "send body of whilenospace" \
 177          {
 178            -re "$gdb_prompt $" \
 179                    {pass "define user command: whilenospace"}
 180          }
 181     }
 182 }
 183
 184 gdb_test "whilenospace" ".*hi there.*" "test whilenospace is parsed correctly"
 185
 186 # Verify that the user can "hook" a builtin command.  We choose to
 187 # hook the "stop" pseudo command, and we'll define it to use a user-
 188 # define command.
 189 #
 190 gdb_test_multiple "define user-bt" "define user command: user-bt" {
 191     -re "Type commands for definition of \"user-bt\".\r\nEnd with a line saying just \"end\".\r\n>$" {
 192         gdb_test "bt\nend" \
 193             "" \
 194             "define user command: user-bt"
 195     }
 196 }
 197
 198 gdb_test_multiple "define hook-stop" "define hook-stop command" {
 199     -re "Type commands for definition of \"hook-stop\".\r\nEnd with a line saying just \"end\".\r\n>$" {
 200         gdb_test "user-b\nend" \
 201             "" \
 202             "define hook-stop command"
 203     }
 204 }
 205
 206 gdb_test "next" "#0\[ \t\]*main.*:$bp_location11.*" \
 207     "use hook-stop command"
 208
 209 # Verify that GDB responds gracefully to an attempt to define a "hook
 210 # command" which doesn't exist.  (Test both the confirmed and unconfirmed
 211 # cases.)
 212 #
 213 gdb_test "define hook-bar" \
 214     "Not confirmed.*" \
 215     "define hook undefined command aborted: bar" \
 216     "warning: Your new `hook-bar' command does not hook any existing command.\r\nProceed.*y or n. $" \
 217     "n"
 218
 219 send_gdb "define hook-bar\n"
 220 gdb_expect {
 221   -re "warning: Your new `hook-bar' command does not hook any existing command.\r\nProceed.*y or n. $"\
 222           {send_gdb "y\n"
 223            gdb_expect {
 224              -re "Type commands for definition of \"hook-bar\".\r\nEnd with a line saying just \"end\".\r\n>$"\
 225                      {send_gdb "nextwhere\nend\n"
 226                       gdb_expect {
 227                         -re "$gdb_prompt $"\
 228                                 {pass "define hook undefined command: bar"}
 229                         timeout {fail "(timeout) define hook undefined command: bar"}
 230                       }
 231                      }
 232              -re "$gdb_prompt $"\
 233                      {fail "define hook undefined command: bar"}
 234              timeout {fail "(timeout) define hook undefined command: bar"}
 235            }
 236           }
 237   -re "$gdb_prompt $"\
 238           {fail "define hook undefined command: bar"}
 239   timeout {fail "(timeout) define hook undefined command: bar"}
 240 }
 241
 242 # Test creation of an additional target subcommand.
 243 gdb_test_multiple "define target testsuite" "" {
 244     -re "Type commands for definition of \"target testsuite\".\r\nEnd with a line saying just \"end\".\r\n>$" {
 245         gdb_test "printf \"hello\\n\"\nend" "" "define target testsuite"
 246     }
 247 }
 248 gdb_test_multiple "document target testsuite" "" {
 249     -re "Type documentation for \"target testsuite\".\r\nEnd with a line saying just \"end\".\r\n>$" {
 250         gdb_test "A test target.\nend" "" "document target testsuite"
 251     }
 252 }
 253
 254 gdb_test "help target" ".*A test target.*"
 255 gdb_test "target testsuite" "hello"
 256 gdb_test "show user target testsuite" "User command \"target testsuite\":\r\n  printf \"hello\\\\n\"\r\n"
 257
 258 # We should even be able to hook subcommands.
 259 gdb_test_multiple "define target hook-testsuite" "" {
 260     -re "Type commands for definition of \"target hook-testsuite\".\r\nEnd with a line saying just \"end\".\r\n>$" {
 261         gdb_test "printf \"one\\n\"\nend" "" "define target hook-testsuite"
 262     }
 263 }
 264
 265 gdb_test_multiple "define target hookpost-testsuite" "" {
 266     -re "Type commands for definition of \"target hookpost-testsuite\".\r\nEnd with a line saying just \"end\".\r\n>$" {
 267         gdb_test "printf \"two\\n\"\nend" "" "define target hookpost-testsuite"
 268     }
 269 }
 270
 271 gdb_test "target testsuite" "one\r\nhello\r\ntwo" "target testsuite with hooks"
 272
 273 # This is a quasi-define command: Verify that the user can redefine
 274 # GDB's gdb_prompt.
 275 #
 276 gdb_test_multiple "set prompt \\(blah\\) " "set gdb_prompt" {
 277     -re "\\(blah\\) $" {
 278         pass "set gdb_prompt"
 279     }
 280 }
 281
 282 gdb_test_multiple "set prompt \\(gdb\\) " "reset gdb_prompt" {
 283     -re "$gdb_prompt $" {
 284         pass "reset gdb_prompt"
 285     }
 286 }
 287
 288 gdb_exit
 289 return 0