2015-04-01 16:57:25 -04:00
|
|
|
|
|
|
|
|
USING: enigma kernel math sequences sorting tools.test ;
|
|
|
|
|
|
|
|
|
|
IN: enigma.tests
|
|
|
|
|
|
2015-07-02 16:37:42 -04:00
|
|
|
[ t ] [ <reflector> natural-sort 26 iota sequence= ] unit-test
|
2015-04-01 16:57:25 -04:00
|
|
|
|
2015-07-02 16:37:42 -04:00
|
|
|
[ "" ] [ "" 4 <enigma> encode ] unit-test
|
2015-04-01 16:57:25 -04:00
|
|
|
|
2015-07-02 16:37:42 -04:00
|
|
|
[ "hello, world" ] [
|
2015-04-01 16:57:25 -04:00
|
|
|
"hello, world" 4 <enigma> [ encode ] keep reset-cogs encode
|
|
|
|
|
] unit-test
|
