Support the “byref” qualifier in Objective-C typespecs.

darcs-hash:6fea2c9c3d2846ad443bce6e81ade475efb6e013

1 files changed, 7 insertions, 3 deletions

diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp
index 1404f86..38dd824 100644
--- a/Lisp/tests.lisp
+++ b/Lisp/tests.lisp
@@ -5,7 +5,7 @@
   (:shadowing-import-from #:objcl
                           #:struct #:union #:pointer #:oneway #:out #:in
                           #:inout #:const #:parse-typespec #:objc-class
-                          #:bit-field #:opaque))
+                          #:bit-field #:opaque #:bycopy #:byref))
 (in-package #:mulk.objective-cl.tests)
 
 
@@ -81,12 +81,16 @@
                    (:unsigned-int ())
                    (:unsigned-int ()))))
    ((ensure-same (parse-typespec "rnNoV^V[10rjd]4")
-                 ;; Actually, the order of the qualifiers is not
-                 ;; important, which means that this test is too dumb.
+                 ;; Actually, the order of the qualifiers doesn't
+                 ;; matter, which means that this test is dumber than
+                 ;; it ought to be.
                  '(pointer (oneway out inout in const)
                    (array (oneway)
                     10
                     (complex (const) (:double nil))))))
+   ((ensure-same (parse-typespec "ROi")
+                 ;; Here, too, the order of the qualifiers is irrelevant.
+                 '(:int (bycopy byref))))
    ((ensure-same (parse-typespec "(?=)")
                  '(union () "?")))
    ((ensure-same (parse-typespec "{?=rb123rjf456iii}")