Add test for do + qualified do

This currently fails because face rendered in tests mismatches one
being rendered in interactive usage. It is unclear what that happens.

Author: Hi-Angel

tests/purescript-font-lock-tests.el

@@ -176,3 +176,60 @@ still comment
      (109 111 nil)
      (112 116 font-lock-keyword-face)
      (117 117 nil))))
+
+(ert-deftest func-decl-w-do-and-qualified-do ()
+  :expected-result :failed
+  (purescript-test-ranges
+   "mkMyComponent :: Component {}
+mkMyComponent = do
+  modalComp :: (NodeRef -> JSX) <- mkModal
+  component \"mkMyComponent\" \_ -> React.do
+    dialogRef :: NodeRef <- newNodeRef
+  pure $ R.label_ []
+"
+   '((1 13 font-lock-function-name-face)
+     (14 14 nil)
+     (15 16 font-lock-variable-name-face)
+     (17 17 nil)
+     (18 26 font-lock-type-face)
+     (27 30 nil)
+     (31 43 font-lock-function-name-face)
+     (44 44 nil)
+     (45 45 font-lock-variable-name-face)
+     (46 46 nil)
+     (47 48 font-lock-keyword-face)
+     (49 61 nil)
+     (62 63 font-lock-variable-name-face)
+     (64 65 nil)
+     (66 72 font-lock-type-face)
+     (73 73 nil)
+     (74 75 font-lock-variable-name-face)
+     (76 76 nil)
+     (77 79 font-lock-type-face)
+     (80 81 nil)
+     (82 83 font-lock-variable-name-face)
+     (84 104 nil)
+     (105 119 font-lock-string-face)
+     (120 120 nil)
+     (121 121 font-lock-variable-name-face)
+     (122 122 font-lock-keyword-face)
+     (123 123 nil)
+     (124 125 font-lock-variable-name-face)
+     (126 126 nil)
+     (127 131 font-lock-type-face)
+     (132 132 font-lock-variable-name-face)
+     (133 134 font-lock-keyword-face)
+     (135 149 nil)
+     (150 151 font-lock-variable-name-face)
+     (152 152 nil)
+     (153 159 font-lock-type-face)
+     (160 160 nil)
+     (161 162 font-lock-variable-name-face)
+     (163 181 nil)
+     (182 182 font-lock-variable-name-face)
+     (183 183 nil)
+     (184 184 font-lock-type-face)
+     (185 185 font-lock-variable-name-face)
+     (186 192 nil)
+     (193 194 font-lock-type-face)
+     (195 195 nil))))