Changeset 14676

Timestamp:

Mar 15, 2011, 12:11:26 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

Tests for ticket:831 and ticket:832.

File:

• trunk/tests/ansi-tests/ccl.lsp (modified) (1 diff)

trunk/tests/ansi-tests/ccl.lsp

@@ -1753 +1753 @@
       (floating-point-overflow (c) c)))
   :win)
+
+(deftest ccl.bug#831
+  (let ((val #c(1d300 1d300)))
+    (handler-case
+        (progn
+          (log val)
+          :win)
+      (floating-point-overflow (c) c)))
+  :win)
+
+(deftest ccl.bug#832
+  (let ((val #c(1d300 1d300)))
+    (handler-case
+        (progn
+          (sqrt val)
+          :win)
+      (floating-point-overflow (c) c)))
+  :win)