in reply to 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.

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]

      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]
        I am doing that
[reply]

In Section Seekers of Perl Wisdom