From 048c5db4f7a732376f0a4526502e012a0f29e0c7 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 12 Aug 2007 19:41:02 +0200
Subject: Code cleanup, fix a couple of memory leaks.

darcs-hash:629e2764a4ce319c9a7d9bc3a22e6f254633c73f
---
 Lisp/tests.lisp | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'Lisp/tests.lisp')

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)
-- 
cgit v1.2.3