|
Lines 19-25
Link Here
|
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 13; |
22 |
use utf8; |
|
|
23 |
|
| 24 |
use Test::More tests => 14; |
| 23 |
use Test::Warn; |
25 |
use Test::Warn; |
| 24 |
use File::Basename qw(dirname); |
26 |
use File::Basename qw(dirname); |
| 25 |
|
27 |
|
|
Lines 461-463
subtest '->build parameter' => sub {
Link Here
|
| 461 |
}; |
463 |
}; |
| 462 |
|
464 |
|
| 463 |
$schema->storage->txn_rollback; |
465 |
$schema->storage->txn_rollback; |
| 464 |
- |
466 |
|
|
|
467 |
subtest 'build_sample_biblio() tests' => sub { |
| 468 |
|
| 469 |
plan tests => 1; |
| 470 |
|
| 471 |
$schema->storage->txn_begin; |
| 472 |
|
| 473 |
warnings_are |
| 474 |
{ $builder->build_sample_biblio({ title => 'hell❤️' }); } |
| 475 |
[], |
| 476 |
"No encoding warnings!"; |
| 477 |
|
| 478 |
$schema->storage->txn_rollback; |
| 479 |
}; |