 let newScore = 10 + score;
 "))
 
-(ert-deftest font-lock-multi-raw-strings-in-a-row ()
-  (reason-test-font-lock
-   "
-r\"foo\\\", \"bar\", r\"bar\";
-r\"foo\\.\", \"bar\", r\"bar\";
-r\"foo\\..\", \"bar\", r\"foo\\..\\bar\";
-r\"\\\", \"foo\", r\"\\foo\";
-not_a_string();
-
-"
-
-   (apply 'append (mapcar (lambda (s) (list s 'font-lock-string-face))
-                          '("r\"foo\\\"" "\"bar\"" "r\"bar\""
-                            "r\"foo\\.\"" "\"bar\"" "r\"bar\""
-                            "r\"foo\\..\"" "\"bar\"" "r\"foo\\..\\bar\""
-                            "r\"\\\"" "\"foo\"" "r\"\\foo\"")))
-   ))
-
-(ert-deftest font-lock-raw-string-after-normal-string-ending-in-r ()
-  (reason-test-font-lock
-   "\"bar\" r\"foo\""
-   '("\"bar\"" font-lock-string-face "r\"foo\"" font-lock-string-face)))
-
 ;; TODO how to align these
 (ert-deftest indent-params-no-align ()
   (test-indent

"))

;; TODO fix alignment of curly braces when down a line
(ert-deftest indent-nested-funs ()
  (test-indent
   "
fun nexted_funs(a: fun(b:int,
                       c:char)
                => int,
                d: int)
  => uint
  {
    0
  };
"
   ))

;; TODO fix alignment of curly braces when down a line
(ert-deftest indent-multi-line-expr ()
  (test-indent
   "

   "
fun foo() => {
  switch blah {
  | Pattern => stuff()
  | _ => whatever
  }
};
"
