diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-21 16:17:40 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-21 16:17:40 +0200 |
| commit | 17ee7b8790aff3efe19551796efec889e9d0b51d (patch) | |
| tree | 088e7201ad2c1cbda86c8cfd2ff34f25c9b9a283 /Lisp/tests.lisp | |
| parent | 4167e6b9ec7c144bf259a820d7c958ecf7632c3f (diff) | |
Add condition classes NO-SUCH-SELECTOR and MESSAGE-NOT-UNDERSTOOD.
darcs-hash:e86722d8de9c97edf6ee9665423d57b0239fe910
Diffstat (limited to 'Lisp/tests.lisp')
| -rw-r--r-- | Lisp/tests.lisp | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index 90e1fcf..f74059e 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -206,8 +206,12 @@ (:tests ((ensure (typep (handler-case [NSString selph] - (exception (e) e)) - 'exception))))) + (error (e) e)) + '(or no-such-selector message-not-understood)))) + ((ensure (typep (handler-case + [NSObject string] + (error (e) e)) + 'message-not-understood))))) (deftestsuite reader-syntax (objective-cl) |