summary refs log tree commit diff
diff options
context:
space:
mode:
authorLeah Neukirchen <leah@vuxu.org>2023-01-20 18:51:27 +0100
committerLeah Neukirchen <leah@vuxu.org>2023-01-20 18:51:27 +0100
commitd107bd42ba148adb3d2da6cb50495d2e9a12c136 (patch)
treea43a42ac3433be62c147afd9a4a3325809e97203
parent18bfa25b243653ae06956e2d029a3ccbd5d3f4e8 (diff)
downloadmew-d107bd42ba148adb3d2da6cb50495d2e9a12c136.tar.gz
mew-d107bd42ba148adb3d2da6cb50495d2e9a12c136.tar.xz
mew-d107bd42ba148adb3d2da6cb50495d2e9a12c136.zip
err: add test for equality HEAD master
-rw-r--r--tests/test-err.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/test-err.scm b/tests/test-err.scm
index 90ef00f..60ffd39 100644
--- a/tests/test-err.scm
+++ b/tests/test-err.scm
@@ -10,7 +10,8 @@
   (test #t (ok? (if #f #f)))
   (test #t (ok? '()))
   (test 42 (unerr (err 42)))
-  (test #t (void? (unerr 42))))
+  (test #t (void? (unerr 42)))
+  (test #t (equal? (err 42) (err 42))))
 
 (test-group "record-printer"
   (test "#<err 42>" (format "~a" (err 42))))