]> gitweb.factorcode.org Git - factor.git/blob - basis/furnace/utilities/utilities-tests.factor
furnace.utilities: use a method based on where instead of vocab-path to find dir...
[factor.git] / basis / furnace / utilities / utilities-tests.factor
1 USING: furnace.utilities io.encodings.utf8 io.files io.files.temp kernel
2 multiline parser tools.test webapps.counter ;
3 IN: furnace.utilities.tests
4
5 <<
6 STRING: dummy-vocab
7 IN: dummy-vocab
8
9 : dummy-word ( -- ) ;
10 ;
11
12 dummy-vocab "dummy.factor" temp-file [ utf8 set-file-contents ] keep run-file
13 >>
14
15 { t } [
16     USE: dummy-vocab
17     { dummy-word "index" } resolve-template-path "index" temp-file =
18 ] unit-test
19
20 { "resource:extra/webapps/counter/counter" } [
21     { counter-app "counter" } resolve-template-path
22 ] unit-test