test/test-tools.sgl

1(import (sigil test)

2 (sigil core)

3 (sigil process)

4 (parlor users)

5 (parlor topics)

6 (parlor admin))

8;; ============================================================

9;; users-by-email tool

10;; ============================================================

12(test-group "users-by-email"

13 (test "handler returns message when no users found"

14 (setenv! "DISCOURSE_URL" "https://test.example.com")

15 (setenv! "DISCOURSE_API_KEY" "test-key")

16 (setenv! "DISCOURSE_USERNAME" "system")

17 ;; We can't mock the API call, but we can verify the tool

18 ;; function exists and is exported

19 (assert-true (procedure? tool-users-by-email)))

21 (test "handler is exported alongside existing tools"

22 (assert-true (procedure? tool-users-get))

23 (assert-true (procedure? tool-users-list))

24 (assert-true (procedure? tool-users-by-email))

25 (assert-true (procedure? tool-users-create))

26 (assert-true (procedure? tool-users-suspend))

27 (assert-true (procedure? tool-users-unsuspend))))

29;; ============================================================

30;; topics-invite tool

31;; ============================================================

33(test-group "topics-invite"

34 (test "handler is exported alongside existing tools"

35 (assert-true (procedure? tool-topics-latest))

36 (assert-true (procedure? tool-topics-invite))

37 (assert-true (procedure? tool-topics-delete))))

39;; ============================================================

40;; admin-invite tool (extended)

41;; ============================================================

43(test-group "admin-invite"

44 (test "handler is exported"

45 (assert-true (procedure? tool-admin-invite))))