Lines Matching defs:equal
131 (defun equal-test (expect function &rest arguments)
132 (compare-test #'equal expect function arguments))
143 (defun equal-eval (expect form)
144 (compare-eval #'equal expect form))
413 (equal-test #P"/public/games/chess.db"
416 (equal-test #P"/etc/passwd" #'list* #P"/etc/passwd")
422 (equal-test '(:absolute "public" "games") #'pathname-directory path)
423 (equal-test "chess" #'pathname-name path)
424 (equal-test "db" #'pathname-type path)
426 (equal-test #P"/tmp/foo.txt" #'make-pathname :defaults "/tmp/foo.txt")
428 #+xedit (equal-test #P"/tmp/foo.txt" #'pathname "///tmp///foo.txt")
430 ;; (equal-test #P"///tmp///foo.txt" #'pathname "///tmp///foo.txt")
434 (equal-test #P"/tmp/foo.txt" #'merge-pathnames "/tmp/foo" "/tmp/foo.txt")
435 (equal-test #P"/tmp/foo.txt" #'merge-pathnames "foo" "/tmp/foo.txt")
436 (equal-test #P"/tmp/foo/bar.txt" #'merge-pathnames "foo/bar" "/tmp/foo.txt")
440 (equal-test "/tmp/foo/bar.txt" #'namestring path)
441 (equal-test "" #'host-namestring path)
442 (equal-test "/tmp/foo/" #'directory-namestring path)
443 (equal-test "bar.txt" #'file-namestring path)
444 (equal-test "/tmp/foo/bar.txt" #'enough-namestring path)
445 (equal-test "foo/bar.txt" #'enough-namestring path "/tmp/")
446 (equal-test "bar.txt" #'enough-namestring path "/tmp/foo/")
447 (equal-test "foo/bar.txt" #'enough-namestring path "/tmp/foo")
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")))
480 (equal-eval '(#\0 #\1 #\2 #\3)
497 (equal-eval '(#\0 #\1 #\2 #\3)
522 (equal-test "dog" #'write-line "dog" is)
530 (equal-test "mouse" #'write-line "mouse" is)
546 (equal-eval '(3 5)
548 (equal-eval '((a b c) 7)
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)
568 (equal-test '(1 2 3 4) #'write '(1 2 3 4) :stream os)
569 (equal-test "(1 2 3 4)" #'get-output-stream-string os)
573 (equal-test '(:foo :bar) #'write '(:foo :bar) :case :downcase :stream os)
574 (equal-test "(:foo :bar)" #'get-output-stream-string os)
575 (equal-test '(:foo :bar) #'write '(:foo :bar) :case :capitalize :stream os)
576 (equal-test "(:Foo :Bar)" #'get-output-stream-string os)
577 (equal-test '(:foo :bar) #'write '(:foo :bar) :case :upcase :stream os)
578 (equal-test "(:FOO :BAR)" #'get-output-stream-string os)
579 (equal-test '(foo bar baz) #'write '(foo bar baz) :length 2 :stream os)
580 (equal-test "(FOO BAR ...)" #'get-output-stream-string os)
581 (equal-test '(foo (bar) baz) #'write '(foo (bar) baz) :level 1 :stream os)
582 (equal-test "(FOO # BAZ)" #'get-output-stream-string os)
585 (equal-test "#1=(1 #1#)" #'get-output-stream-string os)
587 (equal-test "#\\Space" #'get-output-stream-string os)
589 (equal-test " " #'get-output-stream-string os)
597 (equal-test "some text" #'write-string "some text" os)
600 (equal-test "more text" #'write-string "more text" os)
601 (equal-test "some text
603 (equal-test nil #'fresh-line os)
604 (equal-test nil #'fresh-line os)
605 (equal-test "" #'get-output-stream-string os)
618 (equal-test (get-output-stream-string p-os)
634 (equal-test (get-output-stream-string p-os)
655 (equal-test (get-output-stream-string p-os)
663 (equal-test "some text" #'write-string "some text" os)
666 (equal-test "more text" #'write-string "more text" os)
667 (equal-test "some text
670 (equal-test nil #'terpri os)
671 (equal-test nil #'terpri os)
672 (equal-test "
679 (equal-eval "a b"
688 (equal-test "text" #'write-line "text" os)
689 (equal-test "text
692 (equal-test "text" #'write-line "text" os :start 1 :end 3)
694 (equal-test "<ex
701 (equal-test "text" #'write-string "text" os)
702 (equal-test "text" #'get-output-stream-string os)
704 (equal-test "text" #'write-string "text" os :start 1 :end 3)
706 (equal-test "<ex>" #'get-output-stream-string os)
714 (equal-test "some text" #'write-line "some text" file)
716 (equal-test "delete-me.text" #'file-namestring (truename name))
718 (equal-test "other text" #'write-line "other text" file)
720 (equal-test "delete-me.text" #'file-namestring (truename name))
738 (equal-test "line 1" #'read-line s)
739 (equal-test "line 2" #'read-line s)
749 (equal-test "some-text" #'read-line s)
764 (equal-test "foo" #'read-line s)
765 (equal-test "bar" #'read-line s)
769 (equal-test "foo" #'read-line s)
770 (equal-test "bar" #'read-line s)
771 (equal-test "baz" #'read-line s)
796 (equal-test (third result) #'truename "bar.foo")
799 (equal-test (list (third result)) #'directory (third result))