diff options
Diffstat (limited to 'Lisp/asdf/test/test4.script')
| -rw-r--r-- | Lisp/asdf/test/test4.script | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Lisp/asdf/test/test4.script b/Lisp/asdf/test/test4.script new file mode 100644 index 0000000..e0ca859 --- /dev/null +++ b/Lisp/asdf/test/test4.script @@ -0,0 +1,8 @@ +;;; -*- Lisp -*- +(load "../asdf") +(setf asdf:*central-registry* '(*default-pathname-defaults*)) +(in-package :asdf) +(assert (not (component-property (find-system 'test3) :foo))) +(assert (equal (component-property (find-system 'test3) :prop1) "value")) +(setf (component-property (find-system 'test3) :foo) "bar") +(assert (equal (component-property (find-system 'test3) :foo) "bar")) |