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