Adds styleguide elm tests

Shakefile.hs

@@ -48,6 +48,7 @@ main = do
             "tests/elm-verify-examples.json",
             "log/elm-verify-examples.txt",
             "log/elm-test.txt",
+            "log/elm-test-styleguide.txt",
             "log/elm-review.txt",
             "log/elm-review-styleguide.txt",
             "log/axe-report.txt",
@@ -85,6 +86,11 @@ main = do
         need (["package.json", "elm.json"] ++ elmFiles)
         cmd (WithStdout True) (FileStdout out) "elm-test"
 
+      "log/elm-test-styleguide.txt" %> \out -> do
+        elmFiles <- getDirectoryFiles "." ["styleguide-app/tests/**/*.elm"]
+        need (["package.json", "elm.json", "styleguide-app/elm.json"] ++ elmFiles)
+        cmd (Cwd "styleguide-app") (WithStdout True) (FileStdout out) "elm-test"
+
       "log/elm-review.txt" %> \out -> do
         elmFiles <- getDirectoryFiles "." ["src/**/*.elm", "tests/**/*.elm"]
         need (["package.json", "elm.json"] ++ elmFiles)

styleguide-app/elm.json

@@ -43,7 +43,9 @@
         }
     },
     "test-dependencies": {
-        "direct": {},
+        "direct": {
+            "elm-explorations/test": "1.2.2"
+        },
         "indirect": {}
     }
 }

styleguide-app/tests/SwitchExampleSpec.elm

@@ -0,0 +1,8 @@
+module SwitchExampleSpec exposing (suite)
+
+import Test exposing (..)
+
+
+suite : Test
+suite =
+    todo "Implement our first test. See https://package.elm-lang.org/packages/elm-explorations/test/latest for how to do this!"