From 13d0a1e17cc752f3d10a33ce4ec1f9c72151a81a Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Wed, 11 May 2016 14:49:07 +0200 Subject: [PATCH] Bug 16500: Catch two warns in TestBuilder.t with warning_like Content-Type: text/plain; charset=utf-8 When testing a wrong case in TestBuilder.t, two warns show up. We can catch them with warning_like. Test plan: Run t/db_dependent/TestBuilder.t --- t/db_dependent/TestBuilder.t | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/TestBuilder.t b/t/db_dependent/TestBuilder.t index 0baec38..724f32d 100644 --- a/t/db_dependent/TestBuilder.t +++ b/t/db_dependent/TestBuilder.t @@ -54,7 +54,9 @@ subtest 'Start with some trivial tests' => sub { # return undef if a record exists my $param = { source => 'Branch', value => { branchcode => 'MPL' } }; $builder->build( $param ); # at least it should exist now - is( $builder->build( $param ), undef, 'Return undef when exists' ); + warning_like { $builder->build( $param ) } + qr/Violation of unique constraint/, + 'Catch warn on adding existing record'; }; @@ -229,7 +231,9 @@ subtest 'Test build with NULL values' => sub { # PK should not be null my $params = { source => 'Branch', value => { branchcode => undef }}; - is( $builder->build( $params ), undef, 'PK should not be null' ); + warning_like { $builder->build( $params ) } + qr/Null value for branchcode/, + 'Catch warn on adding branch with a null branchcode'; # Nullable column my $info = $schema->source( 'Item' )->column_info( 'barcode' ); $params = { source => 'Item', value => { barcode => undef }}; -- 1.7.10.4