From c31e45dda43e1bf10e66a724cb90d51cd6cfaa26 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Mon, 13 Aug 2007 13:59:04 +0200 Subject: Add a SELECTOR function and use coerced selectors in Objective C code rather than strings. darcs-hash:d10f9eafc3b21bfcfc027a263e8cee007155b89c --- Lisp/tests.lisp | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) (limited to 'Lisp/tests.lisp') diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index 28c4c9f..eec76ee 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -60,7 +60,7 @@ [NSString stringWithCString: "Klum."])) ((ensure [NSString isSubclassOfClass: [NSObject class]])) ((ensure [NSString performSelector: - (find-selector "isSubclassOfClass:") + (selector "isSubclassOfClass:") withObject: [NSObject class]])))) @@ -70,9 +70,9 @@ (:tests ((ensure-same [NSString stringWithCString: "Mulk."] [NSString stringWithCString: "Mulk." encoding: 4])) - ((ensure-same [NSString respondsToSelector: (find-selector "new")] + ((ensure-same [NSString respondsToSelector: (selector "new")] [NSString respondsToSelector: 'new])) - ((ensure-same [NSString respondsToSelector: (find-selector "new")] + ((ensure-same [NSString respondsToSelector: (selector "new")] [NSString respondsToSelector: "new"])) ((ensure (typep [NSString isEqual: [NSString self]] 'boolean))) ((ensure (typep [NSString isEqual: [NSObject self]] 'boolean))))) @@ -113,8 +113,10 @@ (invoke (find-objc-class 'ns-string) :string-with-c-string "Mulk." :encoding 4))) ((ensure-same [NSString performSelector: - (find-selector "isSubclassOfClass:") - withObject: [NSObject class]] + (selector "isSubclassOfClass:") + withObject: [NSObject self]] (invoke (find-objc-class 'ns-string) - :performSelector (find-selector "isSubclassOfClass") - :with-object (find-objc-class 'ns-object)))))) + :perform-selector (selector "isSubclassOfClass:") + :with-object (invoke + (find-objc-class 'ns-object) + 'self)))))) -- cgit v1.2.3