From 879e43a52b25619f791ebb193ab8c5b6706eb5c8 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 13 Aug 2008 18:58:41 -0500
Subject: [PATCH] Add unit tests
---
core/sequences/sequences-tests.factor | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/core/sequences/sequences-tests.factor b/core/sequences/sequences-tests.factor
index 81c832660e..82dfbbd629 100755
--- a/core/sequences/sequences-tests.factor
+++ b/core/sequences/sequences-tests.factor
@@ -246,3 +246,8 @@ unit-test
[ 50 ] [ 100 [ even? ] count ] unit-test
[ 50 ] [ 100 [ odd? ] count ] unit-test
+
+[ { "b" "d" } ] [ { "a" "b" "c" "d" } { 1 3 } nths ] unit-test
+[ { "a" "b" "c" "d" } ] [ { "a" "b" "c" "d" } { 0 1 2 3 } nths ] unit-test
+[ { "d" "c" "b" "a" } ] [ { "a" "b" "c" "d" } { 3 2 1 0 } nths ] unit-test
+[ { "d" "a" "b" "c" } ] [ { "a" "b" "c" "d" } { 3 0 1 2 } nths ] unit-test