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