56 lines
615 B
Perl
56 lines
615 B
Perl
use disk1
|
|
mkfs 32
|
|
|
|
mkdir test1
|
|
mkdir test2
|
|
la
|
|
|
|
cd test1
|
|
la
|
|
|
|
create hello1
|
|
mkdir inside
|
|
symlink ../../test2/ inside/hello3
|
|
stat inside/hello3
|
|
|
|
cd ../test2
|
|
la
|
|
|
|
symlink ../test1/inside hello2
|
|
stat hello2
|
|
|
|
cd /
|
|
cd test1/../test2/hello2/../../test2/.././././test1/inside/hello3/./hello2/.
|
|
|
|
cd ..
|
|
create inside/././hello3/.././test1/f7
|
|
symlink /test1/f7 ../f1
|
|
la
|
|
cd ..
|
|
la
|
|
cd test1
|
|
open ../test2/hello2/../../f1
|
|
write 0 data
|
|
la
|
|
close 0
|
|
|
|
cd /
|
|
rm test1
|
|
rmdir test1
|
|
rm test1/inside/hello3
|
|
rmdir test1/inside
|
|
rm test1/hello1
|
|
rm test1/f7
|
|
rmdir test1
|
|
|
|
cd test2
|
|
la
|
|
cd hello2
|
|
|
|
symlink garbage/ttttt ..
|
|
cd ..
|
|
la
|
|
|
|
cd ttttt
|
|
rm ttttt
|