generalizations: fix test

mrjbq7 · May 1, 2023 · b4645bf · b4645bf
1 parent 2c6e645
commit b4645bf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/core/generalizations/generalizations-tests.factor b/core/generalizations/generalizations-tests.factor
@@ -6,8 +6,8 @@ IN: generalizations.tests
 { 1 2 3 4 2 } [ 1 2 3 4 3 npick ] unit-test
 { 1 2 3 4 3 } [ 1 2 3 4 2 npick ] unit-test
 { 1 2 3 4 4 } [ 1 2 3 4 1 npick ] unit-test
-[ 1 2 3 4 0 npick ] [ nonpositive-npick? ] must-fail-with
-[ 1 2 3 4 -11 npick ] [ nonpositive-npick? ] must-fail-with
+[ 1 2 3 4 0 npick ] [ positive-number-expected? ] must-fail-with
+[ 1 2 3 4 -11 npick ] [ positive-number-expected? ] must-fail-with
 
 [ 1 1 ndup ] must-infer
 { 1 1 } [ 1 1 ndup ] unit-test