suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Waypoint for moving to a module based test

Browse Source 
svn: r1634
This commit is contained in:
Noel Welsh 2005-12-17 10:14:05 +00:00
parent f16cb07e0e
commit c65252212c
1 changed files with 141 additions and 142 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/tests/srfi/69/hashtest.scm
View File

@ -1,5 +1,6 @@
(require (planet "test.ss" ("schematics" "schemeunit.plt" 1 1)) (module hash-tests mzscheme
(planet "text-ui.ss" ("schematics" "schemeunit.plt" 1 1)))
(require (planet "test.ss" ("schematics" "schemeunit.plt" 1 1)))
(require (lib "1.ss" "srfi") (require (lib "1.ss" "srfi")
(lib "69.ss" "srfi")) (lib "69.ss" "srfi"))
@ -9,7 +10,6 @@
(define test-hash-table2 (define test-hash-table2
(alist->hash-table '(("a" . 1) ("b" . 2) ("c" . 3)) string-ci=? string-ci-hash)) (alist->hash-table '(("a" . 1) ("b" . 2) ("c" . 3)) string-ci=? string-ci-hash))
(define test-suite (define test-suite
(make-test-suite (make-test-suite
"srfi-69 test suit" "srfi-69 test suit"
@ -197,5 +197,4 @@
("c" . 3) ("c" . 3)
("d" . 4))))))) ("d" . 4)))))))
(test/text-ui test-suite) )