X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fhash.pure.lisp;h=f4458968777bc5f12070ef404ab0ff031b20f439;hb=062283b901155792f65775491aea51481c56faaa;hp=a7d195ee7bd402d7974ff21034389ab230dbacce;hpb=fe91df69dbf65c4a4c011bf1a7ee33100a50e711;p=sbcl.git

diff --git a/tests/hash.pure.lisp b/tests/hash.pure.lisp
index a7d195e..f445896 100644
--- a/tests/hash.pure.lisp
+++ b/tests/hash.pure.lisp
@@ -28,4 +28,10 @@
   ;; Need to make another access to the hash to disable the last-seen-element
   ;; cache.
   (setf (gethash 'y hash) t)
-  (assert (gethash a hash)))
\ No newline at end of file
+  (assert (gethash a hash)))
+
+;;; Minimum quality checks
+(assert (/= (sxhash "foo") (sxhash "bar")))
+(assert (/= (sxhash (pathname "foo.txt")) (sxhash (pathname "bar.txt"))))
+(assert (/= (sxhash (list 1 2 3)) (sxhash (list 3 2 1))))
+(assert (/= (sxhash #*1010) (sxhash #*0101)))