|
Lines 19-25
Link Here
|
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 9; |
22 |
use Test::More tests => 10; |
| 23 |
use Test::Warn; |
23 |
use Test::Warn; |
| 24 |
use Data::Dumper qw(Dumper); |
24 |
use Data::Dumper qw(Dumper); |
| 25 |
|
25 |
|
|
Lines 321-326
subtest 'Auto-increment values tests' => sub {
Link Here
|
| 321 |
'Build should not overwrite an auto_incr column'; |
321 |
'Build should not overwrite an auto_incr column'; |
| 322 |
}; |
322 |
}; |
| 323 |
|
323 |
|
|
|
324 |
subtest 'Date handling' => sub { |
| 325 |
plan tests => 2; |
| 326 |
|
| 327 |
$builder = t::lib::TestBuilder->new; |
| 328 |
|
| 329 |
my $patron = $builder->build( { source => 'Borrower' } ); |
| 330 |
is( length( $patron->{updated_on} ), 19, 'A timestamp column value should be YYYY-MM-DD HH:MM:SS' ); |
| 331 |
is( length( $patron->{dateofbirth} ), 10, 'A date column value should be YYYY-MM-DD' ); |
| 332 |
|
| 333 |
}; |
| 334 |
|
| 324 |
$schema->storage->txn_rollback; |
335 |
$schema->storage->txn_rollback; |
| 325 |
|
336 |
|
| 326 |
1; |
337 |
1; |