2005-03-28 23:45:13 -05:00
|
|
|
IN: temporary
|
2004-08-28 16:43:43 -04:00
|
|
|
USE: files
|
2005-03-21 00:25:15 -05:00
|
|
|
USE: httpd
|
2004-10-03 16:07:48 -04:00
|
|
|
USE: lists
|
2004-08-28 16:43:43 -04:00
|
|
|
USE: test
|
|
|
|
|
|
|
|
|
|
[ "txt" ] [ "foo.txt" file-extension ] unit-test
|
|
|
|
|
[ f ] [ "foobar" file-extension ] unit-test
|
|
|
|
|
[ "txt" ] [ "foo.bar.txt" file-extension ] unit-test
|
|
|
|
|
[ "text/plain" ] [ "foo.bar.txt" mime-type ] unit-test
|
|
|
|
|
[ "text/html" ] [ "index.html" mime-type ] unit-test
|
2004-10-03 16:07:48 -04:00
|
|
|
|
|
|
|
|
! Some tests to ensure these words simply work, since we can't
|
|
|
|
|
! really test them
|
|
|
|
|
|
|
|
|
|
[ t ] [ cwd directory list? ] unit-test
|
|
|
|
|
|
|
|
|
|
cwd directory.
|
