1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
(use test
(prefix sqlite3 sqlite3:)
posix
;; ulex-netutil rpc
pkts
mailbox
hostinfo)
;; (use (prefix ulex ulex:))
(if (file-exists? "ulex.scm")
(load "ulex.scm")
(load "../ulex.scm"))
(use trace)
(trace-call-sites #t)
(import ulex) ;; (import (prefix ulex ulex:))
(trace
;; find-or-setup-captain
get-all-captain-pkts
setup-as-captain
get-winning-pkt
ping
remove-captain-pkt
;; start-server-find-port
;; connect-server
)
(test-begin "addresses")
(test #f #t (not (null? (get-all-ips))))
(test #f #t (string? (get-my-best-address)))
|
|
>
>
>
|
|
|
|
|
|
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
(use test
(prefix sqlite3 sqlite3:)
posix
;; ulex-netutil rpc
pkts
mailbox
hostinfo
regex
tcp6)
(include "ulex.scm")
;; (use (prefix ulex ulex:))
;; (if (file-exists? "ulex.scm")
;; (load "ulex.scm")
;; (load "../ulex.scm"))
(use trace)
(trace-call-sites #t)
(import ulex) ;; (import (prefix ulex ulex:))
(trace
;; find-or-setup-captain
;; get-all-captain-pkts
;; setup-as-captain
;; get-winning-pkt
;; ping
;; remove-captain-pkt
;; start-server-find-port
;; connect-server
)
(test-begin "addresses")
(test #f #t (not (null? (get-all-ips))))
(test #f #t (string? (get-my-best-address)))
|