Skip to content
Permalink
Browse files

PseudoRequest shouldn't clobber Apache2::Cookies if the package alrea…

…dy exists; mock requests are sometimes useful under mod_perl and this is a bit of a gotcha
  • Loading branch information...
scottwalters committed Jun 19, 2012
1 parent db3058c commit 225df67d1fac42d74ef6fb7cb745db4c29461cfd
Showing with 20 additions and 15 deletions.
  1. +1 −0 docs/changelog/7.x.x.txt
  2. +19 −15 t/lib/WebGUI/PseudoRequest.pm
@@ -1,4 +1,5 @@
7.10.25
- fixed: don't clobber the request handler if WebGUI::Test was loaded inside of mod_perl
- fixed #12365: editing a metadata may cause a fatal error (Arjan Widlak / United Knowledge)
- fixed #12346: toVersion in upgrade_7.9.34-7.10.22.pl was "0.0.0"
- fixed #12010 related link duplication where links have group view restrictions
@@ -19,21 +19,25 @@ use strict;
use Test::MockObject;

BEGIN {
Test::MockObject->fake_module(
'Apache2::Cookie',
new => sub {
my $class = shift;
my $self = Test::MockObject->new;
$self->set_isa($class);
$self->set_true(qw(expires domain bake));
},
);

Test::MockObject->fake_module('APR::Request::Apache2',
handle => sub {
return $_[1];
},
);
if( do { no strict 'refs'; ! exists ${"Apache2::"}{"Cookie::"} } ) {
Test::MockObject->fake_module(
'Apache2::Cookie',
new => sub {
my $class = shift;
my $self = Test::MockObject->new;
$self->set_isa($class);
$self->set_true(qw(expires domain bake));
},
);
}

if( do { no strict 'refs'; ! exists ${"APR::"}{"Request::"} } ) {
Test::MockObject->fake_module('APR::Request::Apache2',
handle => sub {
return $_[1];
},
);
}
}

use WebGUI::PseudoRequest::Headers;

0 comments on commit 225df67

Please sign in to comment.
You can’t perform that action at this time.