diff options
-rw-r--r-- | t/rotors.t | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -29,6 +29,16 @@ subtest 'identity rotor, non-default ring setting' => sub { Test::Enigmatic::test_static_map($r,\@out,'ring=1'); }; +subtest 'identity rotor, moved ring setting' => sub { + my @out = (('B'..'Z'),'A'); + + my $r = Enigmatic::Rotor->new( + wiring => ['A'..'Z']->join, + ); + $r->ring_setting(1); + Test::Enigmatic::test_static_map($r,\@out,'ring moved to 1'); +}; + subtest 'constraints' => sub { my @bad_params = ( 'ABCD', |