Code cleanup, fix a couple of memory leaks.

darcs-hash:629e2764a4ce319c9a7d9bc3a22e6f254633c73f

1 files changed, 18 insertions, 0 deletions

diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp
index 0cc7379..28c4c9f 100644
--- a/Lisp/tests.lisp
+++ b/Lisp/tests.lisp
@@ -18,6 +18,12 @@
   ())
 
 
+(defrandom-instance double objective-cl
+  (if (zerop (random 2))
+      (random most-positive-double-float)
+      (- (random (abs most-negative-double-float)))))
+
+
 (deftestsuite base-functions (objective-cl)
   ()
   (:equality-test #'objc-equal)
@@ -72,6 +78,18 @@
    ((ensure (typep [NSString isEqual: [NSObject self]] 'boolean)))))
 
 
+(deftestsuite numbers (objective-cl)
+  ()
+  (:equality-test #'objc-equal)
+  (:tests
+   ((ensure-same [[NSDecimalNumber
+                   decimalNumberWithString:
+                     [NSString stringWithCString:
+                        "-12345"]]
+                  doubleValue]
+                 -12345d0))))
+
+
 (deftestsuite exception-handling (objective-cl)
   ()
   (:equality-test #'objc-equal)