17 lines
726 B
Factor
Executable File
17 lines
726 B
Factor
Executable File
USING: io.files kernel tools.test ;
|
|
IN: temporary
|
|
|
|
[ "c:\\foo\\" ] [ "c:\\foo\\bar" parent-directory ] unit-test
|
|
[ "c:\\" ] [ "c:\\foo\\" parent-directory ] unit-test
|
|
[ "c:\\" ] [ "c:\\foo" parent-directory ] unit-test
|
|
! { "c:" "c:\\" "c:/" } [ directory ] each -- all do the same thing
|
|
[ "c:" ] [ "c:\\" parent-directory ] unit-test
|
|
[ "Z:" ] [ "Z:\\" parent-directory ] unit-test
|
|
[ "c:" ] [ "c:" parent-directory ] unit-test
|
|
[ "Z:" ] [ "Z:" parent-directory ] unit-test
|
|
[ t ] [ "c:\\" trim-path-separators root-directory? ] unit-test
|
|
[ t ] [ "Z:\\" trim-path-separators root-directory? ] unit-test
|
|
[ f ] [ "c:\\foo" root-directory? ] unit-test
|
|
[ f ] [ "." root-directory? ] unit-test
|
|
[ f ] [ ".." root-directory? ] unit-test
|