gdb/testsuite/gdb.base/fileio.exp

   1 #   Copyright 2002-2004, 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 # This file was written by Corinna Vinschen <vinschen@redhat.com>
  17
  18 if [target_info exists gdb,nofileio] {
  19     verbose "Skipping fileio.exp because of no fileio capabilities."
  20     continue
  21 }
  22
  23 if $tracelevel then {
  24         strace $tracelevel
  25 }
  26
  27
  28 set testfile "fileio"
  29 set srcfile ${testfile}.c
  30 set binfile ${objdir}/${subdir}/${testfile}
  31
  32 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
  33     untested fileio.exp
  34     return -1
  35 }
  36
  37 # Create and source the file that provides information about the compiler
  38 # used to compile the test case.
  39
  40 if [get_compiler_info ${binfile}] {
  41     return -1;
  42 }
  43
  44 remote_exec build {sh -xc test\ -r\ dir2.fileio.test\ &&\ chmod\ -f\ +w\ dir2.fileio.test}
  45 remote_exec build {sh -xc rm\ -rf\ *.fileio.test}
  46
  47 set oldtimeout $timeout
  48 set timeout [expr "$timeout + 60"]
  49
  50 # Start with a fresh gdb.
  51
  52 gdb_exit
  53 gdb_start
  54 gdb_reinitialize_dir $srcdir/$subdir
  55 gdb_load ${binfile}
  56 gdb_test_no_output "set print sevenbit-strings"
  57 gdb_test_no_output "set print address off"
  58 gdb_test_no_output "set width 0"
  59
  60 if ![runto_main] then {
  61     perror "couldn't run to breakpoint"
  62     continue
  63 }
  64
  65 gdb_test "break stop" "Breakpoint .*$srcfile.*"
  66
  67 set stop_msg ".*Breakpoint .* stop \\(\\) at.*$srcfile:.*static void stop \\(\\) {}.*"
  68
  69 gdb_test continue \
  70 "Continuing\\..*open 1:.*OK$stop_msg" \
  71 "Open a file"
  72
  73 gdb_test continue \
  74 "Continuing\\..*open 2:.*EEXIST$stop_msg" \
  75 "Creating already existing file returns EEXIST"
  76
  77 gdb_test continue \
  78 "Continuing\\..*open 3:.*EISDIR$stop_msg" \
  79 "Open directory for writing returns EISDIR"
  80
  81 gdb_test continue \
  82 "Continuing\\..*open 4:.*ENOENT$stop_msg" \
  83 "Opening nonexistant file returns ENOENT"
  84
  85 gdb_test "continue" ".*" ""
  86
  87 catch "system \"chmod -f -w nowrt.fileio.test\""
  88
  89 gdb_test continue \
  90 "Continuing\\..*open 5:.*EACCES$stop_msg" \
  91 "Open for write but no write permission returns EACCES"
  92
  93 gdb_test continue \
  94 "Continuing\\..*write 1:.*OK$stop_msg" \
  95 "Writing to a file"
  96
  97 gdb_test continue \
  98 "Continuing\\..*write 2:.*EBADF$stop_msg" \
  99 "Write using invalid file descriptor returns EBADF"
 100
 101 gdb_test continue \
 102 "Continuing\\..*write 3:.*EBADF$stop_msg" \
 103 "Writing to a read-only file returns EBADF"
 104
 105 gdb_test continue \
 106 "Continuing\\..*read 1:.*OK$stop_msg" \
 107 "Reading from a file"
 108
 109 gdb_test continue \
 110 "Continuing\\..*read 2:.*EBADF$stop_msg" \
 111 "Read using invalid file descriptor returns EBADF"
 112
 113 gdb_test continue \
 114 "Continuing\\..*lseek 1:.*OK$stop_msg" \
 115 "Lseeking CUR a file"
 116
 117 gdb_test continue \
 118 "Continuing\\..*lseek 2:.*OK$stop_msg" \
 119 "Lseeking END a file"
 120
 121 gdb_test continue \
 122 "Continuing\\..*lseek 3:.*OK$stop_msg" \
 123 "Lseeking SET a file"
 124
 125
 126 gdb_test continue \
 127 "Continuing\\..*close 1:.*OK$stop_msg" \
 128 "Closing a file"
 129
 130 gdb_test continue \
 131 "Continuing\\..*close 2:.*EBADF$stop_msg" \
 132 "Closing an invalid file descriptor returns EBADF"
 133
 134 gdb_test continue \
 135 "Continuing\\..*stat 1:.*OK$stop_msg" \
 136 "Stat a file"
 137
 138 gdb_test continue \
 139         "Continuing\\..*stat 2:.*(ENOENT|EFAULT)$stop_msg" \
 140 "Stat a NULL pathname returns ENOENT or EFAULT"
 141
 142 gdb_test continue \
 143 "Continuing\\..*stat 3:.*ENOENT$stop_msg" \
 144 "Stat an empty pathname returns ENOENT"
 145
 146 gdb_test continue \
 147 "Continuing\\..*stat 4:.*ENOENT$stop_msg" \
 148 "Stat a nonexistant file returns ENOENT"
 149
 150 gdb_test continue \
 151 "Continuing\\..*fstat 1:.*OK$stop_msg" \
 152 "Fstat an open file"
 153
 154 gdb_test continue \
 155 "Continuing\\..*fstat 2:.*EBADF$stop_msg" \
 156 "Fstat an invalid file descriptor returns EBADF"
 157
 158 gdb_test continue \
 159 "Continuing\\..*isatty 1:.*OK$stop_msg" \
 160 "Isatty (stdin)"
 161
 162 gdb_test continue \
 163 "Continuing\\..*isatty 2:.*OK$stop_msg" \
 164 "Isatty (stdout)"
 165
 166 gdb_test continue \
 167 "Continuing\\..*isatty 3:.*OK$stop_msg" \
 168 "Isatty (stderr)"
 169
 170 gdb_test continue \
 171 "Continuing\\..*isatty 4:.*OK$stop_msg" \
 172 "Isatty (invalid fd)"
 173
 174 gdb_test continue \
 175 "Continuing\\..*isatty 5:.*OK$stop_msg" \
 176 "Isatty (open file)"
 177
 178 gdb_test continue \
 179 "Continuing\\..*system 1:.*OK$stop_msg" \
 180 "System says shell is available"
 181
 182 gdb_test_no_output "set remote system-call-allowed 1"
 183
 184 gdb_test continue \
 185 "Continuing\\..*system 2:.*OK$stop_msg" \
 186 "System(3) call"
 187
 188 # Is this ok?  POSIX says system returns a waitpid status?
 189 gdb_test continue \
 190 "Continuing\\..*system 3:.*OK$stop_msg" \
 191 "System with invalid command returns 127"
 192
 193 gdb_test continue \
 194 "Continuing\\..*rename 1:.*OK$stop_msg" \
 195 "Rename a file"
 196
 197 gdb_test continue \
 198 "Continuing\\..*rename 2:.*EISDIR$stop_msg" \
 199 "Renaming a file to existing directory returns EISDIR"
 200
 201 set test "Renaming a directory to a non-empty directory returns ENOTEMPTY or EEXIST"
 202 gdb_test_multiple continue "${test}" {
 203     -re "Continuing\\..*rename 3:.*(ENOTEMPTY|EEXIST)$stop_msg$gdb_prompt $" {
 204         pass "${test}"
 205     }
 206     -re "Continuing\\..*rename 3:.*EBUSY$stop_msg$gdb_prompt $" {
 207         # At least version <= 2.6/2004-01-08 of the Linux Kernel gets
 208         # this wrong (reporting EBUSY) when the file system is NFS
 209         # mounted.
 210         setup_xfail *-*-*linux* gdb/1502
 211         fail "${test}"
 212     }
 213 }
 214
 215 gdb_test continue \
 216 "Continuing\\..*rename 4:.*EINVAL$stop_msg" \
 217 "Renaming a directory to a subdir of itself returns EINVAL"
 218
 219 gdb_test continue \
 220 "Continuing\\..*rename 5:.*ENOENT$stop_msg" \
 221 "Renaming a nonexistant file returns ENOENT"
 222
 223 gdb_test continue \
 224 "Continuing\\..*unlink 1:.*OK$stop_msg" \
 225 "Unlink a file"
 226
 227 # This test fails on Cygwin because unlink() succeeds on Win32 systems
 228 # in that situation.
 229 if [ishost *cygwin*] {
 230     setup_xfail "*-*-*"
 231 }
 232 gdb_test continue \
 233 "Continuing\\..*unlink 2:.*EACCES$stop_msg" \
 234 "Unlinking a file in a directory w/o write access returns EACCES"
 235
 236 gdb_test continue \
 237 "Continuing\\..*unlink 3:.*ENOENT$stop_msg" \
 238 "Unlinking a nonexistant file returns ENOENT"
 239
 240 gdb_test continue \
 241 "Continuing\\..*time 1:.*OK$stop_msg" \
 242 "Time(2) call returns the same value as in parameter"
 243
 244 sleep 2
 245 gdb_test continue \
 246 "Continuing\\..*time 2:.*OK$stop_msg" \
 247 "Time(2) returns feasible values"
 248
 249 gdb_exit
 250 # Wait till GDB really exits.
 251 sleep 1
 252
 253 remote_exec build {sh -xc test\ -r\ dir2.fileio.test\ &&\ chmod\ -f\ +w\ dir2.fileio.test}
 254 remote_exec build {sh -xc rm\ -rf\ *.fileio.test}
 255
 256 set timeout $oldtimeout
 257 return 0