2007-09-20 18:09:08 -04:00
|
|
|
USING: tools.test io.files ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: io.unix.files.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2007-11-05 00:46:03 -05:00
|
|
|
[ "/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
|
2008-03-25 20:50:39 -04:00
|
|
|
|
|
|
|
|
[ f ] [ "" root-directory? ] unit-test
|
|
|
|
|
[ t ] [ "/" root-directory? ] unit-test
|
|
|
|
|
[ t ] [ "//" root-directory? ] unit-test
|
|
|
|
|
[ t ] [ "///////" root-directory? ] unit-test
|
