Use compact renderer for test

sebastiaanvisser · Nov 11, 2023 · 70f2947 · 70f2947
1 parent e5c4866
commit 70f2947
Showing 1 changed file with 7 additions and 40 deletions.
diff --git a/spec/Clay/MediaSpec.hs b/spec/Clay/MediaSpec.hs
@@ -2,7 +2,7 @@
 
 module Clay.MediaSpec (spec) where
 
-import Clay (Css, em, hidden, pretty, query, renderWith, visible, visibility)
+import Clay (compact, Css, em, hidden, opacity, query, renderWith)
 import Clay.Media
 import Clay.Render (Config(..))
 import Clay.Stylesheet (Feature, keyframes, MediaType)
@@ -76,45 +76,12 @@ spec = do
 
   describe "keyframes tests" $ do
     it "keyframes test 1" $
-      (renderWith custom [] $ keyframes "blink-animation" [(0, visibility visible), (100, visibility hidden)])
-        `shouldBe` (Text.unlines
-                    [ ""
-                    , "@-webkit-keyframes blink-animation", "{"
-                    -- without fix for the rendering of the Clay.Property.Number type:
-                    -- , "Number {unNumber = 0.00000}% ", "{", "visibility:visible;", "}", ""
-                    -- , "Number {unNumber = 100.00000}% ", "{", "visibility:hidden;", "}", ""
-                    , "0% ", "{", "visibility:visible;", "}", ""
-                    , "100% ", "{", "visibility:hidden;", "}", "", "}"
-                    , ""
-                    , "@-moz-keyframes blink-animation", "{"
-                    , "0% ", "{", "visibility:visible;", "}", ""
-                    , "100% ", "{", "visibility:hidden;", "}", "", "}"
-                    , ""
-                    , "@-ms-keyframes blink-animation", "{"
-                    , "0% ", "{", "visibility:visible;", "}", ""
-                    , "100% ", "{", "visibility:hidden;", "}", "", "}"
-                    , ""
-                    , "@-o-keyframes blink-animation", "{"
-                    , "0% ", "{", "visibility:visible;", "}", ""
-                    , "100% ", "{", "visibility:hidden;", "}", "", "}"
-                    , ""
-                    , "@keyframes blink-animation", "{"
-                    , "0% ", "{", "visibility:visible;", "}", ""
-                    , "100% ", "{", "visibility:hidden;", "}", "", "}"
-                    , ""])
-
-custom =
-  pretty
-  {
-    indentation = ""
-  -- newline = "\n"
-  , sep = ""
-  -- , finalSemicolon = True -- False
-  , warn = False
-  , align = False
-  , banner = False
-  , comments = False
-  }
+      (renderWith compact [] $ keyframes "blink-animation" [(0, opacity 0), (100, opacity 1)])
+        `shouldBe` ("@-webkit-keyframes blink-animation{0% {opacity:0}100% {opacity:1}}" <>
+                    "@-moz-keyframes blink-animation{0% {opacity:0}100% {opacity:1}}" <>
+                    "@-ms-keyframes blink-animation{0% {opacity:0}100% {opacity:1}}" <>
+                    "@-o-keyframes blink-animation{0% {opacity:0}100% {opacity:1}}" <>
+                    "@keyframes blink-animation{0% {opacity:0}100% {opacity:1}}")
 
 -- | Empty CSS for when CSS is needed but we don't care about it.
 emptyStyle :: Css