add test case for previous commit

2015-01-21 08:39:27 -06:00 · 2015-01-21 08:39:27 -06:00 · 7003ca6eb3
commit 7003ca6eb3
parent f2bacdc6f3
1 changed files with 9 additions and 0 deletions
--- a/pkgs/racket-test/tests/racket/date.rkt
+++ b/pkgs/racket-test/tests/racket/date.rkt
@ -0,0 +1,9 @@
+#lang racket/base
+(require racket/date rackunit)
+;; test that German hours & minutes are separated with a colon, not a period
+(check-equal? (parameterize ([date-display-format 'german])
+                (date->string
+                 (seconds->date
+                  (find-seconds 30 45 2 1 1 1970))
+                 #t))
+              "1. Januar 1970, 02:45")