extra/sequences/shifted/shifted-tests.factor

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