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