Lines Matching refs:expect
37 (defun do-format-test (error-test expect arguments
52 (or (string= result expect)
54 arguments expect result)))
58 (defun format-test (expect &rest arguments)
59 (do-format-test nil expect arguments))
66 (defun compare-test (test expect function arguments
77 (or (funcall test result expect)
79 function arguments expect result
85 (defun compare-eval (test expect form
96 (or (funcall test result expect)
98 form expect result
125 (defun eq-test (expect function &rest arguments)
126 (compare-test #'eq expect function arguments))
128 (defun eql-test (expect function &rest arguments)
129 (compare-test #'eql expect function arguments))
131 (defun equal-test (expect function &rest arguments)
132 (compare-test #'equal expect function arguments))
134 (defun equalp-test (expect function &rest arguments)
135 (compare-test #'equalp expect function arguments))
137 (defun eq-eval (expect form)
138 (compare-eval #'eq expect form))
140 (defun eql-eval (expect form)
141 (compare-eval #'eql expect form))
143 (defun equal-eval (expect form)
144 (compare-eval #'equal expect form))
146 (defun equalp-eval (expect form)
147 (compare-eval #'equalp expect form))
149 (defun bool-test (expect function &rest arguments
160 (or (eq (null result) (null expect))
162 function arguments expect result
168 (defun bool-eval (expect form &aux result (error t) unused error-value)
178 (or (eq (null result) (null expect))
180 form expect result