Changeset 13088


Ignore:
Timestamp:
Oct 22, 2009, 9:47:20 PM (10 years ago)
Author:
gz
Message:

Add tests for bug#612. Also uncomment some tests

File:
1 edited

Legend:

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

    r12855 r13088  
    436436
    437437
    438 #+ccl-0711
    439438(deftest ccl.47102
    440439    (handler-case
     
    14751474
    14761475
    1477 #+ccl-0711 (progn ;; not merged yet
    14781476(deftest ccl.61783-1
    14791477    (test-compiler-warning "(defgeneric ccl.61783-1 (x y))
     
    15271525                            (defgeneric ccl.61783-6-rev (x &key a &allow-other-keys))")
    15281526  ())
    1529 ) ;; #+ccl-0711
    1530 
     1527
     1528
     1529(deftest ccl.61783-7
     1530    (test-compiler-warning "(defgeneric ccl.61783-7 (x &key a &allow-other-keys))
     1531                            (defmethod ccl.61783-7 ((x integer) &rest args) args)")
     1532  ())
    15311533
    15321534(deftest ccl.bug#592
     
    15481550  nil t t)
    15491551
     1552(deftest ccl.bug#612-1
     1553    (flet ((fn (x)
     1554             (declare (optimize (safety 2) (speed 1)))
     1555             (+ (load-time-value -14930786 t) 1826522792 x)
     1556             ))
     1557      (fn 0))
     1558  1811592006)
     1559
     1560(deftest ccl.bug#612-2
     1561    (flet ((fn (x)
     1562             (declare (optimize (safety 2)))
     1563             (+ (load-time-value 1) 1826522792 x)))
     1564      (fn 0))
     1565  1826522793)
     1566
     1567(deftest ccl.bug#612-3
     1568    (flet ((fn (p)
     1569             (declare (optimize (safety 1) (speed 1)))
     1570             (ccl::%inc-ptr p (expt 2 31))))
     1571      (fn (ccl::%null-ptr))
     1572      t)
     1573  t)
Note: See TracChangeset for help on using the changeset viewer.