[prev in list] [next in list] [prev in thread] [next in thread] 

List:       apache-modperl-cvs
Subject:    cvs commit: modperl-2.0/t/modperl exit.t
From:       stas () apache ! org
Date:       2004-05-25 8:48:35
Message-ID: 20040525084835.38274.qmail () minotaur ! apache ! org
[Download RAW message or body]

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");
   
  
  
  
[prev in list] [next in list] [prev in thread] [next in thread]