From f5270fa09e0cd3af66663b326d3abe9ab76b5d75 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Mon, 29 Aug 2011 13:58:24 +0100
Subject: test ring_setting is writable

---
 t/rotors.t | 10 ++++++++++
 1 file changed, 10 insertions(+)

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',
-- 
cgit v1.2.3