t/ add test where epoch is defined and we call ->strptime

t/09-strptime.t

@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More;
 
-plan tests => 3;
+plan tests => 4;
 
 use Time::C;
 
@@ -21,4 +21,8 @@ my $t3 = Time::C->strptime("09", "%S")->strptime("04", "%m")->strptime("15", "%H
 
 is ($t3, "2016-04-30T15:48:09Z", "correct time even if everything is scrambled");
 
+my $t4 = Time::C->now_utc(); $t4->strptime("2016-04-30", "%Y-%m-%d")->strptime("15:48:09", "%H:%M:%S");
+
+is ($t4, "2016-04-30T15:48:09Z", "correct time even after calling strptime on an object");
+
 #done_testing;