diff --git a/collects/tests/racket/date.rktl b/collects/tests/racket/date.rktl
index 2e24303fa0..074d38f5a3 100644
--- a/collects/tests/racket/date.rktl
+++ b/collects/tests/racket/date.rktl
@@ -19,6 +19,32 @@
 (test-find 0 0 0 1 4 1975)
 (test-find 0 0 0 1 4 2005)
 
+; date->string
+(let ([d (seconds->date (find-seconds 1 2 3 4 5 2006))])
+  (define (test-string fmt time? result)
+    (test (parameterize ([date-display-format fmt])
+            (date->string d time?))
+          fmt result))
+  (test-string 'american #f "Thursday, May 4th, 2006")
+  (test-string 'american #t "Thursday, May 4th, 2006 3:02:01am")
+  (test-string 'chinese #f "2006/5/4 星期四")
+  (test-string 'chinese #t "2006/5/4 星期四 03:02:01")
+  (test-string 'german #f "4. Mai 2006")
+  (test-string 'german #t "4. Mai 2006, 03.02")
+  (test-string 'indian #f "4-5-2006")
+  (test-string 'indian #t "4-5-2006 3:02:01am")
+  (test-string 'irish #f "Thursday, 4th May 2006")
+  (test-string 'irish #t "Thursday, 4th May 2006, 3:02am")
+  (test-string 'iso-8601 #f "2006-05-04")
+  (test-string 'iso-8601 #t "2006-05-04 03:02:01")
+  (test-string 'rfc2822 #f "Thu, 4 May 2006")
+  (test-string 'rfc2822 #t "Thu, 4 May 2006 03:02:01 -0600")
+  (test-string 'julian #f "JD 2 453 860")
+  (test-string 'julian #t "JD 2 453 860, 03:02:01")
+  
+  (test 2453860 date->julian/scalinger d)
+  (test "JD 2 453 860" julian/scalinger->string 2453860))
+
 ;; Bad dates
 (err/rt-test (find-seconds 0 0 0 0 0 1990) exn:fail?)
 (err/rt-test (find-seconds 0 0 0 0 1 1990) exn:fail?)