src/standard-descriptions/edit-test.lisp

   1 (in-package :lol-test)
   2
   3 (deftest test-edit-simple ()
   4   (eval `(defclass edit-test ()
   5            (string number)
   6            (:metaclass described-standard-class)))
   7   (eval `(define-description edit-test (description-for-edit-test)
   8            ((string :input (:type string))
   9             (number :input (:type number)))))
  10
  11   (is (string= (display nil (make-instance 'lol-test::edit-test))
  12                "String #<UNBOUND>
  13 Number #<UNBOUND>"))
  14
  15   (progn (let ((i (make-instance 'lol-test::edit-test)))
  16               (with-input-from-string (*standard-input*
  17 "drew
  18 1
  19 ")
  20                 (with-active-descriptions (editable)
  21                 (display t i))
  22                 (is (equal (display nil i)
  23 "String drew
  24 Number 1"))))))