@@ -, +, @@ --------- -- dies before finishing tests -- says 'getalert' -- fails on one test, but keeps going. --- t/db_dependent/Letters.t | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) --- a/t/db_dependent/Letters.t +++ a/t/db_dependent/Letters.t @@ -212,8 +212,11 @@ isnt( $alert_id, undef, 'addalert does not return undef' ); # getalert -my $alerts = C4::Letters::getalert(); -is( @$alerts, 1, 'addalert should not fail without parameter' ); +my $alerts; +eval { + $alerts = C4::Letters::getalert(); + is( @$alerts, 1, 'getalert should not fail without parameter' ); +} || fail('getalert failed horribly without a parameter'); $alerts = C4::Letters::getalert($borrowernumber); is( @$alerts, 1, 'addalert adds an alert' ); is( $alerts->[0]->{alertid}, $alert_id, 'addalert returns the alert id correctly' ); --