Changeset 12582 for trunk/tests


Ignore:
Timestamp:
Aug 15, 2009, 2:03:01 PM (10 years ago)
Author:
gz
Message:

add regression test

File:
1 edited

Legend:

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

    r12560 r12582  
    14651465    (test-compiler-warning "(defmacro ccl.56248b (&environment env) t)")
    14661466  (:unused))
     1467
     1468
     1469(deftest ccl.ctype-hashing
     1470    (let ((path #P"x"))
     1471      (and (not (typep path '(member #P"x")))
     1472           (typep path `(member ,path))
     1473           t))
     1474  t)
Note: See TracChangeset for help on using the changeset viewer.