diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-20 12:32:06 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-20 12:32:06 +0100 |
commit | 52955a05962f3066c8a4c4bf83a6fcd87f718be4 (patch) | |
tree | 6d47a170ec10b8e1d31700c172cc3da67e26318a /Lisp/tests.lisp | |
parent | a28a7dbb793b69dc8a174bc124d16fc3532c388f (diff) |
Make PARSE-TYPESPEC aware of typespec suffix strings.
darcs-hash:96d2fe4eab2e4db49c60491c3e109bdab2600086
Diffstat (limited to 'Lisp/tests.lisp')
-rw-r--r-- | Lisp/tests.lisp | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index d2d89c9..0bdd750 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -218,7 +218,19 @@ (is (equal (parse-typespec "^^{OpaqueStruct}") '(pointer () (pointer () - (struct (opaque) "OpaqueStruct")))))) + (struct (opaque) "OpaqueStruct"))))) + (is (equal (parse-typespec "^{_GSKeyBinding=ii@\"GSKeyBindingAction\"@\"GSKeyBindingTable\"}") + '(pointer () + (struct () "_GSKeyBinding" + (:int ()) + (:int ()) + (id ((:type "GSKeyBindingAction"))) + (id ((:type "GSKeyBindingTable"))))))) + (is (equal (parse-typespec "{?=\"next\"@\"GCObject\"\"previous\"@\"GCObject\"\"flags\"{?=}}") + '(struct () "?" + (id ((:type "GCObject") (:name "next"))) + (id ((:type "GCObject") (:name "previous"))) + (struct ((:name "flags")) "?"))))) (deftest printing-typespecs () |