3 (deftest test-edit-simple
()
4 (eval `(defclass edit-test
()
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
)))))
11 #+nil
(is (string= (display nil
(make-instance 'lol-test
::edit-test
))
15 #+nil
(progn (let ((i (make-instance 'lol-test
::edit-test
)))
16 (with-input-from-string (*standard-input
*
20 (with-active-descriptions (editable)
22 (is (equal (display nil i
)