Re: Re: [Mason-checkins] CVS: mason/dist/t 13-errors.t,1.28,1.29

Let me take a look...

----- Original Message -----
From: "John Williams" <[email protected]>
To: <[email protected]>
Sent: Friday, December 17, 2004 1:10 PM
Subject: [Mason-devel] Re: [Mason-checkins] CVS: mason/dist/t
13-errors.t,1.28,1.29


> The test just commited (below) is a problem which has been showing up in
> the live apache tests for me, but it is now isolated in a non-live test.
>
> A compilation error with error_mode=>'output' does not stop the processing
> soon enough, and we end up with an error like "cannot call method on
> undefined value" being output instead of the real error.
>
> Here is one way to fix it:
>
> Index: lib/HTML/Mason/Request.pm
> ===================================================================
> RCS file: /cvsroot/mason/mason/dist/lib/HTML/Mason/Request.pm,v
> retrieving revision 1.333
> diff -u -r1.333 Request.pm
> --- lib/HTML/Mason/Request.pm 18 Oct 2004 06:09:23 -0000 1.333
> +++ lib/HTML/Mason/Request.pm 30 Oct 2004 05:37:02 -0000
> @@ -506,6 +506,7 @@
>   rethrow_exception $err;
>      } else {
>   UNIVERSAL::isa( $self->out_method, 'CODE' ) ?
$self->out_method->("$err") : ( ${ $self->out_method } = "$err" );
> + $self->abort if UNIVERSAL::isa( $err,
'HTML::Mason::Exception::Compilation' );
>      }
>  }
>
>
> The downside of that is that Mason::Tests doesn't currently handle an
> "abort with success" result.  To get around that I have added an
> "abort_ok => 1" attribute to the test, and the patch below.
>
>
> Index: lib/HTML/Mason/Tests.pm
> ===================================================================
> RCS file: /cvsroot/mason/mason/dist/lib/HTML/Mason/Tests.pm,v
> retrieving revision 1.60
> diff -u -r1.60 Tests.pm
> --- lib/HTML/Mason/Tests.pm 12 Oct 2004 18:20:38 -0000 1.60
> +++ lib/HTML/Mason/Tests.pm 30 Oct 2004 05:37:14 -0000
> @@ -535,6 +535,10 @@
>          if exists $self->{current_test}{todo};
>      $Test->todo if exists $self->{current_test}{todo};
>
> +    if ($test->{abort_ok} &&
UNIVERSAL::isa($error,'HTML::Mason::Exception::Abort')) {
> + undef $error;
> +    }
> +
>      if ($error)
>      {
>   if ( $test->{expect_error} )
>
>
> I just wonder if the other developers have any thoughts on whether this is
> the best way to fix the problem, or the best way to handle the abort in
> Mason::Test?
>
> ~ John Williams
>
>
>
> On Fri, 17 Dec 2004, John Williams wrote:
>
> > Update of /cvsroot/mason/mason/dist/t
> > In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1611/t
> >
> > Modified Files:
> > 13-errors.t
> > Log Message:
> > TODO test:
> > compilation errors are not thrown properly with error_mode=>'output'
> >
> >
> > Index: 13-errors.t
> > ===================================================================
> > RCS file: /cvsroot/mason/mason/dist/t/13-errors.t,v
> > retrieving revision 1.28
> > retrieving revision 1.29
> > diff -u -r1.28 -r1.29
> > --- 13-errors.t 12 Oct 2004 18:20:39 -0000 1.28
> > +++ 13-errors.t 17 Dec 2004 20:40:28 -0000 1.29
> > @@ -335,6 +335,23 @@
> >
> >  #------------------------------------------------------------
> >
> > +    $group->add_test( name => 'error_during_compilation',
> > +       description => "Make sure compiler errors work in output mode",
> > +                      interp_params => {
> > + error_format => 'text',
> > + error_mode => 'output',
> > +                                       },
> > +       component => <<'EOF',
> > +% my $x =
> > +EOF
> > + # match "Error during compilation" followed by
> > + # exactly one occurance of "Stack:"
> > + # (Mason should stop after the first error)
> > +       expect => qr/Error during
compilation((?!Stack:).)*Stack:((?!Stack:).)*$/s,
> > +     );
> > +
> > +#------------------------------------------------------------
> > +
> >      return $group;
> >  }
> >
>
>
>
>
> -------------------------------------------------------
> SF email is sponsored by - The IT Product Guide
> Read honest & candid reviews on hundreds of IT Products from real users.
> Discover which products truly live up to the hype. Start reading now.
> http://productguide.itmanagersjournal.com/
> _______________________________________________
> Mason-devel mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/mason-devel
>



-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now. 
http://productguide.itmanagersjournal.com/