Steve Hay wrote:
Stas Bekman wrote:
Steve Hay wrote:
modperl/exit test 2 fails in the current CVS w/ 2.0.49 + 5.8.4 on
Win32. Here's the output using -verbose:
# Failed test 2 in t/modperl/exit.t at line 18
# testing : exit in eval context
# expected: (?-xism:^ModPerl::Util::exit: exit was called)
# received: ModPerl::Util::exit: (120000) exit was called at
C:\Temp\modperl-2.0\t\response/TestModperl/exit.pm line 25
not ok 2
Where does that "(120000)" come from? Should the test just optionally
allow for it, or is it wrong?
12000 is the value of ModPerl::EXIT exception constant. See:
http://perl.apache.org/docs/2.0/api/ModPerl/Util.html#C_exit_
Bizarrely, the same test runs fine in 1.99_14 (using the same Apache +
Perl).
Sorry, I've added the error code to error messages in exceptions, w/o testing.
Should be fixed now.
OK, that explains it. There's still a slip in the test, though. Fixed
by this:
--- t/modperl/exit.t.orig 2004-05-25 09:48:35.000000000 +0100
+++ t/modperl/exit.t 2004-05-25 11:04:16.101965000 +0100
@@ -18,7 +18,7 @@
{
my $exit_excpt = ModPerl::EXIT;
my $body = GET_BODY_ASSERT("$location?eval");
- ok t_cmp(qr/^ModPerl::Util::exit: ($exit_excpt) exit was called/,
+ ok t_cmp(qr/^ModPerl::Util::exit: \($exit_excpt\) exit was called/,
$body,
"exit in eval context");
Yup, yup, now I was able to rebuild and test :) Thanks Steve!
--
__________________________________________________________________
Stas Bekman JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide ---> http://perl.apache.org
mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org http://ticketmaster.com
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
