gdb/testsuite/gdb.base/reread.exp

   1 # Copyright 1998, 2000, 2001, 2007, 2008, 2009 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 if $tracelevel then {
  17         strace $tracelevel
  18 }
  19
  20 set prms_id 0
  21 set bug_id 0
  22
  23 set prototypes 1
  24
  25 # build the first test case
  26
  27 set testfile1 "reread1"
  28 set srcfile1 ${testfile1}.c
  29 # Cygwin needs $EXEEXT.
  30 set binfile1 ${objdir}/${subdir}/${testfile1}$EXEEXT
  31
  32 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile1}" "${binfile1}" executable {debug nowarnings}] != "" } {
  33     untested reread.exp
  34     return -1
  35 }
  36
  37 # build the second test case
  38
  39 set testfile2 "reread2"
  40 set srcfile2 ${testfile2}.c
  41 set binfile2 ${objdir}/${subdir}/${testfile2}$EXEEXT
  42
  43 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile2}" "${binfile2}" executable {debug nowarnings}] != "" } {
  44     untested reread.exp
  45     return -1
  46 }
  47
  48 # Start with a fresh gdb.
  49
  50 set testfile "reread"
  51 set binfile ${objdir}/${subdir}/${testfile}$EXEEXT
  52
  53 gdb_start
  54 gdb_reinitialize_dir $srcdir/$subdir
  55
  56 set prms_id 13484
  57 set bug_id 0
  58
  59 # Load the first executable.
  60
  61 gdb_test "shell mv ${binfile1} ${binfile}" "" ""
  62 gdb_load ${binfile}
  63
  64 # Set a breakpoint at foo
  65
  66 gdb_test "break foo" \
  67     "Breakpoint.*at.* file .*$srcfile1, line 14.*" \
  68     "breakpoint foo in first file"
  69
  70
  71 # Run, should see "Breakpoint 1, foo () at hello1.c:14"
  72
  73 gdb_run_cmd
  74
  75 gdb_expect {
  76     -re ".*Breakpoint.* foo .* at .*$srcfile1:14.*$gdb_prompt $"  {
  77         pass "run to foo()";
  78     }
  79     -re ".*$gdb_prompt $" {
  80         fail "run to foo()";
  81         gdb_suppress_tests;
  82     }
  83     timeout { fail "run to foo() (timeout)" ; gdb_suppress_tests }
  84 }
  85
  86 # Restore first executable to its original name, and move
  87 # second executable into its place.  Ensure that the new
  88 # executable is at least a second newer than the old.
  89
  90 gdb_test "shell mv ${binfile} ${binfile1}" "" ""
  91 gdb_test "shell mv ${binfile2} ${binfile}" "" ""
  92 gdb_test "shell sleep 1" "" ""
  93 gdb_test "shell touch ${binfile}" "" ""
  94
  95 # Run a second time; GDB should detect that the executable has changed
  96 # and reset the breakpoints correctly.
  97 # Should see "Breakpoint 1, foo () at reread2.c:9"
  98
  99 set prms_id 0
 100
 101 if [is_remote target] {
 102     unsupported "run to foo() second time ";
 103 } else {
 104     gdb_run_cmd
 105     gdb_expect {
 106         #    -re ".*re-reading symbols.*Breakpoint.* foo .* at .*$srcfile2:9.*$gdb_prompt $" {}
 107         -re ".*Breakpoint.* foo .* at .*:9.*$gdb_prompt $" {
 108             pass "run to foo() second time ";
 109         }
 110         -re ".*$gdb_prompt $" {
 111             fail "run to foo() second time";
 112             gdb_suppress_tests;
 113         }
 114         timeout {
 115             fail "run to foo() second time (timeout)" ;
 116             gdb_suppress_tests
 117         }
 118     }
 119 }
 120
 121
 122 ### Second pass: verify that GDB checks the executable file's
 123 ### timestamp when the program is *restarted*, not just when it exits.
 124
 125 if [is_remote target] {
 126     unsupported "second pass: GDB should check for changes before running"
 127 } else {
 128
 129     # Put the older executable back in place.
 130     gdb_test "shell mv ${binfile} ${binfile2}" "" ""
 131     gdb_test "shell mv ${binfile1} ${binfile}" "" ""
 132
 133     # Restart GDB entirely.
 134     gdb_start
 135     gdb_reinitialize_dir $srcdir/$subdir
 136     gdb_load ${binfile}
 137
 138     # Set a breakpoint on foo and run to it.
 139     gdb_test "break foo" \
 140             "Breakpoint.*at.* file .*$srcfile1, line 14.*" \
 141             "second pass: breakpoint foo in first file"
 142     gdb_run_cmd
 143     gdb_expect {
 144         -re ".*Breakpoint.* foo .* at .*$srcfile1:14.*$gdb_prompt $"  {
 145             pass "second pass: run to foo()";
 146         }
 147         -re ".*$gdb_prompt $" {
 148             fail "second pass: run to foo()";
 149             gdb_suppress_tests;
 150         }
 151         timeout {
 152             fail "second pass: run to foo() (timeout)"
 153             gdb_suppress_tests
 154         }
 155     }
 156
 157     # This time, let the program run to completion.  If GDB checks the
 158     # executable file's timestamp now, it won't notice any change.
 159     gdb_test "continue" ".*Program exited.*" \
 160             "second pass: continue to completion"
 161
 162     # Now move the newer executable into place, and re-run.  GDB
 163     # should still notice that the executable file has changed,
 164     # and still re-set the breakpoint appropriately.
 165     gdb_test "shell mv ${binfile} ${binfile1}" "" ""
 166     gdb_test "shell mv ${binfile2} ${binfile}" "" ""
 167     gdb_run_cmd
 168     gdb_expect {
 169         -re ".*Breakpoint.* foo .* at .*:9.*$gdb_prompt $" {
 170             pass "second pass: run to foo() second time ";
 171         }
 172         -re ".*$gdb_prompt $" {
 173             fail "second pass: run to foo() second time";
 174             gdb_suppress_tests;
 175         }
 176         timeout {
 177             fail "second pass: run to foo() second time (timeout)" ;
 178             gdb_suppress_tests
 179         }
 180     }
 181 }
 182
 183 # End of tests.
 184
 185 gdb_stop_suppressing_tests
 186
 187 return 0