extra/sequences/snipped/snipped-tests.factor

   1 ! Copyright (C) 2013 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3 USING: arrays sequences sequences.snipped tools.test ;
   4
   5 { { 0 1 2 5 6 } } [ 3 5 7 <iota> <snipped> >array ] unit-test
   6 { { 0 1 2 } } [ 3 10 7 <iota> <snipped> >array ] unit-test
   7 { { 6 } } [ -1 5 7 <iota> <snipped> >array ] unit-test
   8 { { } } [ -1 10 7 <iota> <snipped> >array ] unit-test