;;;; weak-fix-test.scm (import test) (import (test-utils gloss) (only (chicken format) format)) (import (test-utils test)) (import (srfi 69 hash) (srfi 69 weak fix)) (import (chicken fixnum) (chicken platform) (chicken random) (chicken sort) (chicken string)) ;; (test-begin "SRFI 69 (Weak Fix)") (include-relative "hash-table-tests-incl") (include-relative "hash-table-weak-tests-incl") (test-end "SRFI 69 (Weak Fix)") ;;; (test-exit)