@@ -656,37 +656,6 @@ baz()"
656656 (search-forward " F" )
657657 (should (not (eq (face-at-point ) 'error )))))
658658
659- (ert-deftest hack-highlight-unsafe-block ()
660- " Highlight unsafe blocks."
661- (with-hack-buffer " // UNSAFE"
662- (search-forward " U" )
663- (should (eq (face-at-point ) 'error )))
664- (with-hack-buffer " //UNSAFE"
665- (search-forward " U" )
666- (should (eq (face-at-point ) 'error )))
667- ; ; Ensure we don't highlight UNSAFE in other contexts.
668- (with-hack-buffer " /* UNSAFE */"
669- (search-forward " U" )
670- (should (not (eq (face-at-point ) 'error ))))
671- (with-hack-buffer " $x = \" UNSAFE\" ;"
672- (search-forward " U" )
673- (should (not (eq (face-at-point ) 'error )))))
674-
675- (ert-deftest hack-highlight-unsafe-expr-block ()
676- " Highlight unsafe expression comments."
677- (with-hack-buffer " /* UNSAFE_EXPR */"
678- (search-forward " U" )
679- (should (eq (face-at-point ) 'error )))
680- ; ; Ensure we don't highlight UNSAFE_EXPR in other contexts.
681- (with-hack-buffer " // UNSAFE_EXPR"
682- ; ; This case is messy: it's not an UNSAFE_EXPR comment, but it's a
683- ; ; valid UNSAFE comment. The _EXPR bit should not be highlighted.
684- (search-forward " X" )
685- (should (not (eq (face-at-point ) 'error ))))
686- (with-hack-buffer " $x = \" UNSAFE_EXPR\" ;"
687- (search-forward " U" )
688- (should (not (eq (face-at-point ) 'error )))))
689-
690659(ert-deftest hack-highlight-hh-fixme ()
691660 " Highlight HH_FIXME comments."
692661 (with-hack-buffer " /* HH_FIXME[1234] hello world */"
0 commit comments