Add test for the JS output

Author: Janiczek

test/Test/JsOutput.hs

@@ -51,6 +51,55 @@ suite =
             expectTextContains jsOutput "$temp$list = xs"
             expectTextDoesNotContain jsOutput "$temp$fn = fn"
 
+        Nothing ->
+          crash "JS output could not be read."
+    , scope "direct function calls (lamdera/compiler PR #41)" $ do
+      project <- io $ Lamdera.Relative.requireDir "test/direct-fn-calls"
+      let
+        elmHome = project ++ "/elm-home"
+        elmStuff = project ++ "/elm-stuff"
+
+      maybeJsOutput <- io $ do
+        rmdir elmHome
+        rmdir elmStuff
+
+        Test.Helpers.withElmHome elmHome $
+          Ext.Common.withProjectRoot project $
+            Make.run ["src/Main.elm"] $
+              Make.Flags
+                { _debug = False
+                , _optimize = True
+                , _output = Just (Make.JS "elm-stuff/tmp.js")
+                , _report = Nothing
+                , _docs = Nothing
+                , _noWire = True
+                , _optimizeLegible = False
+                }
+
+        fileContents <- readUtf8Text $ elmStuff ++ "/tmp.js"
+
+        rmdir elmHome
+        rmdir elmStuff
+
+        pure fileContents
+
+      case maybeJsOutput of
+        Just jsOutput ->
+          do
+            expectTextContains jsOutput "$fn2$ = function (x, y) {"
+            expectTextContains jsOutput "$fn3$ = function (x, y, z) {"
+            expectTextContains jsOutput "$Ctor2$ = function (a, b) {"
+            expectTextContains jsOutput "$Ctor3$ = function (a, b, c) {"
+            expectTextContains jsOutput "$N2$ = function (a, b) {"
+            expectTextContains jsOutput "x1 = $author$project$Main$fn1(0)"
+            expectTextContains jsOutput "x2 = $author$project$Main$fn2$(0, 0)"
+            expectTextContains jsOutput "x3 = $author$project$Main$fn3$(0, 0, 0)"
+            expectTextContains jsOutput "c1 = $author$project$Main$Ctor1("
+            expectTextContains jsOutput "c2 = $author$project$Main$Ctor2$("
+            expectTextContains jsOutput "c3 = $author$project$Main$Ctor3$("
+            expectTextContains jsOutput "n1 = 0"
+            expectTextContains jsOutput "n2 = $author$project$Main$N2$(0, 0)"
+
         Nothing ->
           crash "JS output could not be read."
     ]

test/direct-fn-calls/.gitignore

@@ -0,0 +1,2 @@
+elm-stuff
+*.js

test/direct-fn-calls/elm.json

@@ -0,0 +1,29 @@
+{
+    "type": "application",
+    "source-directories": [
+        "src"
+    ],
+    "elm-version": "0.19.1",
+    "dependencies": {
+        "direct": {
+            "elm/browser": "1.0.2",
+            "elm/core": "1.0.5",
+            "elm/html": "1.0.0",
+            "elm/http": "2.0.0",
+            "elm/json": "1.1.3",
+            "elm/url": "1.0.0",
+            "lamdera/codecs": "1.0.0",
+            "lamdera/core": "1.0.0"
+        },
+        "indirect": {
+            "elm/bytes": "1.0.8",
+            "elm/file": "1.0.5",
+            "elm/time": "1.0.0",
+            "elm/virtual-dom": "1.0.3"
+        }
+    },
+    "test-dependencies": {
+        "direct": {},
+        "indirect": {}
+    }
+}

test/direct-fn-calls/src/Main.elm

@@ -0,0 +1,58 @@
+module Main exposing (main)
+
+import Html
+
+
+fn1 x =
+    "fn1"
+
+
+fn2 x y =
+    "fn2"
+
+
+fn3 x y z =
+    "fn3"
+
+
+type Type
+    = Ctor1 ()
+    | Ctor2 () ()
+    | Ctor3 () () ()
+
+
+type Newtype a
+    = N a
+
+
+type Newtype2 a b
+    = N2 a b
+
+
+main =
+    let
+        x1 =
+            fn1 0
+
+        x2 =
+            fn2 0 0
+
+        x3 =
+            fn3 0 0 0
+
+        c1 =
+            Ctor1 ()
+
+        c2 =
+            Ctor2 () ()
+
+        c3 =
+            Ctor3 () () ()
+
+        n1 =
+            N ()
+
+        n2 =
+            N2 () ()
+    in
+    Html.text "compiles!"