Another coat of paint but still nowhere finished.

[p5sagit/p5-mst-13.2.git] / t / lib / time-piece.t

diff --git a/t/lib/time-piece.t b/t/lib/time-piece.t
index fcb64e6..bf41a7d 100644 (file)
--- 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";
+