X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Ftime-piece.t;h=bf41a7ddd3271819369464372aa4eb2e668d95ff;hb=e8be01ad7283c324fe9db770872318e7652de479;hp=fcb64e627bc6a1c50df6477735a81af0f045984a;hpb=f63e93b707c77752519c464662263d14dee84031;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/lib/time-piece.t b/t/lib/time-piece.t
index fcb64e6..bf41a7d 100644
--- a/t/lib/time-piece.t
+++ b/t/lib/time-piece.t
@@ -12,7 +12,7 @@ BEGIN {
     }
 }
 
-print "1..85\n";
+print "1..86\n";
 
 use Time::Piece;
 
@@ -314,3 +314,8 @@ print "ok 84\n";
 print "not " unless Time::Piece::_is_leap_year(1904);
 print "ok 85\n";
 
+my %T = $t->strptime("%T", "12:34:56");
+
+print "not " unless keys %T == 3 && $T{H} == 12 && $T{M} == 34 && $T{S} == 56;
+print "ok 86\n";
+