2
;;; Test array qualifier (C99)
7
(test-start "array_qualifier")
9
(test-module 'c-wrapper)
11
(c-include "./array_qualifier.h")
16
(let ((a (make (c-struct 'foo))))
17
(slot-ref (class-of (ref a 'f1)) 'arg-types))))
22
(let ((a (make (c-struct 'foo))))
23
(slot-ref (class-of (ref a 'f2)) 'arg-types))))
28
(let ((a (make (c-struct 'foo))))
29
(slot-ref (class-of (ref a 'f3)) 'arg-types))))
34
(let ((a (make (c-struct 'foo))))
35
(slot-ref (class-of (ref a 'f4)) 'arg-types))))