FYI, I tried doing this with using the Test::MockObject module, but abandoned the effort due to a bug that causes Apache2 child process segmentation fault even when no Test::MockObject functions are called: https://rt.cpan.org/Public/Bug/Display.html?id=73723
I don't know if there might have been other workarounds possible. David On Thu, 2012-03-15 at 09:28 -0700, Fred Moyer wrote: > Steve, please direct these questions to the mod_perl list which I have > cc'd. You're much more likely to get an answer from any one of the > thousands of experienced users on this list than emailing any of the > posters directly. > > On Tue, Mar 13, 2012 at 1:18 PM, Steven Lembark <lemb...@wrkhors.com> wrote: > > > > Say I have a mod_perl2 handler that does nothing more > > than pass off its request object to another sub. The > > sub gets a few things out of $request->args and the > > headers, proceses its result, and life is good. > > > > 99% of the work inside the handler has nothing whatever > > to do with mod_perl. > > > > I would like to run: > > > > perl -d submit_a_fake_request; > > > > and watch the request get handled. > > > > I think that PerlTest or PerlTestRun might offer some > > way to do this but, but the POD includes only: > > > > My::TestRun->new->run(@ARGV); > > > > and I have no idea what to pass in as @ARGV. > > > > Note that I am not trying to debug Apache itself, > > just the code that lives below the handler sub. Nor > > am I writing tests for the most part, I just need > > to see the code in "perl -d" to find out some things > > about what is going on inside the code. > > > > If this were mod_perl with an HTTP::Request object > > I could take an old $r->as_string, strip the method > > and uri, split the headers on newlines, extract the > > query and construct a new HTTP::Request object. I > > am trying to duplicate this procedure in Apache2. > > > > I'll be happy to hand back POD for the PerlTestRun > > that shows someone how to assemble a working Apache2 > > request out of as_string output in order to run a > > test. But several days of stumbling through google and > > mod_perl archives leave me with no examples that don't > > already assume that someone knows all of the appropriate > > arguments and methods to call for setting up an object. > > > > Any help would be appreciated. > > > > -- > > Steven Lembark 3646 Flora Pl > > Workhorse Computing St Louis, MO 63110 > > lemb...@wrkhors.com +1 888 359 3508 > > -- David Booth, Ph.D. http://dbooth.org/ Opinions expressed herein are those of the author and do not necessarily reflect those of his employer.
