Unit.hs

{-# LANGUAGE PatternSynonyms  #-}
{-# LANGUAGE TypeApplications #-}

module Test.Toml.PrefixTree.Unit where

import Test.Tasty.Hspec (Spec, describe, it, shouldBe)

import Toml.PrefixTree (pattern (:||))

import qualified Toml.PrefixTree as Prefix

spec_PrefixTree :: Spec
spec_PrefixTree = do
  -- some test keys
  let a  = "a" :|| []
  let b  = "b" :|| []
  let c  = "c" :|| []
  let ab = "a" :|| ["b"]

  describe "Insert and lookup unit tests" $ do
    it "Lookup on empty map returns Nothing" $
      Prefix.lookup @Bool a mempty `shouldBe` Nothing
    it "Lookup in single map returns this element" $ do
      let t = Prefix.single a True
      Prefix.lookup a t `shouldBe` Just True
      Prefix.lookup b t `shouldBe` Nothing
    it "Lookup after insert returns this element" $ do
      let t = Prefix.insert a True mempty
      Prefix.lookup a t `shouldBe` Just True
      Prefix.lookup b t `shouldBe` Nothing
    it "Lookup after multiple non-overlapping inserts" $ do
      let t = Prefix.insert a True $ Prefix.insert b False mempty
      Prefix.lookup a t `shouldBe` Just True
      Prefix.lookup b t `shouldBe` Just False
      Prefix.lookup c t `shouldBe` Nothing
    it "Prefix lookup" $ do
      let t = Prefix.insert ab True mempty
      Prefix.lookup a  t `shouldBe` Nothing
      Prefix.lookup ab t `shouldBe` Just True
    it "Composite key lookup" $ do
      let t = Prefix.insert a True $ Prefix.insert ab False mempty
      Prefix.lookup a  t `shouldBe` Just True
      Prefix.lookup ab t `shouldBe` Just False