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

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

@ -1,16 +1,16 @@
(require (planet "test.ss" ("schematics" "schemeunit.plt" 1 1)) (module hash-tests mzscheme
(planet "text-ui.ss" ("schematics" "schemeunit.plt" 1 1)))
(require (lib "1.ss" "srfi") (require (planet "test.ss" ("schematics" "schemeunit.plt" 1 1)))
(require (lib "1.ss" "srfi")
(lib "69.ss" "srfi")) (lib "69.ss" "srfi"))
(define test-hash-table1 (define test-hash-table1
(alist->hash-table '((a . 1) (b . 2) (c . 3)))) (alist->hash-table '((a . 1) (b . 2) (c . 3))))
(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"
(make-test-case (make-test-case
@ -197,5 +197,4 @@
("c" . 3) ("c" . 3)
("d" . 4))))))) ("d" . 4)))))))
(test/text-ui test-suite) )