Lines Matching refs:exists
200 # where the database already exists.
222 proc create_tests { op1 op2 exists noexist open retval { end1 "" } } {
226 # Use first element from exists list
227 set from [lindex $exists 0]
234 # Adjust 'exists' and 'noexist' list if and only if
237 set exists [lreplace $exists 0 0 $to]
242 set from [lindex $exists 0]
246 set exists [lreplace $exists 0 0]
253 set from [lindex $exists 0]
257 set exists [lreplace $exists 0 0]
262 # equivalent to the 2nd element (neither ever exists).
275 # Eliminate the 1st element in exists: it is
277 set exists [lreplace $exists 0 0]
282 set op2list [create_op2 $op2 $exists $noexist $open $retval]
290 proc create_badtests { op1 op2 exists noexist open retval {end1 ""} } {
294 # Use first element from exists list
295 set from [lindex $exists 0]
305 [list $op1 "$from $from" "file exists" $end1]
310 $op2 $exists $noexist $open $retval]
325 $op2 $exists $noexist $open $retval]
332 set file [lindex $exists 0]
333 set op1list [list $op1 $file "file exists" $end1]
335 $op2 $exists $noexist $open $retval]
344 proc create_op2 { op2 exists noexist open retval } {
351 set old $exists
356 # "File exists" errors arise from renaming existing
358 if { $retval == "file exists" } {
359 set old $exists
360 set new $exists
368 set new $exists
384 set file $exists
386 # "File exists" does not happen in remove.
387 if { $retval == "file exists" } {
401 set file [concat $exists $open $noexist]
403 # "File exists" and "no such file"
405 if { $retval == "file exists" || \
414 set file [concat $exists $open]
421 # "File exists" errors do not happen in open.
422 if { $retval == "file exists" } {
432 # "File exists" errors arise from trying to open
434 if { $retval == "file exists" } {
435 set file [concat $exists $open]
446 set file $exists
452 $retval == "file exists" } {
478 if { [is_substr $message "exists"] == 1 } {
479 set message "file exists"