gdb/testsuite/gdb.base/reread.exp

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