From cb9261d975de97c2b5bbe57d02951d80a1bc2d42 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 26 Jan 2010 01:01:22 +1300
Subject: [PATCH] grouping: add a unit test

---
 basis/grouping/grouping-tests.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/basis/grouping/grouping-tests.factor b/basis/grouping/grouping-tests.factor
index 52b436507e..60500558a7 100644
--- a/basis/grouping/grouping-tests.factor
+++ b/basis/grouping/grouping-tests.factor
@@ -30,3 +30,5 @@ IN: grouping.tests
 [ f ] [ [ 1.0 1 1 ] all-equal? ] unit-test
 [ t ] [ { 1 2 3 4 } [ < ] monotonic? ] unit-test
 [ f ] [ { 1 2 3 4 } [ > ] monotonic? ] unit-test
+
+[ { 6 7 8 3 4 5 0 1 2 } ] [ 9 iota >array dup 3 <groups> reverse! drop ] unit-test