94
95
96
97
98
99
100
|
absolute-tree-name 102 test1 [pwd]/test $dirname/file1/test . [pwd]/file1 $dirname/file1/file1 . [pwd]/file1/file2 $dirname/file1/file1/file2
absolute-tree-name 103 . [pwd] $dirname/file1
catch {file delete test1/test2}
catch {file delete test1}
if {[info exists savedPwd]} {cd $savedPwd; unset savedPwd}
|
>
>
>
>
|
94
95
96
97
98
99
100
101
102
103
104
|
absolute-tree-name 102 test1 [pwd]/test $dirname/file1/test . [pwd]/file1 $dirname/file1/file1 . [pwd]/file1/file2 $dirname/file1/file1/file2
absolute-tree-name 103 . [pwd] $dirname/file1
catch {file delete test1/test2}
catch {file delete test1}
if {[info exists savedPwd]} {cd $savedPwd; unset savedPwd}
###############################################################################
test_cleanup
|