From 0d552aecb3c42b7627856634c2476c94c76f0964 Mon Sep 17 00:00:00 2001
From: David Bourgault <dav.bour@gmail.com>
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