19 lines
426 B
Factor
19 lines
426 B
Factor
IN: temporary
|
|
USING: io embedded kernel test sequences ;
|
|
|
|
: test-embedded ( path -- ? )
|
|
"apps/http-server/test/" swap append
|
|
|
|
[
|
|
".fhtml" append resource-path
|
|
[ run-embedded-file ] string-out
|
|
] keep
|
|
|
|
".html" append resource-path
|
|
<file-reader> contents
|
|
= ;
|
|
|
|
[ t ] [ "example" test-embedded ] unit-test
|
|
[ t ] [ "bug" test-embedded ] unit-test
|
|
[ t ] [ "stack" test-embedded ] unit-test
|