Dieing on failure and preserving line numbers

[Ovid]

Looks like I have it now.  I removed Hook::LexWrap, handled the
$Test::Builder::Level myself and did some curious work to preserve the
exact return value behavior of Test::Builder::diag.

Remove Hook::LexWrap and change the 'if fail' test in the import method
to the following:


  if ('fail' eq $_[$i]) {
      splice @_, $i, 1;
      my $ok = \&Test::Builder::ok;
      no warnings 'redefine';
      *Test::Builder::ok = sub {
          local $Test::Builder::Level = $Test::Builder::Level + 1;
          $_[0]->{XXX_test_failed} = 0;
          my $result = $ok->(@_);
          $_[0]->{XXX_test_failed} = ![ $_[0]->summary ]->[-1];
          return $result;
      };    
      my $diag = \&Test::Builder::diag;
      *Test::Builder::diag = sub {
          local $Test::Builder::Level = $Test::Builder::Level + 1;
          my @result = $diag->(@_);
          if ( $_[0]->{XXX_test_failed} ) {
              $_[0]->{XXX_test_failed} = 0;
              die "Test failed.  Halting.\n";
          }     

          # this strange beast is to capture the exact behavior of
          # Test::Builder::diag
          return @result ? 0 : ();
        };
      last;
  }

Cheers,
Ovid

--
Buy the book  - http://www.oreilly.com/catalog/perlhks/
Perl and CGI  - http://users.easystreet.com/ovid/cgi_course/
Personal blog - http://publius-ovidius.livejournal.com/
Tech blog     - http://use.perl.org/~Ovid/journal/