New implementation (load "new-description.lisp") of LoL protocol based on Plists...
[clinton/lisp-on-lines.git] / 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 #+nil(is (string= (display nil (make-instance 'lol-test::edit-test))
12 "String #<UNBOUND>
13 Number #<UNBOUND>"))
14
15 #+nil(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"))))))