--- Ovid <[EMAIL PROTECTED]> wrote: > Per this message from Schwern > (http://www.mail-archive.com/perl-qa@perl.org/msg03122.html) on how > to > trigger custom behavior for individual tests: > > For individual failures, put a wrapper around > Test::Builder->ok(). Use Hook::LexWrap, Sub::Uplevel > or Aspects to preserve the call stack. > > Well, OK. So I tried it: > > use Test::More qw/no_plan/; > use Test::Builder; > use Hook::LexWrap; > use Data::Dumper; > > wrap Test::Builder::ok > pre => sub { die Dumper [EMAIL PROTECTED] }; > > ok 1, 'should be good'; > is 2, 3, 'is 2 3 should be bad'; > is 'foo', 'foo', 'and this should be good'; > > I must be missing something because that didn't die. It quite > happily > ran the tests. Can someone please tell me what I am missing? > > Cheers, > Ovid > > ===== > If this message is a response to a question on a mailing list, please > send > follow up questions to the list. > > Web Programming with Perl -- > http://users.easystreet.com/ovid/cgi_course/ >
===== If this message is a response to a question on a mailing list, please send follow up questions to the list. Web Programming with Perl -- http://users.easystreet.com/ovid/cgi_course/
