Searched +refs:equalp +refs:test (Results 1 - 2 of 2) sorted by relevance

/xsrc/external/mit/xedit/dist/lisp/test/
H A Dlist.lsp30 ;; $XFree86: xc/programs/xedit/lisp/test/list.lsp,v 1.5 2002/11/26 04:06:30 paulo Exp $
40 ;; Some tests are hand crafted, to test how the interpreter treats
54 (defun compare-test (test expect function arguments
65 (or (funcall test result expect)
73 (defun compare-eval (test expect form
84 (or (funcall test result expect)
92 (defun error-test (function &rest arguments &aux result (error t))
113 (defun eq-test (expect function &rest arguments)
114 (compare-test #'e
185 (defstruct test a b c) function
[all...]
H A Dstream.lsp30 ;; $XFree86: xc/programs/xedit/lisp/test/stream.lsp,v 1.3 2002/12/06 03:25:29 paulo Exp $
37 (defun do-format-test (error-test expect arguments
46 (if error-test
58 (defun format-test (expect &rest arguments)
59 (do-format-test nil expect arguments))
62 (do-format-test t nil arguments))
66 (defun compare-test (test expect function arguments
77 (or (funcall test resul
[all...]

Completed in 4 milliseconds