[#334] parse and unparse tests

test/Test/Toml/Parser.hs

@@ -8,7 +8,7 @@ import Test.Toml.Parser.Array (arraySpecs)
 import Test.Toml.Parser.Bool (boolSpecs)
 import Test.Toml.Parser.Date (dateSpecs)
 import Test.Toml.Parser.Double (doubleSpecs)
-import Test.Toml.Parser.Examples (examplesSpec)
+import Test.Toml.Parser.Examples (examplesSpec, parseUnparseSpec)
 import Test.Toml.Parser.Integer (integerSpecs)
 import Test.Toml.Parser.Key (keySpecs)
 import Test.Toml.Parser.Property (propertySpec)
@@ -20,6 +20,7 @@ import Test.Toml.Parser.Validate (validateSpec)
 parserSpec :: Spec
 parserSpec = describe "Parser for TOML" $ do
     examplesSpec
+    parseUnparseSpec
     propertySpec
     validateSpec
 

test/Test/Toml/Parser/Examples.hs

@@ -1,16 +1,18 @@
 module Test.Toml.Parser.Examples
     ( examplesSpec
+    , parseUnparseSpec
+    , parseUnparse
     ) where
 
 import Data.Either (isRight)
 import System.Directory (listDirectory)
 import Test.Hspec (Spec, describe, it, runIO, shouldBe)
 
 import Toml.Parser (parse)
+import Toml.Type.Printer (pretty)
 
 import qualified Data.Text.IO as TIO
 
-
 examplesSpec :: Spec
 examplesSpec = describe "Can parse official TOML examples" $ do
     files <- runIO $ listDirectory exampleDir
@@ -21,5 +23,18 @@ example file = it ("can parse file " ++ file) $ do
     toml <- TIO.readFile (exampleDir ++ file)
     isRight (parse toml) `shouldBe` True
 
+parseUnparseSpec :: Spec
+parseUnparseSpec = describe "Can get same object after parse and unparse" $ do
+    files <- runIO $ listDirectory exampleDir
+    mapM_ parseUnparse files
+
+parseUnparse :: FilePath -> Spec
+parseUnparse file = it ("it will produce same text after parsing and unparsing " ++ file) $ do
+    toml <- TIO.readFile (exampleDir ++ file)
+    case parse toml of
+       Left _ -> error "File can't be parsed"
+       Right toml_obj -> (parse toml == ( parse $ pretty $ toml_obj)) `shouldBe` True
+
 exampleDir :: FilePath
 exampleDir = "test/examples/"
+