1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
(*i $Id: test_printer.ml,v 1.8 2008/02/12 08:58:32 signoles Exp $ i*)
Printf.printf "Tests of Printer:\n";;
open CalendarLib;;
include Gen_test;;
reset ();;
open Printer.Date;;
let d = Date.make 2003 1 6;;
test (sprint "%D" d = "01/06/03") "sprint %D";;
test (sprint "the date is %B, the %-dth" d = "the date is January, the 6th")
"sprint (long sentence)";;
test (from_string "2003-01-06" = Date.make 2003 1 6) "from_string";;
test (from_fstring "%y-%m-%d" "03-01-06" = Date.make 1903 1 6) "from_fstring";;
test
(from_fstring "%Y%t%m%t%d" "1903\t01\t06" = Date.make 1903 1 6)
"from_fstring %t";;
test
(from_fstring "%Y-%B-%d" "2007-May-14" = Date.make 2007 5 14)
"from_fstring %B";;
test
(from_fstring "%Y-%b-%d" "2007-Jan-14" = Date.make 2007 1 14)
"from_fstring %B";;
open Printer.Time;;
test (to_string (Time.make 12 1 4) = "12:01:04") "to_string (on TimePrinter)";;
test (sprint "%I" (Time.make 36 4 3) = "12") "sprint %I (on TimePrinter)";;
test (sprint "%r" (Time.make 24 4 3) = "12:04:03 AM")
"sprint %r (on TimePrinter)";;
test (from_fstring "%r" "10:47:25 AM" = Time.make 10 47 25)
"from_fstring AM (on TimePrinter)";;
test (from_fstring "%r" "10:47:25 PM" = Time.make 22 47 25)
"from_fstring PM (on TimePrinter)";;
test_exn (lazy (from_fstring "%p %I:%M:%S" "TM 5:26:17"))
"from_fstring error on %p (on TimePrinter)";;
open Printer.Calendar;;
test (sprint "%c" (Calendar.make 2003 1 6 12 1 4) = "Mon Jan 06 12:01:04 2003")
"sprint %c";;
test (to_string (Calendar.make 2004 10 25 24 0 1) = "2004-10-26 00:00:01")
"to_string (on CalendarPrinter)";;
test
(from_fstring "%c" "Mon May 14 10:30:00 2007"
= Calendar.make 2007 5 14 10 30 0)
"from_fstring (on CalendarPrinter)";;
let ok = nb_ok ();;
let bug = nb_bug ();;
Printf.printf "tests ok : %d; tests ko : %d\n" ok bug;;
flush stdout;;
|
