Re: testing a croak

You can use the Test::Exception module and test with either dies_ok(tests for death) or throws_ok (tests for death with a specific error message).

use Test::Exception => 1;

throws_ok { dying_sub() } qr/I always die/, "sub dies with correct err
+or message";
[download]

There are ten types of people: those that understand binary and those that don't.

Comment on Re: testing a croak Select or Download Code

Replies are listed 'Best First'.
Re^2: testing a croak by arcnon (Monk) on Jan 19, 2006 at 13:44 UTC
I tried test exception but it kills the script if I comment out this test All tests successful. Now with the test ... use_ok( 'Test::Exception' ); ... throws_ok { $objRef->parse_date_string() } qr/improper initialization +please see the docs/, 'checking 2 few args'; t/01-object....ok 1/23improper initialization please see the docs at t +/01-object.t line 56 # Looks like your test died just after 23. t/01-object....dubious + Test returned status 255 (wstat 65280, 0xff00) after all the subtests completed successfully Failed Test Stat Wstat Total Fail Failed List of Failed ------------------------------------------------------------ t/01-object.t 255 65280 23 0 0.00% ?? Failed 1/2 test scripts, 50.00% okay. 0/25 subtests failed, 100.00% ok +ay. make: *** [test_dynamic] Error 255 [download]	[reply] [d/l]
Re^3: testing a croak by tirwhan (Abbot) on Jan 19, 2006 at 14:38 UTC
If you load Test::Exception with `use_ok` you need to do so in a BEGIN block. `BEGIN { use_ok('Test::Exception'}; }` [download] will work. There are ten types of people: those that understand binary and those that don't.	[reply] [d/l] [select]
Re^4: testing a croak by Anonymous Monk on Jan 19, 2006 at 14:39 UTC
I am doing that	[reply]
Re^5: testing a croak by tirwhan (Abbot) on Jan 19, 2006 at 14:57 UTC
Re^6: testing a croak by arcnon (Monk) on Jan 19, 2006 at 16:35 UTC


laziness, impatience, and hubris
	PerlMonks