Fixing everything for mandatory stack effects

[factor.git] / core / effects / effects-tests.factor

diff --git a/core/effects/effects-tests.factor b/core/effects/effects-tests.factor
index 1c2b2f766d6952f29262a1b2305d3961da79a6c0..c592ef6c92e21e7ad03fe9d6fe015b560c2a15ee 100644 (file)
--- a/core/effects/effects-tests.factor
+++ b/core/effects/effects-tests.factor
@@ -8,4 +8,10 @@ USING: effects tools.test prettyprint accessors sequences ;
 [ f ] [ 2 3 <effect> 2 2 <effect> effect<= ] unit-test
 [ 2 ] [ (( a b -- c )) in>> length ] unit-test
 [ 1 ] [ (( a b -- c )) out>> length ] unit-test
+
+
+[ "(( a b -- c d ))" ] [ { "a" "b" } { "c" "d" } <effect> unparse ] unit-test
+[ "(( -- c d ))" ] [ { } { "c" "d" } <effect> unparse ] unit-test
+[ "(( a b -- ))" ] [ { "a" "b" } { } <effect> unparse ] unit-test
+[ "(( -- ))" ] [ { } { } <effect> unparse ] unit-test
 [ "(( a b -- c ))" ] [ (( a b -- c )) unparse ] unit-test