module Test.Hspec.Expectations.Pretty.MatcherSpec (main, spec) where

import           Test.Hspec

import           Test.Hspec.Expectations.Pretty.Matcher

main :: IO ()
main = hspec spec

spec :: Spec
spec = do
  describe "matchList" $ do
    it "succeeds if arguments are empty lists" $ do
      matchList [] ([] :: [Int]) `shouldBe` Nothing

    it "succeeds if arguments are equal up to permutation" $ do
      matchList [1, 2, 2, 3] [3, 2, 1, 2 :: Int] `shouldBe` Nothing

    context "when arguments are not equal up to permutation" $ do
      it "shows extra elements" $ do
        [1, 2, 2, 3] `matchList` [1, 2, 3 :: Int] `shouldBe` (Just . unlines) [
            "Actual list is not a permutation of expected list!"
          , "  expected list contains:   [1, 2, 3]"
          , "  actual list contains:     [1, 2, 2, 3]"
          , "  the extra elements are:   [2]"
          ]

      it "shows missing elements" $ do
        [1, 2, 3] `matchList` [1, 2, 2, 3 :: Int] `shouldBe` (Just . unlines) [
            "Actual list is not a permutation of expected list!"
          , "  expected list contains:   [1, 2, 2, 3]"
          , "  actual list contains:     [1, 2, 3]"
          , "  the missing elements are: [2]"
          ]