@@ -, +, @@ + Adds a gen_time() function to TestBuilder. --- t/lib/TestBuilder.pm | 6 ++++++ 1 file changed, 6 insertions(+) --- a/t/lib/TestBuilder.pm +++ a/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 --