Added test case for { 0 } { } p* etc

diff --git a/contrib/math/test.factor b/contrib/math/test.factor
index 5e11f3ab6de44bb684973cb1acc299ea96a6ba36..ac7a764a4c90e44efbfa510b2432531bda5819e3 100644 (file)
--- a/contrib/math/test.factor
+++ b/contrib/math/test.factor
@@ -9,6 +9,9 @@ USING: kernel math test sequences math-contrib ;
 [ V{ 3 10 8 } ] [ { 3 4 } { 1 2 } p* ] unit-test
 [ V{ 0 0 0 0 0 0 0 0 0 0 } ] [ { 0 0 0 } { 0 0 0 0 0 0 0 0 } p* ] unit-test
 [ V{ 0 1 } ] [ { 0 1 } { 1 } p* ] unit-test
+[ V{ 0 } ] [ { } { } p* ] unit-test
+[ V{ 0 } ] [ { 0 } { } p* ] unit-test
+[ V{ 0 } ] [ { } { 0 } p* ] unit-test
 [ V{ 0 0 0 } ] [ { 0 0 0 } { 0 0 0 } p+ ] unit-test
 [ V{ 0 0 0 } ] [ { 0 0 0 } { 0 0 0 } p- ] unit-test
 [ { 0 0 0 } ] [ 4 { 0 0 0 } n*p ] unit-test