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

Add tests for auto-USING selection

db4
Nicholas Seckar 2009-04-19 19:57:35 -07:00
parent af7ecb16cf
commit 18b5090892
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
extra/fuel/fuel-tests.factor Normal file
View File

@ -0,0 +1,33 @@
! Copyright (C) 2009 Nicholas Seckar.
! See http://factorcode.org/license.txt for BSD license.
USING: continuations eval fuel fuel.private namespaces tools.test words ;
IN: fuel.tests
: fake-continuation ( -- continuation )
f f f "fake" f <continuation> ;
: make-uses-restart ( -- restart )
"Use the words vocabulary" \ word?
fake-continuation <restart> ;
: make-defer-restart ( -- restart )
"Defer word in current vocabulary" f
fake-continuation <restart> ;
{ f } [ make-defer-restart is-use-restart ] unit-test
{ t } [ make-uses-restart is-use-restart ] unit-test
{ "words" } [ make-uses-restart get-restart-vocab ] unit-test
{ f } [ make-defer-restart is-suggested-restart ] unit-test
{ f } [ make-uses-restart is-suggested-restart ] unit-test
{ f } [ { "io" } :uses-suggestions
[ make-uses-restart is-suggested-restart ] with-variable
] unit-test
{ t } [ { "words" } :uses-suggestions
[ make-uses-restart is-suggested-restart ] with-variable
] unit-test
{ } [
{ "kernel" } [ "\\ dup drop" eval( -- ) ] fuel-use-suggested-vocabs
] unit-test