Searched +refs:eql +refs:test (Results 1 - 3 of 3) sorted by relevance

/xsrc/external/mit/xedit/dist/lisp/test/
H A Dmath.lsp30 ;; $XFree86: xc/programs/xedit/lisp/test/math.lsp,v 1.4 2002/11/30 23:13:14 paulo Exp $
34 ;; This is far from a good regression test, but in the current stage of
36 ;; broken. But note that this does not test all cases where there is
43 (defun test (expect function &rest arguments &aux result (error t)) function
50 ;; Use eql to make sure result and expect have the same type
51 (or (eql result expect)
71 (defun div-test (quotient remainder function &rest arguments
79 (or (and (eql quotient quo) (eql remainder rem))
83 (eql quotien
[all...]
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 3 milliseconds