diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-13 13:59:04 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-13 13:59:04 +0200 |
commit | c31e45dda43e1bf10e66a724cb90d51cd6cfaa26 (patch) | |
tree | 407813141cf00e4a505c6b30afbe14c47fe52797 /Lisp/tests.lisp | |
parent | c5fce012e0a31684eb96ee8770c6b4fb229d3e60 (diff) |
Add a SELECTOR function and use coerced selectors in Objective C code rather than strings.
darcs-hash:d10f9eafc3b21bfcfc027a263e8cee007155b89c
Diffstat (limited to 'Lisp/tests.lisp')
-rw-r--r-- | Lisp/tests.lisp | 16 |
1 files changed, 9 insertions, 7 deletions
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)))))) |