diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/gen_test.ml | 2 | ||||
| -rw-r--r-- | tests/gen_test.mli | 2 | ||||
| -rw-r--r-- | tests/test.ml | 2 | ||||
| -rw-r--r-- | tests/test_fcalendar.ml | 2 | ||||
| -rw-r--r-- | tests/test_fpcalendar.ml | 2 | ||||
| -rw-r--r-- | tests/test_ftime.ml | 2 | ||||
| -rw-r--r-- | tests/test_pcalendar.ml | 2 | ||||
| -rw-r--r-- | tests/test_printer.ml | 8 | ||||
| -rw-r--r-- | tests/test_time.ml | 2 | ||||
| -rw-r--r-- | tests/test_timezone.ml | 2 |
10 files changed, 15 insertions, 11 deletions
diff --git a/tests/gen_test.ml b/tests/gen_test.ml index 844582b..4c466e8 100644 --- a/tests/gen_test.ml +++ b/tests/gen_test.ml @@ -20,7 +20,7 @@ (* LICENSE. *) (**************************************************************************) -(*i $Id: gen_test.ml 249 2012-06-27 08:11:14Z signoles $ i*) +(*i $Id: gen_test.ml 259 2014-10-29 10:00:46Z signoles $ i*) let ok_ref = ref 0 let ok () = incr ok_ref diff --git a/tests/gen_test.mli b/tests/gen_test.mli index 1b81968..64b1c6f 100644 --- a/tests/gen_test.mli +++ b/tests/gen_test.mli @@ -20,7 +20,7 @@ (* LICENSE. *) (**************************************************************************) -(*i $Id: gen_test.mli 249 2012-06-27 08:11:14Z signoles $ i*) +(*i $Id: gen_test.mli 259 2014-10-29 10:00:46Z signoles $ i*) (* Generic functions used in the tests. *) diff --git a/tests/test.ml b/tests/test.ml index 538e572..0af8f95 100644 --- a/tests/test.ml +++ b/tests/test.ml @@ -20,7 +20,7 @@ (* LICENSE. *) (**************************************************************************) -(*i $Id: test.ml 249 2012-06-27 08:11:14Z signoles $ i*) +(*i $Id: test.ml 259 2014-10-29 10:00:46Z signoles $ i*) (* Display the results *) diff --git a/tests/test_fcalendar.ml b/tests/test_fcalendar.ml index bf6a6a3..b6f4afc 100644 --- a/tests/test_fcalendar.ml +++ b/tests/test_fcalendar.ml @@ -20,7 +20,7 @@ (* LICENSE. *) (**************************************************************************) -(*i $Id: test_fcalendar.ml 249 2012-06-27 08:11:14Z signoles $ i*) +(*i $Id: test_fcalendar.ml 259 2014-10-29 10:00:46Z signoles $ i*) Printf.printf "Tests of Fcalendar:\n";; diff --git a/tests/test_fpcalendar.ml b/tests/test_fpcalendar.ml index e8b2643..e1299e1 100644 --- a/tests/test_fpcalendar.ml +++ b/tests/test_fpcalendar.ml @@ -20,7 +20,7 @@ (* LICENSE. *) (**************************************************************************) -(*i $Id: test_fpcalendar.ml 249 2012-06-27 08:11:14Z signoles $ i*) +(*i $Id: test_fpcalendar.ml 259 2014-10-29 10:00:46Z signoles $ i*) Printf.printf "Tests of FPcalendar:\n";; diff --git a/tests/test_ftime.ml b/tests/test_ftime.ml index 60cadda..9e6d4ae 100644 --- a/tests/test_ftime.ml +++ b/tests/test_ftime.ml @@ -20,7 +20,7 @@ (* LICENSE. *) (**************************************************************************) -(*i $Id: test_ftime.ml 249 2012-06-27 08:11:14Z signoles $ i*) +(*i $Id: test_ftime.ml 259 2014-10-29 10:00:46Z signoles $ i*) Printf.printf "Tests of Ftime:\n";; diff --git a/tests/test_pcalendar.ml b/tests/test_pcalendar.ml index 5606756..304bf92 100644 --- a/tests/test_pcalendar.ml +++ b/tests/test_pcalendar.ml @@ -20,7 +20,7 @@ (* LICENSE. *) (**************************************************************************) -(*i $Id: test_pcalendar.ml 249 2012-06-27 08:11:14Z signoles $ i*) +(*i $Id: test_pcalendar.ml 259 2014-10-29 10:00:46Z signoles $ i*) Printf.printf "Tests of Precise Calendar:\n";; diff --git a/tests/test_printer.ml b/tests/test_printer.ml index e6d1b47..fd4768f 100644 --- a/tests/test_printer.ml +++ b/tests/test_printer.ml @@ -20,8 +20,6 @@ (* LICENSE. *) (**************************************************************************) -(*i $Id: test_printer.ml 249 2012-06-27 08:11:14Z signoles $ i*) - Printf.printf "Tests of Printer:\n";; open CalendarLib;; @@ -115,6 +113,12 @@ test test (sprint "%s" (Calendar.make 1971 1 1 0 0 0) = "31536000") "sprint %s";; +test (Utils.Float.equal + (Ftime.second + (Printer.Ftime.from_fstring + "%Y-%m-%dT%H:%M:%S%:z" "2014-03-19T15:51:25.05-07:00")) + 25.05) + "from_string with floating seconds";; let ok = nb_ok ();; let bug = nb_bug ();; diff --git a/tests/test_time.ml b/tests/test_time.ml index b5bbe3e..ba2fd37 100644 --- a/tests/test_time.ml +++ b/tests/test_time.ml @@ -20,7 +20,7 @@ (* LICENSE. *) (**************************************************************************) -(*i $Id: test_time.ml 249 2012-06-27 08:11:14Z signoles $ i*) +(*i $Id: test_time.ml 259 2014-10-29 10:00:46Z signoles $ i*) Printf.printf "Tests of Time:\n";; diff --git a/tests/test_timezone.ml b/tests/test_timezone.ml index 8cfc2af..940a460 100644 --- a/tests/test_timezone.ml +++ b/tests/test_timezone.ml @@ -20,7 +20,7 @@ (* LICENSE. *) (**************************************************************************) -(*i $Id: test_timezone.ml 249 2012-06-27 08:11:14Z signoles $ i*) +(*i $Id: test_timezone.ml 259 2014-10-29 10:00:46Z signoles $ i*) Printf.printf "Tests of Time_Zone:\n";; |