Lines Matching +refs:eq +refs:eval
85 (defun compare-eval (test expect form
90 (setq result (eval form))
115 (defun error-eval (form &aux result (error t))
117 (setq result (eval form))
125 (defun eq-test (expect function &rest arguments)
126 (compare-test #'eq 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))
160 (or (eq (null result) (null expect))
168 (defun bool-eval (expect form &aux result (error t) unused error-value)
172 (setq result (eval form))
178 (or (eq (null result) (null expect))
419 (eq-test path #'pathname path)
420 (eq-test nil #'pathname-host path)
421 (eq-test nil #'pathname-device path)
425 (eq-test nil #'pathname-version path)
450 (equal-eval '(#P"foo" 3) '(multiple-value-list (parse-namestring "foo")))
451 (equal-eval '(#P"foo" 0) '(multiple-value-list (parse-namestring #P"foo")))
457 (eq-test t #'streamp is)
458 (eq-test t #'input-stream-p is)
459 (eq-test nil #'output-stream-p is)
460 (eq-test 'foo #'read is)
461 (eq-test t #'close is)
463 (eq-test 'foo #'read is)
464 (eq-test t #'close is)
466 (eq-test nil #'read is nil)
467 (eq-test 'end-of-string #'read is nil 'end-of-string)
472 (eq-test t #'streamp is)
473 (eq-test nil #'input-stream-p is)
474 (eq-test nil #'streamp "test")
480 (equal-eval '(#\0 #\1 #\2 #\3)
490 (eq-test nil #'read-char is nil)
491 (eq-test :end-of-string #'read-char is nil :end-of-string)
492 (eq-test t #'close is)
497 (equal-eval '(#\0 #\1 #\2 #\3)
507 (eq-test nil #'read-char-no-hang is nil)
508 (eq-test :end-of-string #'read-char-no-hang is nil :end-of-string)
509 (eq-test t #'close is)
528 (eq-test nil #'read-char-no-hang is)
529 (eq-test nil #'read-char-no-hang is)
538 (eq-test nil #'read-char-no-hang is)
539 (eq-test t #'close is)
546 (equal-eval '(3 5)
548 (equal-eval '((a b c) 7)
551 (eq-test nil #'read-from-string "" nil)
552 (eq-test 'end-of-file #'read-from-string "" nil 'end-of-file)
557 (equal-eval '("line 1" nil) '(multiple-value-list (read-line is)))
558 (equal-eval '("line 2" t) '(multiple-value-list (read-line is)))
560 (equal-eval '(nil t) '(multiple-value-list (read-line is nil)))
561 (equal-eval '(end-of-string t)
570 (eq-test t #'streamp os)
571 (eq-test t #'output-stream-p os)
572 (eq-test nil #'input-stream-p os)
584 (eq-test circle #'write circle :circle t :stream os)
590 (eq-test t #'close os)
591 (eq-test nil #'output-stream-p os)
598 (eq-test t #'fresh-line os)
599 (eq-test nil #'fresh-line os)
616 (eq-test object #'prin1 object p-os)
617 (eq-test object #'write object :stream w-os :escape t)
632 (eq-test object #'princ object p-os)
633 (eq-test object #'write object :stream w-os :escape nil)
650 (eq-test object #'print object p-os)
652 (eq-test nil #'terpri w-os)
653 (eq-test object #'write object :stream w-os :escape t)
664 (eq-test nil #'terpri os)
665 (eq-test nil #'terpri os)
679 (equal-eval "a b"
713 (bool-eval t '(setq file (open name :direction :output)))
722 #+xedit (eq-test t #'delete-file name)
729 (eq-test nil #'delete-file name)
730 (eq-test nil #'directory name)
731 (eq-test nil #'directory backup)
740 (eq-test 'eof #'read-line s nil 'eof)
750 (eq-test 'eof #'read-line s nil 'eof))
752 (eq-test nil #'open name :direction :output :if-exists nil)
756 (eq-test nil #'open name :direction :output :if-does-not-exist nil)
766 (eq-test 'eof #'read-line s nil 'eof)
772 (eq-test 'eof #'read-line s nil 'eof))
777 (eq-eval nil
779 (eq-test t #'pathnamep (setq p (probe-file "delete-me.text")))
781 (eq-test nil #'probe-file "delete-me.text")
782 (bool-eval t
789 (bool-eval t '(setq file (open name :direction :output :if-exists :error)))
790 (eq-test t #'close file)
793 (eq-test t #'pathnamep (first result))
794 (eq-test t #'pathnamep (second result))
795 (eq-test t #'pathnamep (third result))
797 (eq-test nil #'directory name)
798 (eq-test nil #'directory (second result))
802 (eq-test nil #'probe-file name)
804 (eq-test nil #'probe-file (second result))
807 (eq-test nil #'delete-file (third result))
808 (eq-test nil #'delete-file (second result))