From 7d500f6253cbaeff87c3f351dbcc42acea0f6bff Mon Sep 17 00:00:00 2001 From: David Bourgault Date: Wed, 21 Mar 2018 13:57:22 -0400 Subject: [PATCH] Bug 17015 - Add gen_time to TestBuilder + Adds a gen_time() function to TestBuilder. TestBuilder now passes green. --- t/lib/TestBuilder.pm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/t/lib/TestBuilder.pm b/t/lib/TestBuilder.pm index 1aa6de9..2bb56c4 100644 --- a/t/lib/TestBuilder.pm +++ b/t/lib/TestBuilder.pm @@ -367,6 +367,7 @@ sub _gen_type { decimal => \&_gen_real, double_precision => \&_gen_real, + time => \&_gen_time, timestamp => \&_gen_datetime, datetime => \&_gen_datetime, date => \&_gen_date, @@ -430,6 +431,11 @@ sub _gen_datetime { return $self->schema->storage->datetime_parser->format_datetime(DateTime->now()); } +sub _gen_time { + my ($self, $params) = @_; + return $self->schema->storage->datetime_parser->format_time(DateTime->now()); +} + sub _gen_text { my ($self, $params) = @_; # From perldoc String::Random -- 2.7.4