30 lines
1.4 KiB
Factor
Executable File
30 lines
1.4 KiB
Factor
Executable File
! Copyright (C) 2005, 2006 Alex Chapman, Daniel Ehrenberg
|
|
! See http;//factorcode.org/license.txt for BSD license
|
|
USING: arrays kernel tools.test sequences sequences.private
|
|
circular strings ;
|
|
|
|
[ 0 ] [ { 0 1 2 3 4 } <circular> 0 swap virtual@ drop ] unit-test
|
|
[ 2 ] [ { 0 1 2 3 4 } <circular> 2 swap virtual@ drop ] unit-test
|
|
|
|
[ CHAR: t ] [ "test" <circular> 0 swap nth ] unit-test
|
|
[ "test" ] [ "test" <circular> >string ] unit-test
|
|
|
|
[ CHAR: e ] [ "test" <circular> 5 swap nth-unsafe ] unit-test
|
|
|
|
[ [ 1 2 3 ] ] [ { 1 2 3 } <circular> [ ] like ] unit-test
|
|
[ [ 2 3 1 ] ] [ { 1 2 3 } <circular> 1 over change-circular-start [ ] like ] unit-test
|
|
[ [ 3 1 2 ] ] [ { 1 2 3 } <circular> 1 over change-circular-start 1 over change-circular-start [ ] like ] unit-test
|
|
[ [ 3 1 2 ] ] [ { 1 2 3 } <circular> -100 over change-circular-start [ ] like ] unit-test
|
|
|
|
[ "fob" ] [ "foo" <circular> CHAR: b 2 pick set-nth >string ] unit-test
|
|
[ "boo" ] [ "foo" <circular> CHAR: b 3 pick set-nth-unsafe >string ] unit-test
|
|
[ "ornact" ] [ "factor" <circular> 4 over change-circular-start CHAR: n 2 pick set-nth >string ] unit-test
|
|
|
|
[ "bcd" ] [ 3 <circular-string> "abcd" [ over push-circular ] each >string ] unit-test
|
|
|
|
[ { 0 0 } ] [ { 0 0 } <circular> -1 over change-circular-start >array ] unit-test
|
|
|
|
! This no longer fails
|
|
! [ "test" <circular> 5 swap nth ] must-fail
|
|
! [ "foo" <circular> CHAR: b 3 rot set-nth ] must-fail
|