factor/extra/enigma/enigma-tests.factor


USING: enigma kernel math sequences sorting tools.test ;

{ t } [ <reflector> natural-sort 26 <iota> sequence= ] unit-test

{ "" } [ "" 4 <enigma> encode ] unit-test

{ "hello, world" } [
    "hello, world" 4 <enigma> [ encode ] keep reset-cogs encode
] unit-test
enigma: implementation of Enigma cipher machine. 2015-04-01 16:57:25 -04:00
			`USING: enigma kernel math sequences sorting tools.test ;`

core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota-tuple ... ; 2017-06-01 17:59:35 -04:00			`{ t } [ <reflector> natural-sort 26 <iota> sequence= ] unit-test`
enigma: implementation of Enigma cipher machine. 2015-04-01 16:57:25 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ "" } [ "" 4 <enigma> encode ] unit-test`
enigma: implementation of Enigma cipher machine. 2015-04-01 16:57:25 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ "hello, world" } [`
enigma: implementation of Enigma cipher machine. 2015-04-01 16:57:25 -04:00			`"hello, world" 4 <enigma> [ encode ] keep reset-cogs encode`
			`] unit-test`