Changeset 13548 for trunk/tests


Ignore:
Timestamp:
Mar 18, 2010, 1:52:31 PM (9 years ago)
Author:
gz
Message:

Add some regression tests

File:
1 edited

Legend:

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

    r13504 r13548  
    16491649  0.0s0)
    16501650
    1651        
     1651(deftest ccl.bug#660
     1652    (progn
     1653      (fmakunbound 'test.bug#660)
     1654      (test-compile
     1655       (test-source-file "(defun cl-test::test.bug#660 (x)
     1656                           (declare (type (unsigned-byte ~d) x))
     1657                           (ash x -1000))"
     1658                         target::nbits-in-word)
     1659       :load t)
     1660      (test.bug#660 (ash 1 (1- target::nbits-in-word))))
     1661  0)
     1662
     1663(deftest ccl.bug#666
     1664    (progn
     1665      (fmakunbound 'test.bug#666)
     1666      (test-compile
     1667       (test-source-file "(defun cl-test::test.bug#666 (x y)
     1668                            (declare (type fixnum x y))
     1669                            (truncate x y))")
     1670       :load t)
     1671      (eql (test.bug#666 most-negative-fixnum -1) (abs most-negative-fixnum)))
     1672  t)
     1673
     1674(deftest ccl.bug#588
     1675    (let ((*readtable* (copy-readtable)))
     1676      (set-macro-character #\Left-Pointing_Double_Angle_Quotation_Mark
     1677                           (lambda (stream ch)
     1678                             (declare (ignore stream ch))
     1679                             :win))
     1680      (prog1
     1681          (read-from-string (coerce '(#\Left-Pointing_Double_Angle_Quotation_Mark #\space) 'string))
     1682        (set-macro-character #\Left-Pointing_Double_Angle_Quotation_Mark nil)))
     1683  :win)
Note: See TracChangeset for help on using the changeset viewer.