18 lines
700 B
Scheme
18 lines
700 B
Scheme
|
|
(load-relative "loadtest.ss")
|
|
|
|
(Section 'md5)
|
|
|
|
(require mzlib/md5)
|
|
|
|
(test #"d41d8cd98f00b204e9800998ecf8427e" md5 #"")
|
|
(test #"0cc175b9c0f1b6a831c399e269772661" md5 #"a")
|
|
(test #"900150983cd24fb0d6963f7d28e17f72" md5 #"abc")
|
|
(test #"f96b697d7cb7938d525a2f31aaf161d0" md5 #"message digest")
|
|
(test #"c3fcd3d76192e4007dfb496cca67e13b" md5 #"abcdefghijklmnopqrstuvwxyz")
|
|
(test #"d174ab98d277d9f5a5611c2c9f419d9f" md5 #"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789")
|
|
(test #"57edf4a22be3c955ac49da2e2107b67a" md5 #"12345678901234567890123456789012345678901234567890123456789012345678901234567890")
|
|
(test #"\324\35\214\331\217\0\262\4\351\200\t\230\354\370B~" md5 #"" #f)
|
|
|
|
(report-errs)
|