Re: Test::Exception and XS code

Sébastien Aperghis-Tramoni wrote:

> While rewriting Net::Pcap test suite, I quickly stumbled upon this 
> problem: it looks like Test::Exception can't catch croak() or die() 
> thrown from XS code.
> [...]

Ok, I corrected a mistake (I was using dies_ok() instead of 
throws_ok()), and reduced the problem to this test case:

     use strict;
     use Test::More tests => 2;
     use Test::Exception;
     use Net::Pcap;

     throws_ok(
         sub { Net::Pcap::lookupdev() },
         '/^Usage: Net::Pcap::lookupdev\(err\)/',
         "calling lookupdev() with no argument"
     );

     throws_ok
         { Net::Pcap::lookupdev() }
         '/^Usage: Net::Pcap::lookupdev\(err\)/',
         "calling lookupdev() with no argument"
     ;

Executing this script works as expected:

     $ perl -W exception.pl
     1..1
     ok 1 - calling lookupdev() with no argument
     ok 2 - calling lookupdev() with no argument
     # Looks like you planned 1 test but ran 1 extra.

Now, if I move the "use Test::Exception" inside an eval-string and 
execute the new script:

     $ perl -W exception.pl
     1..2
     ok 1 - calling lookupdev() with no argument
     Usage: Net::Pcap::lookupdev(err) at exception.pl line 13.
     # Looks like you planned 2 tests but only ran 1.
     # Looks like your test died just after 1.

Aha! The first test, which uses the normal form of throws_ok() passes, 
but the second one, which uses the grep-like form, fails.


Sébastien Aperghis-Tramoni
  -- - --- -- - -- - --- -- - --- -- - --[ http://maddingue.org ]
Close the world, txEn eht nepO

• Test::Exception and XS code by Sébastien Aperghis-Tramoni
• Re: Test::Exception and XS code by Sébastien Aperghis-Tramoni
• Re: Test::Exception and XS code by Yitzchak Scott-Thoennes
• Sébastien by Adrian Howard
• Re: Test::Exception and XS code by Sébastien Aperghis-Tramoni
• Re: Test::Exception and XS code by Bjoern Hoehrmann