419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
|
} {1}
removeFile gorp.file
test filesystem-8.1 {relative path objects and caching of pwd} {
set dir [pwd]
cd [tcltest::temporaryDirectory]
# We created this file several tests ago.
|
<
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
|
} {1}
removeFile gorp.file
test filesystem-8.1 {relative path objects and caching of pwd} {
set dir [pwd]
cd [tcltest::temporaryDirectory]
makeDirectory abc
makeDirectory def
makeFile "contents" [file join abc foo]
cd abc
set f "foo"
set res {}
lappend res [file exists $f]
lappend res [file exists $f]
cd ..
cd def
# If we haven't cleared the object's cwd cache, Tcl
# will think it still exists.
lappend res [file exists $f]
lappend res [file exists $f]
removeFile [file join abc foo]
removeDirectory abc
removeDirectory def
cd $dir
set res
} {1 1 0 0}
test filesystem-8.2 {relative path objects and use of pwd} {
set origdir [pwd]
cd [tcltest::temporaryDirectory]
set dir "abc"
makeDirectory $dir
makeFile "contents" [file join abc foo]
cd $dir
set res [file exists [lindex [glob *] 0]]
cd ..
removeFile [file join abc foo]
removeDirectory abc
removeDirectory def
cd $origdir
set res
} {1}
cleanupTests
}
namespace delete ::tcl::test::fileSystem
return
|