f4efa7ff |
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 | |
d1a7fc5a |
11 | #+nil(is (string= (display nil (make-instance 'lol-test::edit-test)) |
f4efa7ff |
12 | "String #<UNBOUND> |
13 | Number #<UNBOUND>")) |
14 | |
d1a7fc5a |
15 | #+nil(progn (let ((i (make-instance 'lol-test::edit-test))) |
f4efa7ff |
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")))))) |