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

md5 tests in the file tests

Browse Source 
svn: r17367
This commit is contained in:
Eli Barzilay 2009-12-20 09:57:26 +00:00
parent 63fe729cc6
commit bf2992ff97
2 changed files with 32 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/file/main.ss
View File

@ -1,9 +1,10 @@
#lang scheme/base
(require tests/eli-tester
(prefix-in gzip: "gzip.ss"))
(prefix-in gzip: "gzip.ss")
(prefix-in md5: "md5.ss"))
(define (tests)
(test do (begin (gzip:tests))))
(test do (begin (gzip:tests) (md5:tests))))
(tests)

29
collects/tests/file/md5.ss Normal file
View File

@ -0,0 +1,29 @@
#lang scheme/base
(require file/md5 tests/eli-tester)
(define (run-tests)
(test
(md5 #"")
=> #"d41d8cd98f00b204e9800998ecf8427e"
(md5 "")
=> #"d41d8cd98f00b204e9800998ecf8427e"
(md5 (open-input-bytes #""))
=> #"d41d8cd98f00b204e9800998ecf8427e"
(md5 #"a")
=> #"0cc175b9c0f1b6a831c399e269772661"
(md5 #"abc")
=> #"900150983cd24fb0d6963f7d28e17f72"
(md5 #"message digest")
=> #"f96b697d7cb7938d525a2f31aaf161d0"
(md5 #"abcdefghijklmnopqrstuvwxyz")
=> #"c3fcd3d76192e4007dfb496cca67e13b"
(md5 #"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789")
=> #"d174ab98d277d9f5a5611c2c9f419d9f"
(md5 (let* ([bs #"1234567890"]) (bytes-append bs bs bs bs bs bs bs bs)))
=> #"57edf4a22be3c955ac49da2e2107b67a"
(md5 #"" #f)
=> #"\324\35\214\331\217\0\262\4\351\200\t\230\354\370B~"
))
(provide tests)
(define (tests) (test do (run-tests)))