stas 2004/06/24 10:35:00
Modified: t/filter/TestFilter out_str_eval.pm
Log:
make the test fail again (a recent change in t_cmp implementation hid the
problem, now implement the trigger to invoke filters explicitly)
Revision Changes Path
1.2 +3 -0 modperl-2.0/t/filter/TestFilter/out_str_eval.pm
Index: out_str_eval.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/out_str_eval.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -u -r1.1 -r1.2
--- out_str_eval.pm 5 Jun 2004 05:05:21 -0000 1.1
+++ out_str_eval.pm 24 Jun 2004 17:35:00 -0000 1.2
@@ -29,6 +29,9 @@
# XXX: see if we can fix filter handlers to restore the original
# $@ when the callback completes
eval { i_do_not_exist_really_i_do_not() };
+ # trigger the filter invocation, before using $@
+ $r->print("# whatever");
+ $r->rflush;
ok t_cmp(qr/Undefined subroutine/, $@, "some croak");
return Apache::OK;
