41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
(create-directory "testpkts" #t)
;;======================================================================
;; Captainship
;;======================================================================
(define *udat1* (make-udat))
(test #f #t (udat? (start-server-find-port *udat1*)))
(test-begin "captainship")
(test #f #t (list? (get-all-captain-pkts *udat1*)))
(test #f #t (udat? (let ((res (find-or-setup-captain *udat1*)))(print res) res)))
(test-end "captainship")
;; ; (define *area* (make-area dbdir: "testulexdb" pktsdir: "testpkts"))
|
|
|
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
(create-directory "testpkts" #t)
;;======================================================================
;; Captainship
;;======================================================================
(define *udat1* (make-udat))
(test #f #t (udat? (start-server-find-port *udat1* (+ 4242 (random 5000)))))
(test-begin "captainship")
(test #f #t (list? (get-all-captain-pkts *udat1*)))
(test #f #t (udat? (let ((res (find-or-setup-captain *udat1*)))(print res) res)))
(test-end "captainship")
;; ; (define *area* (make-area dbdir: "testulexdb" pktsdir: "testpkts"))
|