1 ;;; readline/tests.lisp --- readline tests 2 3 ;;; Code: 4 (defpackage :readline/tests 5 (:use :cl :std :rt :readline)) 6 7 (in-package :readline/tests) 8 9 (defsuite :readline) 10 (in-suite :readline) 11 12 (load-readline) 13 14 (deftest sanity () 15 (is readline::*history-base*) 16 (is readline::*history-length*))