Passing E2E test for bad PageData type

Author: supermario

extra/Lamdera/Compile.hs

@@ -79,8 +79,10 @@ makeDev :: FilePath -> FilePath -> IO ()
 makeDev root path = do
   debug $ "🏗   lamdera make " <> root <> "/" <> path
 
+  absRoot <- Dir.makeAbsolute root
+
   r <- async $
-    Dir.withCurrentDirectory root $
+    Dir.withCurrentDirectory absRoot $
       Make.run [path] $
         Make.Flags
           { _debug = True

test/Test/Ext/ElmPages/Check.hs

@@ -1,16 +1,22 @@
+{-# LANGUAGE OverloadedStrings #-}
+
 module Test.Ext.ElmPages.Check where
 
 import EasyTest
 import Test.Helpers
 
+import Lamdera
+import Lamdera.Compile
 
 all = EasyTest.run suite
 
 
 suite :: Test ()
 suite = tests $
   [ scope "isWireCompatible" $ do
-      expectEqual 1 1
-
+      actual <- catchOutput $
+        Lamdera.Compile.makeDev "./test/scenario-elm-pages-incompatible-wire/.elm-pages" "Main.elm"
 
+      expectTextContains actual
+        "PageData:\\n\\n- must not contain functions"
   ]

test/scenario-elm-pages-incompatible-wire/app/Route/Index.elm

@@ -25,7 +25,7 @@ type alias RouteParams =
 
 
 type alias Data =
-    {}
+    { unserialisableValue : Int -> Int }
 
 
 route : StatelessRoute RouteParams Data
@@ -39,7 +39,7 @@ route =
 
 data : DataSource Data
 data =
-    DataSource.succeed Data
+    DataSource.succeed <| Data (\i -> i)
 
 
 head :