Fix missing `without-special-symbol-access' in `funcall-with-attribute-context'
[clinton/lisp-on-lines.git] / src / standard-descriptions / edit-test.lisp
... / ...
CommitLineData
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 #+nil(is (string= (display nil (make-instance 'lol-test::edit-test))
12 "String #<UNBOUND>
13Number #<UNBOUND>"))
14
15 #+nil(progn (let ((i (make-instance 'lol-test::edit-test)))
16 (with-input-from-string (*standard-input*
17"drew
181
19")
20 (with-active-descriptions (editable)
21 (display t i))
22 (is (equal (display nil i)
23"String drew
24Number 1"))))))