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