Changeset 14676 for trunk/tests


Ignore:
Timestamp:
Mar 15, 2011, 7:11:26 PM (9 years ago)
Author:
rme
Message:

Tests for ticket:831 and ticket:832.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r14674 r14676  
    17531753      (floating-point-overflow (c) c)))
    17541754  :win)
     1755
     1756(deftest ccl.bug#831
     1757  (let ((val #c(1d300 1d300)))
     1758    (handler-case
     1759        (progn
     1760          (log val)
     1761          :win)
     1762      (floating-point-overflow (c) c)))
     1763  :win)
     1764
     1765(deftest ccl.bug#832
     1766  (let ((val #c(1d300 1d300)))
     1767    (handler-case
     1768        (progn
     1769          (sqrt val)
     1770          :win)
     1771      (floating-point-overflow (c) c)))
     1772  :win)
Note: See TracChangeset for help on using the changeset viewer.