test ring_setting is writable

1 files changed, 10 insertions, 0 deletions

diff --git a/t/rotors.t b/t/rotors.t
index 90ce6ce..9e0b2f8 100644
--- a/t/rotors.t
+++ b/t/rotors.t
@@ -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',