From 2eccaa5a82a339f0f184d34885d128f4fb4f30dc Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 13 Oct 2011 16:49:54 -0700 Subject: [PATCH] generic.parser: adding tests. --- core/generic/parser/parser-tests.factor | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 core/generic/parser/parser-tests.factor diff --git a/core/generic/parser/parser-tests.factor b/core/generic/parser/parser-tests.factor new file mode 100644 index 0000000000..d14da1bde5 --- /dev/null +++ b/core/generic/parser/parser-tests.factor @@ -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