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

generic.parser: adding tests.

John Benediktsson 2011-10-13 16:49:54 -07:00
parent d7c3da2fd4
commit 2eccaa5a82
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
core/generic/parser/parser-tests.factor Normal file
View File

@ -0,0 +1,13 @@
USING: generic.parser tools.test ;
IN: generic.parser.tests
[ t ] [ (( -- )) (( -- )) method-effect= ] unit-test
[ t ] [ (( a -- b )) (( x -- y )) method-effect= ] unit-test
[ f ] [ (( a b -- c )) (( x -- y )) method-effect= ] unit-test
[ f ] [ (( a -- b )) (( x y -- z )) method-effect= ] unit-test
[ t ] [ (( -- * )) (( -- )) method-effect= ] unit-test
[ f ] [ (( -- * )) (( x -- y )) method-effect= ] unit-test
[ t ] [ (( x -- * )) (( x -- y )) method-effect= ] unit-test
[ t ] [ (( x -- * )) (( x -- y z )) method-effect= ] unit-test