extras: fix using/deleted word

[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 c18401ef65c3217940ccd51575e2ae0629dc6607..c116a51aeac3cb15cee0703ad4796a2d3c98c600 100644 (file)
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -487,3 +487,11 @@ strings tools.test ;
 
 { 20 1 } [ 0 { 10 20 30 } [ drop 20 = ] find-index-from* ] unit-test
 { f f } [ 0 { 10 20 30 } [ drop 21 = ] find-index-from* ] unit-test
+
+{ { { 1 1 } { 2 2 } { 0 3 } { 0 4 } { 0 5 } } } [
+    { 1 2 } { 1 2 3 4 5 } 0 zip-longest-with
+] unit-test
+
+{ { { 1 1 } { 2 2 } { f 3 } { f 4 } { f 5 } } } [
+    { 1 2 } { 1 2 3 4 5 } zip-longest
+] unit-test