OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

* gdb.dwarf2/dwp-symlink.exp: Rewrite to use remote_* commands instead 

of Tcl file commands.
This commit is contained in:
Doug Evans 2014-02-11 15:47:50 -08:00
parent abf8ab2a45
commit 149b30ffe4
2 changed files with 18 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2014-02-11 Doug Evans <dje@google.com>
* gdb.dwarf2/dwp-symlink.exp: Rewrite to use remote_* commands instead
of Tcl file commands.
2014-02-10 Mark Kettenis <kettenis@gnu.org>
* gdb.threads/step-after-sr-lock.exp: Avoid executing

32
gdb/testsuite/gdb.dwarf2/dwp-symlink.exp
View File

@ -15,35 +15,30 @@
standard_testfile
if [is_remote host] {
untested "remote host"
return 0
}
file delete [standard_output_file ${testfile}.dwp]
if [file exists [standard_output_file ${testfile}.dwp]] {
remote_file host delete [standard_output_file ${testfile}.dwp]
if [remote_file host exists [standard_output_file ${testfile}.dwp]] {
unsupported "dwp file cannot be deleted"
return 0
}
if { [build_executable ${testfile}.exp ${testfile} ${srcfile}] == -1 } {
return -1
}
if ![file exists [standard_output_file ${testfile}.dwp]] {
if ![remote_file host exists [standard_output_file ${testfile}.dwp]] {
unsupported "testsuite run does not produce dwp files"
return 0
}
set thelink "${testfile}-thelink"
file delete [standard_output_file ${thelink}]
file delete [standard_output_file ${thelink}.dwp]
remote_file host delete [standard_output_file ${thelink}]
remote_file host delete [standard_output_file ${thelink}.dwp]
# file link is only Tcl 8.4+.
exec "ln" "-sf" "${testfile}" "[standard_output_file $thelink]"
if ![file exists [standard_output_file $thelink]] {
remote_exec host "ln -sf ${testfile} [standard_output_file $thelink]"
if ![remote_file host exists [standard_output_file $thelink]] {
unsupported "host does not support symbolic links (binary symlink is missing)"
return 0
}
if [file exists [standard_output_file $thelink.dwp]] {
if [remote_file host exists [standard_output_file $thelink.dwp]] {
unsupported "host does not support symbolic links (we tried to delete a file and it is still there)"
return 0
}
@ -57,12 +52,12 @@ clean_restart "$thelink"
gdb_test "ptype main" {type = int \(int, char \*\*\)} "binary symlink, dwp default"
gdb_exit
file rename [standard_output_file ${testfile}.dwp] [standard_output_file ${thelink}.dwp]
if [file exists [standard_output_file ${testfile}.dwp]] {
remote_exec host "mv -f [standard_output_file ${testfile}.dwp] [standard_output_file ${thelink}.dwp]"
if [remote_file host exists [standard_output_file ${testfile}.dwp]] {
unsupported "host does not support symbolic links (binary symlink exists)"
return 0
}
if ![file exists [standard_output_file ${thelink}.dwp]] {
if ![remote_file host exists [standard_output_file ${thelink}.dwp]] {
unsupported "host does not support symbolic links (dwp symlink is missing)"
return 0
}
@ -79,8 +74,6 @@ gdb_test "ptype main" {type = int \(int, char \*\*\)} "binary symlink, dwp at sy
# Verify we can still find the dwp if we change directories and we specified
# a relative path for the program.
set saved_pwd [pwd]
# This is clean_restart, but specifying a relative path to the binary.
gdb_exit
gdb_start
@ -94,4 +87,5 @@ gdb_test "cd .." "Working directory .*"
gdb_test "ptype main" {type = int \(int, char \*\*\)} \
"relative path, binary symlink, dwp at symlink"
cd $saved_pwd
# N.B. At this point the active gdb is in, essentially, some random directory.
# Restart a new copy if you add more tests here.