httpd-apreq-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Philip M. Gollucci" <pgollu...@p6m7g8.com>
Subject [PATCH] glue/perl/t -- make sure of module2url()
Date Sat, 31 Dec 2005 17:53:44 GMT

Index: big_input.t
===================================================================
--- big_input.t (revision 360198)
+++ big_input.t (working copy)
@@ -8,7 +8,8 @@
  use Apache::TestUtil;
  use Apache::TestRequest qw(GET_BODY POST_BODY);

-my $location = "/TestApReq__big_input";
+my $module = 'TestApReq::big_input';
+my $location = Apache::TestRequest::module2url($module);

  my @key_len = (5, 100, 305);
  my @key_num = (5, 15, 26);
Index: inherit.t
===================================================================
--- inherit.t   (revision 360198)
+++ inherit.t   (working copy)
@@ -7,7 +7,10 @@
  use Apache::TestRequest qw(GET_BODY UPLOAD_BODY);

  plan tests => 4, have_lwp;
-my $location = "/TestApReq__inherit";
+
+my $module = 'TestApReq::inherit';
+my $location = Apache::TestRequest::module2url($module);
+
  my @response = split/\r?\n/, GET_BODY($location, Cookie=>"apache=2");
  ok t_cmp($response[0], "method => GET", "inherit method");
  ok t_cmp($response[1], "cookie => apache=2", "inherit cookie");
Index: upload.t
===================================================================
--- upload.t    (revision 360198)
+++ upload.t    (working copy)
@@ -8,8 +8,10 @@
  require File::Basename;

  my $cwd = getcwd();
-my $location = "/TestApReq__upload";

+my $module = 'TestApReq::upload';
+my $location = Apache::TestRequest::module2url($module);
+
  my %types = (perl => 'application/octet-stream',
               httpd => 'application/octet-stream',
               'perltoc.pod' => 'text/x-pod',
Index: request.t
===================================================================
--- request.t   (revision 360198)
+++ request.t   (working copy)
@@ -8,7 +8,9 @@

  plan tests => 18, have_lwp;

-my $location = "/TestApReq__request";
+my $module = 'TestApReq::request';
+my $location = Apache::TestRequest::module2url($module);
+
  #print GET_BODY $location;

  {
Index: cookie.t
===================================================================
--- cookie.t    (revision 360198)
+++ cookie.t    (working copy)
@@ -10,7 +10,8 @@

  require HTTP::Cookies;

-my $location = "/TestApReq__cookie";
+my $module = "TestApReq::cookie";
+my $location = Apache::TestRequest::module2url($module);

  {
      my $test  = 'new';

-- 
------------------------------------------------------------------------
"Love is not the one you can picture yourself marrying,
but the one you can't picture the rest of your life without."

"It takes a minute to have a crush on someone, an hour to like someone,
and a day to love someone, but it takes a lifetime to forget someone..."

Philip M. Gollucci (pgollucci@p6m7g8.com) 301.254.5198
Consultant / http://p6m7g8.net/Resume/resume.shtml
Senior Software Engineer - TicketMaster - http://ticketmaster.com


Mime
View raw message