1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
#!perl use DAKKAR::p 'test';use Test::Enigmatic;use Enigmatic::Machine; Test::Enigmatic::test_full_machine( sub { Enigmatic::Machine->new({ reflector => 'B', rotors => [ 'III', 'II', 'I' ], }); }, 'AAAAA', 'BDZGO'); Test::Enigmatic::test_full_machine( sub { Enigmatic::Machine->new({ reflector => 'B', rotors => [ 'III', 'II', 'I' ], ring_settings => ['B','B','B'], }); }, 'AAAAA', 'EWTYX'); done_testing();