(use portlogger)
(use test)
(test-begin "portlogger")
(use (prefix sqlite3 sqlite3:))
(define *port* #f)
(define *area* #f)
(test #f #f (begin
(pl-open-run-close
(lambda (db b)
(pl-get-prev-used-port db))
*area*)
#f))
(test #f #f (pl-open-run-close (lambda (db b)(pl-get-port-state db 1234567)) *area*))
(test #f #f (number? (pl-open-run-close (lambda (db b)(pl-take-port db 123456)) *area*)))
(test #f #t (number? (let ((port (pl-open-run-close pl-find-port *area*)))
(set! *port* port)
port)))
(test #f 1 (pl-open-run-close pl-release-port *port*))
(test #f "released" (pl-open-run-close
(lambda (db)
(sqlite3:first-result db "select state from ports where port=?" *port*))))
(test-end "portlogger")