鈍足ランナーのIT日記

走るのが好きな5流のITエンジニアのブログ。

趣味の範囲は広いけど、どれも中途半端なクソブロガー楽しめるWebアプリを作ってあっと言わせたい。サーバーサイドPerl(Mojolicious)、クライアントサイドVue.js。Arduinoにも触手を伸ばす予定。

dieやcroakをテストしたいんですが 255 exitして先に進まない

以下のような感じでdieやcroakをテストしたいんですが、
croakのところはテストが通るんですが、exitして、その先進まない感じ。

use strict;
use warnings;

use Test::Exception;
use Carp;

use Test::More tests => 2;

throw_ok { croak ("croak") }     qr/croak/, 'croak failed';
throw_ok { die ("die") }     qr/die/, 'die failed';
$ prove -Ilib ./t/craok.t -v
./t/craok.t ..
1..2
croak at ./t/craok.t line 9.
# Looks like your test exited with 255 before it could output anything.
Dubious, test returned 255 (wstat 65280, 0xff00)
Failed 2/2 subtests

Test Summary Report
-------------------
./t/craok.t (Wstat: 65280 Tests: 0 Failed: 0)
  Non-zero exit status: 255
  Parse errors: Bad plan.  You planned 2 tests but ran 0.
Files=1, Tests=0,  0 wallclock secs ( 0.06 usr  0.00 sys +  0.06 cusr  0.01 csys =  0.14 CPU)
Result: FAIL

と思いきや、
throw_okをthrows_okに変えたらうまくいった!!!!
すみません。凡ミスでした。