diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-16 01:21:31 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-16 01:21:31 +0200 |
| commit | 319cdb79ca6ca45c9b2912ead651dffcf35ecbf5 (patch) | |
| tree | b2fd4e57953fb050316c74f818d23dff565b8b01 /Lisp/tests.lisp | |
| parent | 6a82b0dd5fd0f087ecda5923c6ae93fcea806141 (diff) | |
Add test cases for PRIMITIVE-INVOKE and fix some stupid bugs.
darcs-hash:d1f3e7e599cad38b28c45448adeec9126d043e05
Diffstat (limited to 'Lisp/tests.lisp')
| -rw-r--r-- | Lisp/tests.lisp | 42 |
1 files changed, 41 insertions, 1 deletions
diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index 38dd824..855860a 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -5,7 +5,8 @@ (:shadowing-import-from #:objcl #:struct #:union #:pointer #:oneway #:out #:in #:inout #:const #:parse-typespec #:objc-class - #:bit-field #:opaque #:bycopy #:byref)) + #:bit-field #:opaque #:bycopy #:byref + #:primitive-invoke)) (in-package #:mulk.objective-cl.tests) @@ -46,6 +47,45 @@ (find-selector '(:string-with-c-string :encoding)))))) +(deftestsuite primitive-method-invocation (objective-cl) + () + (:equality-test #'objc-equal) + (:tests + ((ensure-error (primitive-invoke (find-objc-class 'ns-object) + 'string 'id))) + ((ensure-error (primitive-invoke 300 'self 'id))) + ((ensure-error (primitive-invoke "abc" 'self 'id))) + ((ensure-error (primitive-invoke (find-objc-class 'ns-object) + 'selph 'id))) + ((ensure-same (primitive-invoke (find-objc-class 'ns-object) + 'self 'id) + (primitive-invoke (find-objc-class 'ns-object) + 'class 'class))) + ((ensure-different (primitive-invoke (find-objc-class 'ns-object) + 'self 'id) + (primitive-invoke (find-objc-class 'ns-number) + 'self 'id))) + ((ensure-same (primitive-invoke (find-objc-class 'ns-string) + :string-with-c-string 'id + "Mulk.") + (primitive-invoke (find-objc-class 'ns-string) + :string-with-c-string 'id + "Mulk."))) + ((ensure-different (primitive-invoke (find-objc-class 'ns-string) + :string-with-c-string 'id + "Mulk.") + (primitive-invoke (find-objc-class 'ns-string) + :string-with-c-string 'id + "Klum."))) + ((ensure (primitive-invoke (find-objc-class 'ns-string) + :is-subclass-of-class :boolean + (find-objc-class 'ns-object)))) + ((ensure (primitive-invoke (find-objc-class 'ns-string) + '(:perform-selector :with-object) :boolean + (selector "isSubclassOfClass:") + (find-objc-class 'ns-object)))))) + + (deftestsuite method-invocation (objective-cl) () (:equality-test #'objc-equal) |