use DAKKAR::p 'test';
use Test::Enigmatic;
use Enigmatic::Machine;
sub real_machine {
return Enigmatic::Machine->new({
reflector => 'B_thin',
rotors => [ 'I', 'IV', 'II', 'Beta' ],
plugboard => 'AT BL DF GJ HM NW OP QY RZ VX',
ring_settings => [ 'V', 'A', 'A', 'A' ],
rotor_positions => [ 'A', 'N', 'J', 'V' ],
});
}
Test::Enigmatic::test_full_machine(
\&real_machine,
'this is a simple text to be encrypted by an enigma machine');
done_testing();