test that I can see syntax errors

BrianHicks · Apr 28, 2020 · 7cac768 · 7cac768
1 parent 4dd4432
commit 7cac768
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/MainTest.elm b/tests/MainTest.elm
@@ -70,6 +70,12 @@ programTest =
                     |> addNote (Database.idFromInt 0) "What's up?"
                     |> hitShortcutKey [] Escape
                     |> expectViewDoesntHaveInput
+        , test "if I make a syntax error, I should see it" <|
+            \_ ->
+                start
+                    |> clickButton "New Note"
+                    |> fillIn "content" "Content" "test ["
+                    |> expectNote (Query.find [ Selector.tag "li" ] >> Query.has [ Selector.text "While parsing a link, I was expecting the 'link' part of a [link](url)" ])
         , test "after editing a note, hitting enter creates a new child note" <|
             \_ ->
                 start