Add key sequence filtering and rendering matched keys

1 files changed, 22 insertions, 0 deletions

diff --git a/specs/Specs/KeySequenceSpec.hs b/specs/Specs/KeySequenceSpec.hs
new file mode 100644
index 0000000..8b820b4
--- /dev/null
+++ b/specs/Specs/KeySequenceSpec.hs
@@ -0,0 +1,22 @@
+module Specs.KeySequenceSpec where
+
+import Chelleport.KeySequence (nextChars)
+import Test.Hspec
+
+test = do
+  describe "#nextChars" $ do
+    it "filters key sequence and returns next characters" $ do
+      nextChars "AB" [["XYZ", "ABC"], ["AMK", "BBL", "ABD"]]
+        `shouldBe` Just "CD"
+      nextChars "A" [["XYZ", "ABC"], ["AMK", "BBL", "ABD"]]
+        `shouldBe` Just "BM"
+
+    context "when exact match is present" $ do
+      it "returns next characters" $ do
+        nextChars "ABD" [["XYZ", "ABC"], ["AMK", "BBL", "ABD"]]
+          `shouldBe` Just ""
+
+    context "when there are no matches" $ do
+      it "returns nothing" $ do
+        nextChars "FOO" [["XYZ", "ABC"], ["AMK", "BBL", "ABD"]]
+          `shouldBe` Nothing