add simple test runner

Author: AeroNotix

.gitignore

@@ -1,3 +1,4 @@
 c-src/*.o
 c-src/*.so
 /main
+/coverage/

Makefile

@@ -1,4 +1,6 @@
 BORINGSSL_COMMIT=251b5169fd44345f455438312ec4e18ae07fd58c
+LISP ?= sbcl
+sbcl_TEST_OPTS=--noinform --disable-debugger --quit --load ./run-tests.lisp
 
 .PHONY: lsquic build test
 
@@ -25,3 +27,6 @@ src/ffi-dns.lisp: dns.i Makefile c-src/libdns.so
 
 src/ffi-udp.lisp: udp.i Makefile c-src/libudp.so
 	swig -cffi -module ffi -outdir src/udp -I./c-src udp.i
+
+test:
+	@$(LISP) $($(LISP)_TEST_OPTS)

run-tests.lisp

@@ -0,0 +1,12 @@
+(in-package #:cl-user)
+
+(defmacro with-silence (&body body)
+  `(let ((*standard-output* (make-broadcast-stream))
+         (*error-output* (make-broadcast-stream))
+         (*trace-output* (make-broadcast-stream)))
+     ,@body))
+
+(with-silence
+  (ql:quickload :fiveam))
+
+(asdf:test-system :http3/test)

src/http3/http3.asd

@@ -13,3 +13,14 @@
                :static-vectors
                :weird-pointers
                :usocket))
+
+(defsystem :http3/test
+  :version "0.0.1"
+  :description "HTTP3 Client tests"
+  :licence "WTFPL"
+  :components ((:module "test"
+                :components
+                ((:file "tests"))))
+  :depends-on (:http3 :fiveam)
+  :perform (test-op :after (o s)
+                    (fiveam:run! :http3)))

src/http3/test/tests.lisp

@@ -0,0 +1,10 @@
+(defpackage #:http3/test
+  (:use :cl :http3 :fiveam))
+
+(in-package #:http3/test)
+(def-suite :http3)
+(in-suite :http3)
+
+(test can-create-request
+  (let ((request (make-instance 'lsquic:request :authority "google.com")))
+    (is (lsquic:lsxpack-headers request))))

src/lsquic/lsquic.lisp

@@ -68,7 +68,7 @@
                  (let ((client (weird-pointers:restore peer-ctx)))
                    (let ((count (udp:send-packets-out dest-sa iov iovlen (sb-bsd-sockets:socket-file-descriptor (socket (socket client))))))
                      (when (< count 0)
-                       (error)))
+                       (error "short write")))
                    (incf n)
                    (cffi:incf-pointer specs)))))
     (if (> n 0)

src/lsquic/package.lisp

@@ -3,6 +3,10 @@
   (:export
    #:engine
 
+   #:request
+   #:header
+   #:lsxpack-headers
+
    #:set-context
    #:process-conns
    #:packets-in

src/lsquic/request.lisp

@@ -6,11 +6,11 @@
    (value :initarg :value :accessor value)))
 
 (defclass request ()
-  ((path :initarg :path :accessor path)
-   (scheme :initarg :scheme :accessor scheme)
-   (headers :initarg :headers :accessor headers)
+  ((path :initarg :path :initform "/" :accessor path)
+   (scheme :initarg :scheme :initform "https" :accessor scheme)
+   (headers :initarg :headers :initform nil :accessor headers)
    (authority :initarg :authority :accessor authority)
-   (verb :initarg :verb :accessor verb)
+   (verb :initarg :verb :initform "GET" :accessor verb)
    (body :initarg :body :accessor body)))
 
 (defmethod make-lsxpack-header ((header header))