Add failing tests

Author: Janiczek

test/direct-fn-calls-mutual-recursion-partial-application/.gitignore

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

test/direct-fn-calls-mutual-recursion-partial-application/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-mutual-recursion-partial-application/src/Main.elm

@@ -0,0 +1,25 @@
+module Main exposing (main)
+
+import Html exposing (Html)
+
+
+main : Html msg
+main =
+    Html.div []
+        [ Html.text (a1 3 4 5)
+        , Html.text (a2 1 2 3 4 5)
+        ]
+
+
+a1 : Int -> Int -> Int -> String
+a1 =
+    a2 1 2
+
+
+a2 : Int -> Int -> Int -> Int -> Int -> String
+a2 x1 x2 x3 x4 x5 =
+    if True then
+        "done"
+
+    else
+        a1 3 4 5

test/direct-fn-calls-mutual-recursion/.gitignore

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

test/direct-fn-calls-mutual-recursion/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-mutual-recursion/src/Main.elm

@@ -0,0 +1,41 @@
+module Main exposing (main)
+
+import Html exposing (Html)
+
+
+main : Html msg
+main =
+    Html.div []
+        [ Html.text (a1 1)
+        , Html.text (a2 1)
+        , Html.text (b1 1 1)
+        , Html.text (b2 1 1)
+        ]
+
+
+a1 : Int -> String
+a1 =
+    a2
+
+
+a2 : Int -> String
+a2 n =
+    if n > 0 then
+        a1 (n - 1)
+
+    else
+        "done"
+
+
+b1 : Int -> Int -> String
+b1 =
+    b2
+
+
+b2 : Int -> Int -> String
+b2 m n =
+    if n > 0 then
+        b1 (m - 1) (n - 1)
+
+    else
+        "done"