From ab10720260e2c184b319026da89f4dfd338500bb Mon Sep 17 00:00:00 2001 From: Brian Cully Date: Wed, 2 Apr 2008 19:20:20 -0400 Subject: Initial commit --- Lisp/asdf/test/test4.script | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 Lisp/asdf/test/test4.script (limited to 'Lisp/asdf/test/test4.script') 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")) -- cgit v1.2.3