stas        2003/04/01 19:01:27

  Modified:    t/filter in_bbs_msg.t in_str_msg.t
  Log:
  make sure to die if the server hasn't returned anything, rather than have
  the tests skipped
  
  Revision  Changes    Path
  1.2       +10 -2     modperl-2.0/t/filter/in_bbs_msg.t
  
  Index: in_bbs_msg.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/in_bbs_msg.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- in_bbs_msg.t      15 Jan 2003 06:47:15 -0000      1.1
  +++ in_bbs_msg.t      2 Apr 2003 03:01:27 -0000       1.2
  @@ -1,7 +1,8 @@
  -use Apache::TestRequest;
   use Apache::Test ();
   use Apache::TestUtil;
   
  +use Apache::TestRequest 'GET';
  +
   my $module = 'TestFilter::in_bbs_msg';
   
   Apache::TestRequest::scheme('http'); #force http for t/TEST -ssl
  @@ -11,4 +12,11 @@
   my $hostport = Apache::TestRequest::hostport($config);
   t_debug("connecting to $hostport");
   
  -print GET_BODY("/input_filter.html");
  +my $res = GET "/input_filter.html";
  +if ($res->is_success) {
  +    print $res->content;
  +}
  +else {
  +    die "server side has failed (response code: ", $res->code, "),\n",
  +        "see t/logs/error_log for more details\n";
  +}
  
  
  
  1.2       +11 -2     modperl-2.0/t/filter/in_str_msg.t
  
  Index: in_str_msg.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/in_str_msg.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- in_str_msg.t      15 Jan 2003 06:19:25 -0000      1.1
  +++ in_str_msg.t      2 Apr 2003 03:01:27 -0000       1.2
  @@ -1,7 +1,8 @@
  -use Apache::TestRequest;
   use Apache::Test ();
   use Apache::TestUtil;
   
  +use Apache::TestRequest 'GET';
  +
   my $module = 'TestFilter::in_str_msg';
   
   Apache::TestRequest::scheme('http'); #force http for t/TEST -ssl
  @@ -11,4 +12,12 @@
   my $hostport = Apache::TestRequest::hostport($config);
   t_debug("connecting to $hostport");
   
  -print GET_BODY("/input_filter.html");
  +my $res = GET "/input_filter.html";
  +if ($res->is_success) {
  +    print $res->content;
  +}
  +else {
  +    die "server side has failed (response code: ", $res->code, "),\n",
  +        "see t/logs/error_log for more details\n";
  +}
  +
  
  
  

Reply via email to