14 lines
485 B
Factor
Executable File
14 lines
485 B
Factor
Executable File
USING: tools.test io.files ;
|
|
IN: io.unix.files.tests
|
|
|
|
[ "/usr/libexec/" ] [ "/usr/libexec/awk/" parent-directory ] unit-test
|
|
[ "/etc/" ] [ "/etc/passwd" parent-directory ] unit-test
|
|
[ "/" ] [ "/etc/" parent-directory ] unit-test
|
|
[ "/" ] [ "/etc" parent-directory ] unit-test
|
|
[ "/" ] [ "/" parent-directory ] unit-test
|
|
|
|
[ f ] [ "" root-directory? ] unit-test
|
|
[ t ] [ "/" root-directory? ] unit-test
|
|
[ t ] [ "//" root-directory? ] unit-test
|
|
[ t ] [ "///////" root-directory? ] unit-test
|