X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fsequences%2Fextras%2Fextras-tests.factor;h=53104befe7033f88fa843fa2a16b4dfef3bd71b0;hp=430e82ea3336781d350a162b500ace5af2b69205;hb=cdf7cce0463bea3ea406c7ef5bcac72991413326;hpb=ae305990c566b5986e634140835d3c27b08c8af3

diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index 430e82ea33..53104befe7 100644
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -322,4 +322,9 @@ math prettyprint sequences sequences.extras strings tools.test ;
 
 { { 5 11 26 61 } } [
     V{ 5 16 42 103 } [ - ] { } map-prior-as
-] unit-test
\ No newline at end of file
+] unit-test
+
+{ f } [ 0 CHAR: a "foo" nth-index ] unit-test
+{ 0 } [ 0 CHAR: a "abba" nth-index ] unit-test
+{ 3 } [ 1 CHAR: a "abba" nth-index ] unit-test
+{ f } [ 2 CHAR: a "abba" nth-index ] unit-test