diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-04 21:58:45 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-04 21:58:45 +0100 |
| commit | 800230afe4bab552fb4409432a27307ac1e9fabb (patch) | |
| tree | e709170dbf9d2214e06b13b59592eea7cdd6d094 /Lisp/tests.lisp | |
| parent | 5228a44274871f7367810cfcafed30815b083f9d (diff) | |
Parse NeXT-style bit field typespecs properly.
darcs-hash:fb2c911e17afaa24da33c223619fad9fc33bb96b
Diffstat (limited to 'Lisp/tests.lisp')
| -rw-r--r-- | Lisp/tests.lisp | 22 |
1 files changed, 16 insertions, 6 deletions
diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index e362774..b031200 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -172,12 +172,22 @@ ((ensure-same (parse-typespec "(?=)") '(union () "?"))) ((ensure-same (parse-typespec "{?=rb123rjf456iii}") - '(struct () "?" - (bit-field (const) 123 456 - (complex (const) (:float ()))) - (:int ()) - (:int ()) - (:int ())))) + (if (eq objcl::+runtime-type+ :gnu) + '(struct () "?" + (bit-field (const) 123 456 + (complex (const) (:float ()))) + (:int ()) + (:int ()) + (:int ())) + '(struct () "?" + (bit-field (const) nil 123 nil) + (complex (const) (:float ())) + (:unrecognised ((:type-specifier #\4))) + (:unrecognised ((:type-specifier #\5))) + (:unrecognised ((:type-specifier #\6))) + (:int ()) + (:int ()) + (:int ()))))) ((ensure-same (parse-typespec "^[100{?=ii}]") '(pointer () (array () 100 |