sequences.extras: make rotate support negative n.

[factor.git] / extra / sequences / extras / extras-tests.factor

diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index 3d7c4ff36cf0f994d3e398c0dae1e178871f3694..dfdc2837f9ea928742bcb85825741b7784d13d6f 100644 (file)
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -75,7 +75,7 @@ IN: sequences.extras.tests
 
 { "hello" "hello" } [ "hello" dup 0 rotate ] unit-test
 { "hello" "llohe" } [ "hello" dup 2 rotate ] unit-test
-[ "hello" dup -1 rotate ] must-fail
+{ "hello" "ohell" } [ "hello" dup -1 rotate ] unit-test
 
 { "hello" } [ "hello" dup 0 rotate! ] unit-test
 { "lohel" } [ "hello" dup 3 rotate! ] unit-test