sequences.extras: Add find-pred

[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 a85b6c087e8538a4f8f17523009a82fbce4f5e1c..c9207763328967c9b4d39eabda0ca2d9a0ef16ae 100644 (file)
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -279,3 +279,6 @@ tools.test vectors vocabs ;
 { 4 } [ { 1 2 3 4 } [ 5 < ] count-tail ] unit-test
 
 { SBUF" aco" SBUF" ftr"  } [ SBUF" factor" dup [ even? ] extract! ] unit-test
+
+{ 25 5 1 } [ { 4 5 6 } [ sq ] [ 20 > ] find-pred ] unit-test
+{ f f f } [ { 4 5 6 } [ sq ] [ 200 > ] find-pred ] unit-test
\ No newline at end of file