From 6de3cca4a70b8295f8760af565eba142f915becb Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Fri, 18 Oct 2002 03:12:08 +0000 Subject: [PATCH] Added tests for EQUAL. --- ansi-tests/equal.lsp | 66 +++++++++++++++++++++++++++++++++++++++++ ansi-tests/gclload2.lsp | 1 + 2 files changed, 67 insertions(+) create mode 100644 ansi-tests/equal.lsp diff --git a/ansi-tests/equal.lsp b/ansi-tests/equal.lsp new file mode 100644 index 00000000..e571d787 --- /dev/null +++ b/ansi-tests/equal.lsp @@ -0,0 +1,66 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Thu Oct 17 21:38:16 2002 +;;;; Contains: Tests for EQUAL + +(in-package :cl-test) + +(deftest equal.1 + (loop for x in *symbols* + always (loop for y in *symbols* + always (if (eq x y) (equal x y) + (not (equal x y))))) + t) + +(deftest equal.2 + (equalt (cons 'a 'b) (cons 'a 'b)) + t) + +(deftest equal.3 + (equalt (cons 'a 'c) (cons 'a 'b)) + nil) + +(deftest equal.4 + (equalt (vector 1 2 3) (vector 1 2 3)) + nil) + +(deftest equal.5 + (loop for c in *characters* + always (loop for d in *characters* + always (if (eql c d) (equalt c d) + (not (equalt c d))))) + t) + +(deftest equal.6 + (equalt (make-pathname :name (copy-seq "foo")) + (make-pathname :name (copy-seq "foo"))) + t) + +(deftest equal.7 + (equalt (make-pathname :name (copy-seq "foo")) + (make-pathname :name (copy-seq "bar"))) + nil) + +(deftest equal.8 + (equalt (copy-seq "abcd") (copy-seq "abcd")) + t) + +(deftest equal.9 + (equalt (copy-seq "abcd") (copy-seq "abc")) + nil) + +(deftest equal.10 + (equalt (copy-seq "abcd") (copy-seq "ABCD")) + nil) + +(deftest equal.11 + (equalt (copy-seq #*000110) (copy-seq #*000110)) + t) + +(deftest equal.12 + (equalt (copy-seq #*000110) (copy-seq #*000111)) + nil) + + + + diff --git a/ansi-tests/gclload2.lsp b/ansi-tests/gclload2.lsp index 77a9c52b..bdb44a37 100644 --- a/ansi-tests/gclload2.lsp +++ b/ansi-tests/gclload2.lsp @@ -19,6 +19,7 @@ (load "defparameter.lsp") (load "defvar.lsp") (load "destructuring-bind.lsp") +(load "equal.lsp") (load "eql.lsp") (load "fboundp.lsp") (load "flet.lsp") -- GitLab