First iteration

test/test-suppression.scm

@@ -0,0 +1,43 @@
+;;; Tests for (gulie suppression)
+
+(use-modules (srfi srfi-64)
+             (gulie suppression)
+             (gulie diagnostic))
+
+(test-begin "suppression")
+
+(test-group "parse-inline-suppress"
+  (let ((supps (parse-suppressions
+                "(define x 1) ; gulie:suppress trailing-whitespace\n")))
+    (test-equal "one suppression" 1 (length supps))
+    (test-equal "this-line kind" 'this-line (caddr (car supps)))))
+
+(test-group "parse-next-line-suppress"
+  (let ((supps (parse-suppressions
+                ";; gulie:suppress line-length\n(define x 1)\n")))
+    (test-equal "one suppression" 1 (length supps))
+    (test-equal "targets line 2" 2 (car (car supps)))))
+
+(test-group "parse-suppress-all"
+  (let ((supps (parse-suppressions
+                "(define x 1) ; gulie:suppress\n")))
+    (test-equal "one suppression" 1 (length supps))
+    (test-eq "all rules" #t (cadr (car supps)))))
+
+(test-group "filter-diagnostics"
+  (let ((diags (list (make-diagnostic "f.scm" 1 0 'warning 'trailing-whitespace "tw" #f)
+                     (make-diagnostic "f.scm" 2 0 'warning 'line-length "ll" #f)))
+        (supps (parse-suppressions
+                "(define x 1) ; gulie:suppress trailing-whitespace\n(define y 2)\n")))
+    (let ((filtered (filter-suppressions diags supps)))
+      (test-equal "one diagnostic filtered" 1 (length filtered))
+      (test-eq "remaining is line-length" 'line-length
+        (diagnostic-rule (car filtered))))))
+
+(test-group "region-suppression"
+  (let ((supps (parse-suppressions
+                ";; gulie:disable line-length\n(define x 1)\n(define y 2)\n;; gulie:enable line-length\n(define z 3)\n")))
+    ;; Should have region-start and region-end
+    (test-assert "has region entries" (>= (length supps) 2))))
+
+(test-end "suppression")