Add fixture test for Dreamwriter-based stylesheet.

Author: Richard Feldman

app/src/DreamwriterStyle.elm

@@ -9,8 +9,9 @@ type CssIds = Page
 pageBackground = rgb 100 90 128
 pageDefaultText = rgb 40 35 76
 
-exports : Style CssClasses CssIds
-exports =
+
+dreamwriter : Style CssClasses CssIds
+dreamwriter =
     stylesheet
         |%|... [ html, body ]
             |-| width 100 pct

test/Fixtures.elm

@@ -18,8 +18,8 @@ divWidthHeight =
             |-| height 50 px
 
 
-exports : Style CssClasses CssIds
-exports =
+dreamwriter : Style CssClasses CssIds
+dreamwriter =
     stylesheet
         |%|... [ html, body ]
             |-| width 100 pct

test/Tests.elm

@@ -16,6 +16,7 @@ all : Test
 all =
     suite "elm-stylesheets"
         [ divWidthHeight
+        , dreamwriter
         ]
 
 
@@ -32,3 +33,49 @@ divWidthHeight =
             [ test "pretty prints the expected output" <|
                 assertEqual output (prettyPrint input)
             ]
+
+
+dreamwriter : Test
+dreamwriter =
+    let
+        input =
+            Fixtures.dreamwriter
+
+        output = String.trim """
+html, body {
+  width: 100%;
+  height: 100%;
+  box-sizing: border-box;
+  padding: 0px;
+  margin: 0px;
+}
+
+body {
+  min-width: 1280px;
+  overflow-x: auto;
+}
+
+body > div {
+  width: 100%;
+  height: 100%;
+}
+
+.Hidden {
+  display: none !important;
+}
+
+#Page {
+  width: 100%;
+  height: 100%;
+  box-sizing: border-box;
+  margin: 0px;
+  padding: 8px;
+  background-color: rgb(100, 90, 128);
+  color: rgb(40, 35, 76);
+}
+        """
+    in
+        suite "Sample stylesheet from Dreamwriter"
+            [ test "pretty prints the expected output" <|
+                assertEqual output (prettyPrint input)
+            ]