generalizations: Add nrotates and -nrotates.

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

diff --git a/core/generalizations/generalizations-tests.factor b/core/generalizations/generalizations-tests.factor
index 87157eac086534a57541d99f42996bc8cbc54181..c59940026e197ee13fe81185847e673c061389fb 100644 (file)
--- a/core/generalizations/generalizations-tests.factor
+++ b/core/generalizations/generalizations-tests.factor
@@ -29,6 +29,12 @@ IN: generalizations.tests
 [ [ 1 ] 5 ndip ] must-infer
 { 1 2 3 4 } [ 2 3 4 [ 1 ] 3 ndip ] unit-test
 
+[ [ 1 2 3 ] 2 3 nrotates ] must-infer
+[ [ 1 2 3 ] 2 3 -nrotates ] must-infer
+{ 1 2 3 4 } [ 1 2 3 4  4 4 nrotates ] unit-test
+{ 1 2 3 4 } [ 1 2 3 4  4 4 -nrotates ] unit-test
+{ 4 1 2 3 } [ 1 2 3 4  1 4 -nrotates ] unit-test
+
 [ 1 2 3 4 5 [ drop drop drop drop drop 2 ] 5 nkeep ] must-infer
 [ 1 2 3 4 5 2 '[ drop drop drop drop drop _ ] 5 nkeep ] must-infer
 { 2 1 2 3 4 5 } [ 1 2 3 4 5 [ drop drop drop drop drop 2 ] 5 nkeep ] unit-test