10 lines
291 B
Factor
10 lines
291 B
Factor
|
IN: scratchpad
|
||
|
|
USE: files
|
||
|
|
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
|