[Rt-commit] rt branch, 4.2/date-pm-micro-optimizations, updated. rt-4.1.6-349-g083eb23

[Ruslan Zakirov]

The branch, 4.2/date-pm-micro-optimizations has been updated
       via  083eb235196489bd285c57f5cd234b329b188d3e (commit)
      from  cfca23acc14b2c4cc5d644506d1dbe42bc3d4435 (commit)

Summary of changes:
 t/api/date.t | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 083eb235196489bd285c57f5cd234b329b188d3e
Author: Ruslan Zakirov <ruz at bestpractical.com>
Date:   Wed Mar 13 17:41:51 2013 +0400

    catch expected warnings in test

diff --git a/t/api/date.t b/t/api/date.t
index 54ff5eb..bce61bf 100644
--- a/t/api/date.t
+++ b/t/api/date.t
@@ -294,10 +294,14 @@ my $year = (localtime(time))[5] + 1900;
     $date->Set(Format => 'ISO', Value => '112815:10:00');
     is($date->ISO, $year .'-11-28 15:10:00', "DDMMhh:mm:ss");
 
-    $date->Set(Format => 'ISO', Value => '2005-13-28 15:10:00');
+    warning_like {
+        $date->Set(Format => 'ISO', Value => '2005-13-28 15:10:00');
+    } qr/Invalid date/;
     is($date->Unix, 0, "wrong month value");
 
-    $date->Set(Format => 'ISO', Value => '2005-00-28 15:10:00');
+    warning_like {
+        $date->Set(Format => 'ISO', Value => '2005-00-28 15:10:00');
+    } qr/Invalid date/;
     is($date->Unix, 0, "wrong month value");
 
     $date->Set(Format => 'ISO', Value => '1960-01-28 15:10:00');

-----------------------------------------------------------------------