pyrites/haskell-experiments/test/Test/Utility/UtilitySpec.hs

{-# LANGUAGE BlockArguments #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE ImportQualifiedPost #-}
{-# LANGUAGE OverloadedRecordDot #-}
{-# HLINT ignore "Use const" #-}
{-# HLINT ignore "Unused LANGUAGE pragma" #-}
{-# HLINT ignore "Avoid lambda" #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoMonomorphismRestriction #-}
{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}

module Test.Utility.UtilitySpec where

import Test.Hspec
import Utility.Utility
import qualified Data.Map as Map
import Data.Map

spec :: Spec
spec = do
  describe "UtilitySpec" do
    it "..." $ do
      allMaps @Int @Int [] [] `shouldBe` [Map.empty]
      allMaps @Int @Int [] [1] `shouldBe` [Map.empty]
      allMaps @Int @Int [1] [] `shouldBe` []
      allMaps [1] [True] `shouldBe` [Map.singleton 1 True]
      uncharacteristic <$> allMaps [1, 2, 3] [True, False] `shouldMatchList` [
        [1,2,3], [1,2], [1,3], [1], [2, 3], [2], [3], []
        ]

uncharacteristic :: forall a . Map a Bool -> [a]
uncharacteristic intmap = [ x | (x, v) <- toList intmap, v ]