diff options
Diffstat (limited to 'tests/datetime.scm')
-rw-r--r-- | tests/datetime.scm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/datetime.scm b/tests/datetime.scm index d1ebd238..eb9c02b6 100644 --- a/tests/datetime.scm +++ b/tests/datetime.scm @@ -14,6 +14,7 @@ datetime- leap-year? string->date string->time string->datetime + parse-month ) ((ice-9 format) format) ((hnh util) let*) @@ -226,3 +227,15 @@ (test-equal "Parse date single digit day, trailing comma + space" (date day: 6) (string->date "6, " "~d, ")) + + +(define en_US (make-locale LC_TIME "en_US.UTF-8")) +(define sv_SE (make-locale LC_TIME "sv_SE.UTF-8")) + +(test-equal 1 (parse-month "jan" en_US)) +(test-equal 1 (parse-month "jan" sv_SE)) + +(test-equal 12 (parse-month "dec" en_US)) +(test-equal -1 (parse-month "inv" en_US)) + +(test-equal 5 (parse-month "mAJ" sv_SE)) |