cvs commit: modperl-2.0/t/modperl exit.t

[stas]

stas        2004/05/25 01:48:35

  Modified:    t/modperl exit.t
  Log:
  correct the test to match the recently added error code
  
  Revision  Changes    Path
  1.2       +4 -1      modperl-2.0/t/modperl/exit.t
  
  Index: exit.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/modperl/exit.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -u -r1.1 -r1.2
  --- exit.t    4 May 2004 06:16:46 -0000       1.1
  +++ exit.t    25 May 2004 08:48:35 -0000      1.2
  @@ -3,6 +3,8 @@
   use Apache::Test;
   use Apache::TestUtil;
   
  +use ModPerl::Const -compile => 'EXIT';
  +
   my $location = "/TestModperl__exit";
   
   plan tests => 3;
  @@ -14,8 +16,9 @@
   
   }
   {
  +    my $exit_excpt = ModPerl::EXIT;
       my $body = GET_BODY_ASSERT("$location?eval");
  -    ok t_cmp(qr/^ModPerl::Util::exit: exit was called/,
  +    ok t_cmp(qr/^ModPerl::Util::exit: ($exit_excpt) exit was called/,
                $body,
                "exit in eval context");