test/test-diagnostics.sgl

1(import (sigil test)

2 (sigil lsp diagnostics))

4(test-group "compute-diagnostics"

5 (test "clean code yields no diagnostics"

6 (let ((diags (compute-diagnostics "(define x 1)" "file:///tmp/a.sgl")))

7 (assert-true (list? diags))))

9 (test "publish-diagnostics-params wraps uri and list"

10 (let ((params (publish-diagnostics-params "file:///tmp/a.sgl" 3 '())))

11 (assert-equal "file:///tmp/a.sgl" (cdr (assq 'uri params)))

12 (assert-equal 3 (cdr (assq 'version params))))))