1 (defpackage :xkb/tests 2 (:use :cl :rt :std :xkb)) 3 (in-package :xkb/tests) 4 (defsuite :xkb) 5 (in-suite :xkb) 6 7 (load-xkbcommon) 8 9 (deftest xkb-basic () 10 (is (= xkb:xkb-keysym-max 536870911)))
