test/test-client.sgl — sigil-nrepl

1(import (sigil test)

2 (sigil string)

3 (sigil nrepl client))

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

6;; Connection

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

9(test-group "nrepl-connect"

10 (test "connecting to invalid port returns #f"

11 (let ((conn (nrepl-connect "127.0.0.1" 59999)))

12 (assert-false conn)))

14 (test "nrepl-connected? returns #f for #f"

15 (assert-false (nrepl-connected? #f))))

17;; ============================================================

18;; Disconnection

19;; ============================================================

21(test-group "nrepl-disconnect"

22 (test "disconnect on #f doesn't crash"

23 (nrepl-disconnect #f)

24 (assert-true #t)))

26(run-tests)