extra/sequences/rotated/rotated-tests.factor

   1 ! Copyright (C) 2012 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3 USING: strings tools.test ;
   4
   5 { "fasd" } [ "asdf" -1 <rotated> >string ] unit-test
   6 { "sdfa" } [ "asdf" 1 <rotated> >string ] unit-test
   7 { "asdf" } [ "asdf" 0 <rotated> >string ] unit-test
   8 { "asdf" } [ "asdf" 4 <rotated> >string ] unit-test
   9 { "asdf" } [ "asdf" -4 <rotated> >string ] unit-test