KeySpec.hs

module Conferer.KeySpec where

import Test.Hspec

import Conferer.Key
import Conferer.Key.Internal

spec :: Spec
spec = do
  describe "#fromString" $ do
    it "parsing keys does the right thing" $ do
      "some.key" `shouldBe` Key ["some", "key"]
    it "an empty string is the empty list" $ do
      "" `shouldBe` Key []
    it "empty key fragments are removed" $ do
      "some..key" `shouldBe` Key ["some", "key"]
    it "are matched in a case insensitive way" $ do
      "some.key" `shouldBe` ("SoME.KeY" :: Key)
    it "'s true representation is case insensitive" $ do
      "somE.Key" `shouldBe` Key ["some", "key"]
  describe "#isValidKeyFragment" $ do
    context "with a all leters" $ do
      it "is valid" $
        isValidKeyFragment "fragment" `shouldBe` True
    context "with only numbers" $ do
      it "is valid" $
        isValidKeyFragment "000" `shouldBe` True
    context "with both numbers and letters" $ do
      it "is valid" $
        isValidKeyFragment "000" `shouldBe` True
    context "with a dot" $ do
      it "is not valid" $ do
        isValidKeyFragment "some.fragment" `shouldBe` False
    context "with an uppercase letter" $ do
      it "is not valid" $ do
        isValidKeyFragment "FRAGMENT" `shouldBe` False
    context "with an empty string" $ do
      it "is not valid" $ do
        isValidKeyFragment "" `shouldBe` False