Add golden tests for pretty printer (#103)

* Add golden tests for pretty printer

* Rework example TOML in tests using EDSL, export defaultOptions

.gitattributes

@@ -0,0 +1 @@
+*.golden	-text

src/Toml/PrefixTree.hs

@@ -2,6 +2,7 @@
 
 module Toml.PrefixTree
        ( PrefixTree (..)
+       , (<|)
        , singleT
        , insertT
        , lookupT

src/Toml/Printer.hs

@@ -4,6 +4,7 @@
 
 module Toml.Printer
        ( PrintOptions(..)
+       , defaultOptions
        , pretty
        , prettyOptions
        , prettyTomlInd
@@ -49,16 +50,15 @@ For example, this
 
 @
 TOML
-    { tomlPairs  = HashMap.fromList [(Key "title", String "TOML example")]
-    , tomlTables = HashMap.fromList
-          [( TableId (NonEmpty.fromList ["example", "owner"])
-           , TOML
-                 { tomlPairs  = HashMap.fromList [(Key "name", String "Kowainik")]
-                 , tomlTables = mempty
-                 , tomlTableArrays = mempty
+    { tomlPairs  = HashMap.fromList
+          [("title", AnyValue $ Text "TOML example")]
+    , tomlTables = PrefixTree.fromList
+          [( "example" <| "owner"
+           , mempty
+                 { tomlPairs  = HashMap.fromList
+                       [("name", AnyValue $ Text "Kowainik")]
                  }
            )]
-    , tomlTableArrays = mempty
     }
 @
 

test/Test/Toml/Printer/Golden.hs

@@ -0,0 +1,44 @@
+-- | This module contains golden tests for @Toml.Printer@.
+
+module Test.Toml.Printer.Golden
+       ( test_prettyGolden
+       ) where
+
+import Test.Tasty (TestTree, testGroup)
+import Test.Tasty.Silver (goldenVsAction)
+import Toml (TOML)
+import Toml.Edsl ((=:), mkToml, table)
+import Toml.PrefixTree ((<|))
+import Toml.Printer (PrintOptions (..), defaultOptions, prettyOptions)
+
+example :: TOML
+example = mkToml $ do
+    "b" =: "bb"
+    "a" =: "a"
+    "d" =: "ddd"
+    "c" =: "cccc"
+    table ("qux" <| "doo") $ do
+      "spam" =: "!"
+      "egg" =: "?"
+    table "foo" $ pure ()
+    table "doo" $ pure ()
+    table "baz" $ pure ()
+
+noFormatting :: PrintOptions
+noFormatting = PrintOptions
+    { shouldSort = False
+    , indent     = 0
+    }
+
+test_prettyGolden :: TestTree
+test_prettyGolden =
+    testGroup "Toml.Printer"
+        [ test "pretty_default" defaultOptions
+        , test "pretty_sorted_only" noFormatting{ shouldSort = True} 
+        , test "pretty_indented_only" noFormatting{ indent = 4 }
+        , test "pretty_unformatted" noFormatting
+        ]
+  where
+    test name options =
+        goldenVsAction name ("test/golden/" ++ name ++ ".golden")
+            (pure $ prettyOptions options example) id

test/golden/pretty_default.golden

@@ -0,0 +1,14 @@
+a = "a"
+b = "bb"
+c = "cccc"
+d = "ddd"
+
+[baz]
+
+[doo]
+
+[foo]
+
+[qux.doo]
+  egg = "?"
+  spam = "!"

test/golden/pretty_indented_only.golden

@@ -0,0 +1,14 @@
+a = "a"
+c = "cccc"
+d = "ddd"
+b = "bb"
+
+[doo]
+
+[foo]
+
+[baz]
+
+[qux.doo]
+    egg = "?"
+    spam = "!"

test/golden/pretty_sorted_only.golden

@@ -0,0 +1,14 @@
+a = "a"
+b = "bb"
+c = "cccc"
+d = "ddd"
+
+[baz]
+
+[doo]
+
+[foo]
+
+[qux.doo]
+egg = "?"
+spam = "!"

test/golden/pretty_unformatted.golden

@@ -0,0 +1,14 @@
+a = "a"
+c = "cccc"
+d = "ddd"
+b = "bb"
+
+[doo]
+
+[foo]
+
+[baz]
+
+[qux.doo]
+egg = "?"
+spam = "!"

tomland.cabal

@@ -87,6 +87,7 @@ test-suite tomland-test
                        Test.Toml.Parsing.Unit
                        Test.Toml.PrefixTree.Property
                        Test.Toml.PrefixTree.Unit
+                       Test.Toml.Printer.Golden
                        Test.Toml.TOML.Property
 
   build-tool-depends:  tasty-discover:tasty-discover ^>= 4.2.1
@@ -97,6 +98,7 @@ test-suite tomland-test
                      , tasty ^>= 1.1.0.3
                      , tasty-hedgehog ^>= 0.2.0.0
                      , tasty-hspec ^>= 1.1
+                     , tasty-silver ^>= 3.1.11
                      , text
                      , time
                      , tomland