Replace tasty by hspec

test/Main.hs

@@ -1,12 +1,12 @@
 module Main where
 
-import Test.Tasty         ( defaultMain, testGroup, TestTree, withResource )
-import Test.Tasty.HUnit   ( testCase, (@?=) )
-import Trivialini         ( Ini(..), IniMap, readIniFile )
-import Data.Map           ( fromList )
-import System.FilePath    ( (</>) )
-import System.Directory   ( getTemporaryDirectory, removeFile )
+import Trivialini
+import Test.Hspec
+import Data.Map
+import System.IO.Temp
+import System.IO
 
+exampleIni :: String
 exampleIni =  "[xnorfzt]\n\
               \foo = bar\n\
               \\n\
@@ -16,37 +16,28 @@ exampleIni =  "[xnorfzt]\n\
               \ baz quux   =      quuux\n\
               \"
 
+expectedIni :: Ini
 expectedIni = Ini $ fromList [
     ("xnorfzt", fromList [("foo", "bar"), ("x", "17"), ("answer", "42")]),
     ("section name", fromList [("baz quux", "quuux")])
   ]
 
-testIniParsing = testGroup "Ini parsing"
-  [ testCase "Complex ini data" $
-      read exampleIni @?= expectedIni
-  , testCase "parse . show . parse = parse" $
-      let intermediatini  = read exampleIni :: Ini
-      in  (read . show) intermediatini @?= expectedIni
-  ]
-
-testIniIO :: IO (FilePath, IniMap) -> TestTree
-testIniIO ioData = testGroup "Read ini file"
-  [ testCase "Expected complete ini data" $ do
-      iniMap <- snd <$> ioData
-      iniMap @?= sections expectedIni
-  ]
+testIniParsing :: Spec
+testIniParsing = describe "Ini parsing" $ do
+  it "Complex ini data" $
+    read exampleIni `shouldBe` expectedIni
+  it "parse . show . parse = parse" $
+    let intermediatini = read exampleIni :: Ini
+    in  (read . show) intermediatini `shouldBe` expectedIni
 
-testIniFileReading = withResource io cleanup testIniIO
-  where io      = do  name  <- write
-                      ini   <- readIniFile name
-                      return (name, ini)
-        write   = do  name <- tmpFile
-                      writeFile name exampleIni
-                      return name
-        tmpFile = (</> "trivialini-test.ini") <$> getTemporaryDirectory
-        cleanup = removeFile . fst
+testIniFileReading :: Spec
+testIniFileReading = describe "Read ini file" $ do
+  loadedIni <- runIO $ withSystemTempFile "trivialini-test.ini" $ \fp h -> do
+    hPutStr h exampleIni >> hClose h
+    readIniFile fp
+  it "Expected complete ini data" $ loadedIni `shouldBe` sections expectedIni
 
-main = defaultMain $ testGroup "Unit tests"
-  [ testIniParsing
-  , testIniFileReading
-  ]
+main :: IO ()
+main = hspec $ describe "Unit tests" $ do
+  testIniParsing
+  testIniFileReading

trivialini.cabal

@@ -26,9 +26,7 @@ Test-Suite test-trivialini
   type: exitcode-stdio-1.0
   build-depends:
     trivialini,
-    tasty,
-    tasty-hunit,
-    filepath,
-    directory
+    hspec,
+    temporary
   hs-source-dirs: test
   main-is: Main.hs