From c802d62a3afc99c784cfbb7ca2033930d6537555 Mon Sep 17 00:00:00 2001 From: dakkar Date: Mon, 29 Aug 2011 18:22:24 +0100 Subject: full-machine and tests --- t/simple-enigma.t | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 t/simple-enigma.t (limited to 't/simple-enigma.t') diff --git a/t/simple-enigma.t b/t/simple-enigma.t new file mode 100644 index 0000000..b2bcbdd --- /dev/null +++ b/t/simple-enigma.t @@ -0,0 +1,23 @@ +#!perl +use DAKKAR::p 'test'; + +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' ], + }); +} + +my $plaintext = 'this is a simple text to be encrypted by an enigma machine'->uc; +note "encrypt simple"; +my $ciphertext = real_machine->map_string($plaintext);note $ciphertext; +note "decrypt simple"; +my $check = real_machine->map_string($ciphertext);note $check; +$plaintext =~ s{\s+}{}g; +is($check,$plaintext, + 'round tripped'); -- cgit v1.2.3