steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix teh tests FOR GREAT JUSTICE

db4
erg 2008-04-01 20:07:18 -05:00
parent b5083a37ef
commit a94e5245a3
1 changed files with 5 additions and 5 deletions
extra/io/unix/files

10
extra/io/unix/files/files-tests.factor
View File

@ -22,8 +22,8 @@ IN: io.unix.files.tests
[ "/lib" ] [ "/" "../../lib" append-path ] unit-test
[ "/lib/" ] [ "/" "../../lib/" append-path ] unit-test
{ [ "/lib" ] [ "/usr/" "/lib" append-path ] }
{ [ "/lib/" ] [ "/usr/" "/lib/" append-path ] }
{ [ "/lib/bux" ] [ "/usr" "/lib/bux" append-path ] }
{ [ "/lib/bux/" ] [ "/usr" "/lib/bux/" append-path ] }
{ [ t ] [ "/foo" absolute-path? ] }
[ "/lib" ] [ "/usr/" "/lib" append-path ] unit-test
[ "/lib/" ] [ "/usr/" "/lib/" append-path ] unit-test
[ "/lib/bux" ] [ "/usr" "/lib/bux" append-path ] unit-test
[ "/lib/bux/" ] [ "/usr" "/lib/bux/" append-path ] unit-test
[ t ] [ "/foo" absolute-path? ] unit-test