diff options
author | Joel Brobecker <brobecker@gnat.com> | 2009-04-14 16:49:57 +0000 |
---|---|---|
committer | Joel Brobecker <brobecker@gnat.com> | 2009-04-14 16:49:57 +0000 |
commit | d12672ccc73fe8f54b9ca248ed83cfbfea644710 (patch) | |
tree | 0dfacd4f486a990fb038150b4bd49b3e08c42844 | |
parent | efbd6e753f8b2ecc1ca48efd87148bd9d0300e4a (diff) | |
download | gdb-d12672ccc73fe8f54b9ca248ed83cfbfea644710.zip gdb-d12672ccc73fe8f54b9ca248ed83cfbfea644710.tar.gz gdb-d12672ccc73fe8f54b9ca248ed83cfbfea644710.tar.bz2 |
* gdb.base/exe-lock.exp: New testcase.
-rw-r--r-- | gdb/testsuite/ChangeLog | 4 | ||||
-rw-r--r-- | gdb/testsuite/gdb.base/exe-lock.exp | 63 |
2 files changed, 67 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 252206f..04e693c 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2009-04-14 Joel Brobecker <brobecker@adacore.com> + + * gdb.base/exe-lock.exp: New testcase. + 2009-04-13 Tom Tromey <tromey@redhat.com> * gdb.python/python-frame.exp (gdb_py_test_silent_cmd): Test != diff --git a/gdb/testsuite/gdb.base/exe-lock.exp b/gdb/testsuite/gdb.base/exe-lock.exp new file mode 100644 index 0000000..59c2adf --- /dev/null +++ b/gdb/testsuite/gdb.base/exe-lock.exp @@ -0,0 +1,63 @@ +# Copyright 2009 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see <http://www.gnu.org/licenses/>. + +if $tracelevel { + strace $tracelevel +} + +# The intent of this testcase is to verify that GDB does not keep +# a filesystem lock on the executable file once the executable +# is no longer running. + +set testfile "arrayidx" +set srcfile ${testfile}.c +set binfile ${objdir}/${subdir}/${testfile} +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { + untested "Couldn't compile ${srcfile}" + return -1 +} + +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} + +# Sanity-check: Verify that the executable exists. This is just to +# make sure that, when we verify later that the file does not exist, +# it really has been deleted. +if { ! [file exists $binfile] } { + fail "executable does not exist (${binfile})" + return -1 + } + +if ![runto_main] then { + perror "couldn't run to breakpoint" + continue +} + +gdb_test "continue" \ + ".*Program exited normally\\." \ + "continue until program exits" + +# Try deleting the executable file, now that the program has exited, +# and make sure that the deletion worked by verifying that the exe +# is no longer there (the "file delete" tcl command does not return +# any status, apparently). +file delete $binfile +if { [file exists $binfile] } { + fail "executable still exists (${binfile})" + } + + |