;;;; weak-fix-test.scm (import test) ;(import (test-utils gloss)) ;(import (only (chicken format) format)) (import (srfi 69 hash) (srfi 69 weak fix)) (import (chicken fixnum) (chicken platform) (chicken random) (chicken sort)) ;; (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)