;;AUTOLOAD: do-tests
;;AUTOLOAD: do-test

(setq do-no-exit-after-test t)
(if (not (boundp 'T:number))
  (progn
    (setq *load-pathname* (+ '("." "tests" "kl") *load-pathname*))
    (load 'test)
))
(setq do-tests do-test)
