Add second test

stil4m · Jun 20, 2023 · cd01ce0 · cd01ce0
1 parent a200469
commit cd01ce0
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/tests/Elm/Parser/ExpressionTests.elm b/tests/Elm/Parser/ExpressionTests.elm
@@ -37,6 +37,7 @@ all =
         , test "5-1" <|
             \() ->
                 parseFullStringWithNullState "5-1" expression
+                    |> Maybe.map noRangeExpression
                     |> Maybe.map Node.value
                     |> Expect.equal
                         (Just
@@ -47,6 +48,20 @@ all =
                                 (Node emptyRange (Integer 1))
                             )
                         )
+        , test "5.1-1.2" <|
+            \() ->
+                parseFullStringWithNullState "5.1-1.2" expression
+                    |> Maybe.map noRangeExpression
+                    |> Maybe.map Node.value
+                    |> Expect.equal
+                        (Just
+                            (OperatorApplication
+                                "-"
+                                Left
+                                (Node emptyRange (Floatable 5))
+                                (Node emptyRange (Floatable 1))
+                            )
+                        )
         , test "prefix expression" <|
             \() ->
                 parseFullStringWithNullState "(,)" expression