
spec :: Spec
spec = do
  describe "looking up keys" $ do
    it "should return true when a key exists" $
      let tokens = [Token "foo" Nothing]
      in  key "foo" tokens `shouldBe` True

    it "should return false when a key does not exist" $