diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-14 14:09:56 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-14 14:09:56 +0200 |
| commit | 7dd020078ab9d84a58c71cc9d2a363dff71f0de0 (patch) | |
| tree | 4e372dc860fa9265d7610dd86c104b7c41325305 | |
| parent | Better structuring between webdav modules. (diff) | |
| download | calp-7dd020078ab9d84a58c71cc9d2a363dff71f0de0.tar.gz calp-7dd020078ab9d84a58c71cc9d2a363dff71f0de0.tar.xz | |
Add test for object equivalence.
| -rw-r--r-- | tests/unit/util/object.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/unit/util/object.scm b/tests/unit/util/object.scm index 4f3aeb4f..6db9890c 100644 --- a/tests/unit/util/object.scm +++ b/tests/unit/util/object.scm @@ -79,4 +79,12 @@ (define-type (f4 printer: (lambda (r p) (display "something" p)))) (test-equal "something" (with-output-to-string (lambda () (write (f4))))) +(test-group "Object equivalence" + (let ((o1 (f3 f3-x: 10 f3-y: "string")) + (o2 (f3 f3-x: 10 f3-y: "string"))) + (test-eq "An object is itself" o1 o1) + (test-assert "Two identical objects are different objects" + (not (eq?? o1 o2))) + (test-equal "Two identical objects are equal" o1 o2))) + '((hnh util object)) |