Changeset 12016 for trunk/tests


Ignore:
Timestamp:
May 7, 2009, 8:24:42 PM (10 years ago)
Author:
gz
Message:

Add regression test

File:
1 edited

Legend:

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

    r11948 r12016  
    813813  :no-error)
    814814
     815#+ccl-0711
    815816(deftest ccl.loop-array
    816817    (let ((x nil))
     
    839840      (storage-condition () :storage-condition))
    840841  :storage-condition)
     842
     843(deftest ccl.next-method-p
     844    (let ((file (test-source-file "(defmethod cl-test::ccl.next-method-gf (x) (if (next-method-p) (call-next-method) x))")))
     845      (fmakunbound 'cl-test::ccl.next-method-gf)
     846      (test-compile file :load t)
     847      (funcall 'cl-test::ccl.next-method-gf 3))
     848  3)
    841849
    842850;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset for help on using the changeset viewer.