From bf2992ff976384d8b7c79649f13f916882aa4d3a Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 20 Dec 2009 09:57:26 +0000
Subject: [PATCH] md5 tests in the file tests

svn: r17367
---
 collects/tests/file/main.ss |  5 +++--
 collects/tests/file/md5.ss  | 29 +++++++++++++++++++++++++++++
 2 files changed, 32 insertions(+), 2 deletions(-)
 create mode 100644 collects/tests/file/md5.ss

diff --git a/collects/tests/file/main.ss b/collects/tests/file/main.ss
index 37d31538d6..e924e1042f 100644
--- a/collects/tests/file/main.ss
+++ b/collects/tests/file/main.ss
@@ -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)
diff --git a/collects/tests/file/md5.ss b/collects/tests/file/md5.ss
new file mode 100644
index 0000000000..76686d6b77
--- /dev/null
+++ b/collects/tests/file/md5.ss
@@ -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)))