Setup boilerplate for parser tests

Author: robinheghan

gren.json

@@ -17,13 +17,15 @@
         "Compiler.Paths",
         "Compiler.License",
         "FileSystem.Lock",
+        "Parse.Number",
         "SemanticVersion",
         "SemanticVersionRange",
         "String.EditDistance"
     ],
     "gren-version": "0.6.0 <= v < 0.7.0",
     "dependencies": {
         "gren-lang/core": "7.1.0 <= v < 8.0.0",
-        "gren-lang/node": "6.1.0 <= v < 7.0.0"
+        "gren-lang/node": "6.1.0 <= v < 7.0.0",
+        "gren-lang/parser": "6.1.0 <= v < 7.0.0"
     }
-}
+}

gren_packages/gren_lang_parser__6_1_0.pkg.gz

@@ -0,0 +1,18 @@
+module Parse.Number exposing (Format (..), Outcome (..), parser)
+
+
+import Parser.Advanced as Parser exposing (Parser)
+
+
+type Format
+    = Decimal
+    | Hex
+
+
+type Outcome
+    = Integer { format: Format, value : Int }
+
+
+parser : Parser c {} Outcome
+parser =
+    Parser.succeed (Integer { format = Decimal, value = 0 })

src/Parse/Number.gren

@@ -10,6 +10,7 @@
       "gren-lang/node": "6.1.0",
       "gren-lang/core": "7.1.0",
       "gren-lang/test": "5.0.0",
+      "gren-lang/parser": "6.1.0",
       "gren-lang/test-runner-node": "7.0.0",
       "gren-lang/compiler-node": "local:.."
     },

tests/gren.json

@@ -2,29 +2,30 @@ module Main exposing (main)
 
 import Test
 import Test.Runner.Node as TestRunner
-import Test.CLI.Parser as CLIParser
-import Test.CLI.PrettyPrinter as PrettyPrinter
-import Test.SemanticVersion as SemanticVersion
-import Test.SemanticVersionRange as SemanticVersionRange
-import Test.Compiler.Dependencies as Dependencies
-import Test.Compiler.PackageName as PackageName
-import Test.Compiler.ModuleName as ModuleName
-import Test.Compiler.Platform as Platform
-import Test.String.EditDistance as EditDistance
-import Node exposing (Program)
+import Test.CLI.Parser
+import Test.CLI.PrettyPrinter
+import Test.SemanticVersion
+import Test.SemanticVersionRange
+import Test.Compiler.Dependencies
+import Test.Compiler.PackageName
+import Test.Compiler.ModuleName
+import Test.Compiler.Platform
+import Test.String.EditDistance
+import Test.Parse.Number
 
 
 main : TestRunner.Program
 main =
     TestRunner.run <|
         Test.describe "Gren Compiler Node tests"
-            [ CLIParser.tests
-            , Dependencies.tests
-            , PrettyPrinter.tests
-            , SemanticVersion.tests
-            , SemanticVersionRange.tests
-            , PackageName.tests
-            , ModuleName.tests
-            , Platform.tests
-            , EditDistance.tests
+            [ Test.CLI.Parser.tests
+            , Test.CLI.PrettyPrinter.tests
+            , Test.SemanticVersion.tests
+            , Test.SemanticVersionRange.tests
+            , Test.Compiler.Dependencies.tests
+            , Test.Compiler.PackageName.tests
+            , Test.Compiler.ModuleName.tests
+            , Test.Compiler.Platform.tests
+            , Test.String.EditDistance.tests
+            , Test.Parse.Number.tests
             ]

tests/gren_packages/gren_lang_parser__6_1_0.pkg.gz

@@ -0,0 +1,23 @@
+module Test.Parse.Number exposing ( tests )
+
+import Expect exposing (Expectation)
+import Test exposing (Test, describe, test, fuzz)
+import Fuzz exposing (Fuzzer)
+import Parser.Advanced as Parser
+import Parse.Number as PN
+
+
+tests : Test
+tests =
+    describe "Parse.Number"
+        [ describe "Integers"
+            [ fuzz Fuzz.int "Can parse regular integers" <| \int ->
+                run (String.fromInt int)
+                    |> Expect.equal (Ok (PN.Integer { format = PN.Decimal, value = int }))
+            ]
+        ]
+
+
+run : String -> Result (Array (Parser.DeadEnd c {})) PN.Outcome
+run str =
+    Parser.run PN.parser str

tests/src/Main.gren

@@ -1,5 +1,4 @@
-module Test.String.EditDistance exposing
-    ( tests )
+module Test.String.EditDistance exposing ( tests )
 
 import Expect exposing (Expectation)
 import Test exposing (Test, describe, test)