extra/enigma/enigma-tests.factor

   1
   2 USING: enigma kernel math sequences sorting tools.test ;
   3
   4 IN: enigma.tests
   5
   6 { t } [ <reflector> natural-sort 26 iota sequence= ] unit-test
   7
   8 { "" } [ "" 4 <enigma> encode ] unit-test
   9
  10 { "hello, world" } [
  11     "hello, world" 4 <enigma> [ encode ] keep reset-cogs encode
  12 ] unit-test