Perl Carp: test test

Question

Я пытаюсь написать тест модуля perl. Я могу проверить сценарий счастливого случая. Однако, если в методе есть ошибка, она выводит ошибку с использованием Carp:confess "<message>". Я не могу уловить этот случай в своем тесте. Я попытался с помощью

dies_ok(<method call>, 'Expected Error');

Однако тест до сих пор не удается. Он печатает сообщение передается Карп :: сознаться, а затем печатает

Looks like your test exited with 111 before it could output anything. Dubious, test returned 111 (wstat 28416, 0x6f00)

Есть ли способ, что я могу поймать это? Я даже попробовал throws_ok, но не работал.

Помогите, руководствуясь тем, как я должен ловить эти ошибки. Я использую эти dies_ok и throws_ok неправильно?

Answer 1

Вы можете просто проверить выражение $ @ после выражения eval.

use strict; 
use warnings; 

use Test::More; 

use Carp qw(confess); 

sub err { confess('Bad thing'); } 

eval { err }; 
like($@, qr/^Bad thing/, "confess('Bad thing')"); 

done_testing();