diff options
| -rw-r--r-- | Lisp/tests.lisp | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index 89593ca..cd138e5 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -29,7 +29,7 @@ #:foreign-class-registered-p #:define-objective-c-method #:defobjcmethod #:objective-c-generic-function #:objective-c-method - #:+nil+ #:+yes+ #:+no+)) + #:+nil+ #:+yes+ #:+no+ #:selector)) (in-package #:mulk.objective-cl.tests) (in-root-suite) @@ -370,6 +370,24 @@ #.(disable-objective-c-syntax) +#.(enable-method-syntax) +(deftest method-syntax () + (is (eq '#/stringWithCString:encoding: + 'objective-c-selectors:|stringWithCString:encoding:|)) + (is (fboundp '#/stringWithCString:encoding:)) + (is (typep (fdefinition '#/stringWithCString:encoding:) 'selector)) + (is (objc-equal (#/stringWithCString:encoding: (find-objc-class 'ns-string) + "Mulk." + 4) + (invoke (find-objc-class 'ns-string) + :string-with-c-string "Mulk." :encoding 4))) + (is (objc-equal (#/self (find-objc-class 'ns-array)) + (find-objc-class 'ns-array))) + (is (subtypep (#/class (#/new (find-objc-class 'ns-mutable-array))) + (find-objc-class 'ns-mutable-array)))) +#.(disable-method-syntax) + + (deftest compiler-macros () (flet ((compiler-macroexpand-1 (form &optional environment) (funcall (or (compiler-macro-function (car form)) |