21 lines
484 B
Common Lisp
21 lines
484 B
Common Lisp
;;;; cl-scopes/lib/auth/test - tests for the scopes-auth system
|
|
|
|
(defpackage :scopes-auth/test
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:auth :scopes-auth)
|
|
(:t :scopes/testing))
|
|
(:import-from :scopes/testing #:deftest #:==)
|
|
(:export #:run))
|
|
|
|
(in-package :scopes-auth/test)
|
|
|
|
;;;; test runner
|
|
|
|
(defun run ()
|
|
(let ((t:*test-suite* (t:test-suite "auth")))
|
|
(unwind-protect
|
|
(progn
|
|
(test-login))
|
|
(t:show-result))))
|
|
|
|
(deftest test-login ())
|