~ chicken-core (chicken-5) 82fa87d5bafd10cfe10dfcead40616b8f7653762

commit 82fa87d5bafd10cfe10dfcead40616b8f7653762
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Thu Apr 19 09:48:55 2012 +0200
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Thu Apr 19 09:48:55 2012 +0200

    Add test for c948b4baf8a159fa9c033fcd3512dd8fd31c391d (#818)

diff --git a/tests/hash-table-tests.scm b/tests/hash-table-tests.scm
index 8ab0913b..ff13c83d 100644
--- a/tests/hash-table-tests.scm
+++ b/tests/hash-table-tests.scm
@@ -134,6 +134,12 @@
 (assert (= 123 (hash-table-ref ht "test")))
 (assert (= 1 (hash-table-ref ht "one")))
 
+;; Issue #818, found by Jim Ursetto (srfi-13 defines its own string-hash)
+(print "HT - After overwriting 'string-hash' should still work")
+(set! string-hash (lambda (x) (error "Wrong string-hash called")))
+(set! ht (make-hash-table string=?))
+(hash-table-set! ht "foo" "bar")
+(assert (string=? (hash-table-ref ht "foo") "bar"))
 
 (set! ht (make-hash-table equal? (lambda (object bounds)
                                    (case object