gdb/testsuite/gdb.trace/while-stepping.exp

   1 #   Copyright 1998, 2007, 2008, 2009, 2010 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 3 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, see <http://www.gnu.org/licenses/>.
  15
  16 # This file was written by Michael Snyder (msnyder@cygnus.com)
  17
  18 load_lib "trace-support.exp";
  19
  20 if $tracelevel then {
  21     strace $tracelevel
  22 }
  23
  24
  25 gdb_exit
  26 gdb_start
  27
  28 set testfile "actions"
  29 set srcfile ${testfile}.c
  30 set binfile ${objdir}/${subdir}/while-stepping
  31 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" $binfile \
  32           executable {debug nowarnings}] != "" } {
  33     untested while-stepping.exp
  34     return -1
  35 }
  36 gdb_reinitialize_dir $srcdir/$subdir
  37
  38 # If testing on a remote host, download the source file.
  39 # remote_download host $srcdir/$subdir/$srcfile
  40
  41 gdb_file_cmd $binfile
  42
  43 #
  44 # test while-stepping command
  45 #
  46
  47 gdb_delete_tracepoints
  48 set trcpt1 [gdb_gettpnum gdb_c_test]
  49 if { $trcpt1 <= 0 } then {
  50     fail "Could not find gdb_c_test function"
  51     return;
  52 }
  53
  54 # 5.12 basic while-stepping command (collect regs)
  55
  56 gdb_test "info tracepoints" \
  57     "Num     Type\[ \]+Disp Enb Address\[ \]+What.*
  58 \[0-9\]+\[\t \]+tracepoint     keep y.* in gdb_c_test at .*$srcfile:\[0-9\]+" \
  59         "5.12: set a tracepoint, stepcount is zero"
  60
  61 set stepcount 12
  62
  63 gdb_trace_setactions "5.12: set stepcount to $stepcount" \
  64         "" \
  65         "while-stepping $stepcount" "" \
  66         "collect \$regs" "^$" \
  67         "end" ""
  68
  69 gdb_test "info tracepoints" \
  70     "Num     Type\[ \]+Disp Enb Address\[ \]+What.*
  71 \[0-9\]+\[\t \]+tracepoint     keep y.* in gdb_c_test at .*$srcfile:\[0-9\]+.
  72 \[\t \]+while-stepping 12.*" \
  73         "5.12: info trace shows \"while-stepping\""
  74
  75 # 5.13 step out of context while collecting local variable
  76 #      [deferred to dynamic test section]
  77
  78 proc while_stepping_bogus_arg { bogus msgstring } {
  79     global gdb_prompt;
  80
  81     gdb_trace_setactions "$msgstring" \
  82             "" \
  83             "while-stepping $bogus" ".*while-stepping step count"
  84 }
  85
  86 # 5.14 while-stepping (no argument)
  87
  88 while_stepping_bogus_arg "" "5.14: while-stepping null stepcount"
  89
  90 # 5.15 while-stepping (zero stepcount)
  91
  92 while_stepping_bogus_arg "0" "5.15: while-stepping rejects zero stepcount"
  93
  94 # 5.16 while-stepping without collecting anything
  95 gdb_trace_setactions "5.16: step without collecting anything" \
  96         "" \
  97         "while-stepping $stepcount" "^$" \
  98         "end" ""
  99
 100 gdb_test "info tracepoints" \
 101     "Num     Type\[ \]+Disp Enb Address\[ \]+What.*
 102 \[0-9\]+\[\t \]+tracepoint     keep y.* in gdb_c_test at .*$srcfile:\[0-9\]+.
 103 .*while-stepping $stepcount.*
 104 .*end.*" \
 105         "5.16: confirm actions, step without collecting anything"
 106