From 0d552aecb3c42b7627856634c2476c94c76f0964 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 c44e889..8f58d85 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