diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 23:12:35 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 23:12:35 +0100 |
| commit | d16f69d260753ff706aab52b6990012441fce2a6 (patch) | |
| tree | 35ac4cbb0b67d963f5b7163fdb8576343cd019f7 /Lisp/tests.lisp | |
| parent | e06aa593fb25fb4e31e500fec9dc67b9ea842ba1 (diff) | |
Fix syntax enhancement enabling and disabling functions.
darcs-hash:9bab32834009040b90d1d10f12abadad6d1391fa
Diffstat (limited to 'Lisp/tests.lisp')
| -rw-r--r-- | Lisp/tests.lisp | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index 57da341..89593ca 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -34,10 +34,6 @@ (in-root-suite) -(eval-when (:compile-toplevel) - (objcl:install-reader-syntax)) - - (defun run-all-tests () (objective-cl)) @@ -116,6 +112,7 @@ (find-objc-class 'ns-object)))) +#.(enable-objective-c-syntax) (deftest method-invocation () (signals error [NSObject 300]) (signals error [300 self]) @@ -135,6 +132,7 @@ #+(or) (is [NSString performSelector: (selector "stringWithUTF8String:") withObject: [NSObject class]])) +#.(disable-objective-c-syntax) (deftest parsing-typespecs () @@ -316,6 +314,7 @@ "^^{OpaqueStruct}"))) +#.(enable-objective-c-syntax) (deftest data-coercion () (is (objc-equal [NSString stringWithUTF8String: "Mulk."] [NSString stringWithCString: "Mulk." encoding: 4])) @@ -325,15 +324,19 @@ [NSString respondsToSelector: "new"])) (is (typep [NSString isEqual: [NSString self]] 'boolean)) (is (typep [NSString isEqual: [NSObject self]] 'boolean))) +#.(disable-objective-c-syntax) +#.(enable-objective-c-syntax) (deftest numbers () (is (objc-equal [[NSDecimalNumber decimalNumberWithString: [NSString stringWithUTF8String: "-12345"]] doubleValue] -12345d0))) +#.(disable-objective-c-syntax) +#.(enable-objective-c-syntax) (deftest exception-handling () (is (typep (handler-case [NSString selph] (error (e) e)) @@ -341,8 +344,10 @@ (is (typep (handler-case [NSObject string] (error (e) e)) 'message-not-understood))) +#.(disable-objective-c-syntax) +#.(enable-objective-c-syntax) (deftest reader-syntax () (is (objc-equal [NSObject self] (find-objc-class 'ns-object))) @@ -362,6 +367,7 @@ :with-object (invoke (find-objc-class 'ns-object) 'self))))) +#.(disable-objective-c-syntax) (deftest compiler-macros () |