From 9a57b6a518d544a7ab4ae0ea155ca50eea399f62 Mon Sep 17 00:00:00 2001
From: Richard Bowker <richardbowker@monkeygroover.com>
Date: Thu, 17 Mar 2022 18:55:16 +0000
Subject: [PATCH] Add regression test for slow repeated rotate

---
 test/commands/special_test.exs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/test/commands/special_test.exs b/test/commands/special_test.exs
index 1010bf0..ef89fa6 100644
--- a/test/commands/special_test.exs
+++ b/test/commands/special_test.exs
@@ -285,4 +285,8 @@ defmodule SpecialOpsTest do
         assert evaluate("\"abcdef\" 1101S ÅÏu}") == "ABcDef"
         assert evaluate("∞ 10Þ ÅÏ5+} 10£") == [6, 2, 8, 4, 10, 6, 12, 8, 14, 10]
     end
+
+    test "performance of repeated rotation" do
+        assert evaluate("123456789S256FÀ") == ["5", "6", "7", "8", "9", "1", "2", "3", "4"]
+    end
 end