Changeset 14236 for trunk/tests


Ignore:
Timestamp:
Sep 7, 2010, 6:10:54 PM (9 years ago)
Author:
rme
Message:

Tests for #735 and #736.

Also remove a duplicate test for #708.

File:
1 edited

Legend:

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

    r14174 r14236  
    16991699      (- (one 67660763903986) (two 67660763903986)))
    17001700  0)
     1701
     1702(deftest ccl.bug#735
     1703  (flet ((diff (x)
     1704           (- (locally
     1705                  (declare (type (integer 1000000000 2000000000) x))
     1706                (lognor -10 x))
     1707              (lognor -10 x))))
     1708    (diff 20))
     1709  0)
     1710
     1711(deftest ccl.bug#736
     1712  (flet ((foo (a b)
     1713           (declare (type (integer -314476952 -84061465) a))
     1714           (declare (type (integer 16008 1204497162) b))
     1715           (logand b (the integer a))))
     1716    (foo -299404531 1081111751))
     1717  1075867653)
Note: See TracChangeset for help on using the changeset viewer.