Define the ASSERT-EQUALP assertion

melusina-org · Apr 14, 2023 · b6b0121 · b6b0121
1 parent 5cbc747
commit b6b0121
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 0 deletions.
diff --git a/doc/org.melusina.confidence.texinfo b/doc/org.melusina.confidence.texinfo
@@ -129,6 +129,7 @@ function. A special kind of function, but a function.
 @include include/fun-org.melusina.confidence-assert-eq.texinfo
 @include include/fun-org.melusina.confidence-assert-eql.texinfo
 @include include/fun-org.melusina.confidence-assert-equal.texinfo
+@include include/fun-org.melusina.confidence-assert-equalp.texinfo
 @include include/fun-org.melusina.confidence-assert-equals.texinfo
 @include include/fun-org.melusina.confidence-assert-lt.texinfo
 @include include/fun-org.melusina.confidence-assert-gt.texinfo

diff --git a/src/assertion.lisp b/src/assertion.lisp
@@ -144,6 +144,10 @@ This does not compare EXPR to T as a generalised boolean, cf. ASSERT-T*."
   "Assert that A and B satisfy the EQUAL predicate."
   (equal a b))
 
+(define-assertion assert-equalp (a b)
+  "Assert that A and B satisfy the EQUALP predicate."
+  (equal a b))
+
 (define-assertion assert= (a b)
   "Assert that A and B satisfy the = predicate."
   (= a b))

diff --git a/src/package.lisp b/src/package.lisp
@@ -40,6 +40,7 @@
    #:assert-eq
    #:assert-eql
    #:assert-equal
+   #:assert-equalp
    #:assert=
    #:assert<
    #:assert<=