1 ;;; box/tests.lisp --- Box tests 2 3 ;; 4 5 ;;; Code: 6 (defpackage :box/tests 7 (:use :cl :rt :box :box/archiso :sb-bsd-sockets)) 8 9 (in-package :box/tests) 10 (defsuite :box) 11 (in-suite :box) 12 13 (deftest archiso () 14 (is (with-open-file (file #P"test.json") 15 (inspect (dat/json:json-read file)))))