32 lines
918 B
Common Lisp
32 lines
918 B
Common Lisp
;;;; cl-scopes/test-steps - testing for the scopes-steps system.
|
|
|
|
(defpackage :scopes/test-steps
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:config :scopes/config)
|
|
(:steps :scopes/steps)
|
|
(:util :scopes/util)
|
|
(:t :scopes/testing))
|
|
(:export #:run #:user #:password)
|
|
(:import-from :scopes/testing #:deftest #:==))
|
|
|
|
(in-package :scopes/test-steps)
|
|
|
|
(defvar *config* nil)
|
|
|
|
(defclass test-suite (t:test-suite)
|
|
((receiver :initform (make-instance 'steps:service :name :test-rcvr)
|
|
:reader receiver)))
|
|
|
|
(defun run ()
|
|
(let ((*config* nil)
|
|
(t:*test-suite* (make-instance 'test-suite :name "steps")))
|
|
(load (t:test-path "config-steps" "etc"))
|
|
(test-send)
|
|
(t:show-result)))
|
|
|
|
(t:deftest test-send ()
|
|
(let ((rcvr (receiver t:*test-suite*))
|
|
(msg nil))
|
|
(== (steps:name rcvr) :test-rcvr)
|
|
(steps:send rcvr msg)
|
|
))
|