test/test-mcp-tools.sgl

1(import (sigil test)

2 (sigil string)

3 (sigil web mcp tools))

5;; ============================================================

6;; Registration

7;; ============================================================

9(test-group "register-mcp-tools!"

10 (test "registers all web tools"

11 (let ((tools '()))

12 (register-mcp-tools! #f

13 (lambda (srv name desc schema handler)

14 (set! tools (cons name tools))))

15 (assert-equal 8 (length tools))

16 (assert-true (member "sigil/web-reload" tools))

17 (assert-true (member "sigil/web-morph" tools))

18 (assert-true (member "sigil/web-error" tools))

19 (assert-true (member "sigil/web-status" tools))

20 (assert-true (member "sigil/web-navigate" tools))

21 (assert-true (member "sigil/web-css-class" tools))

22 (assert-true (member "sigil/web-css-reload" tools))

23 (assert-true (member "sigil/web-exec" tools)))))

25(run-tests)