do tests for f2bacdc6f properly

This commit is contained in:
Robby Findler 2015-01-21 10:04:50 -06:00
parent 7003ca6eb3
commit cb68141ff6
2 changed files with 1 additions and 10 deletions

View File

@ -59,7 +59,7 @@
(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 '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")

View File

@ -1,9 +0,0 @@
#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")