use warnings;
use Test::More;
-
BEGIN {
eval { require Catalyst::Plugin::Session::State::Cookie; Catalyst::Plugin::Session::State::Cookie->VERSION(0.03) }
or plan skip_all =>
"Catalyst::Plugin::Session::State::Cookie 0.03 or higher is required for this test";
eval {
- require Test::WWW::Mechanize::Catalyst;
- Test::WWW::Mechanize::Catalyst->VERSION(0.51);
+ require Test::WWW::Mechanize::PSGI;
+ #Test::WWW::Mechanize::Catalyst->VERSION(0.51);
}
or plan skip_all =>
- 'Test::WWW::Mechanize::Catalyst >= 0.51 is required for this test';
+ 'Test::WWW::Mechanize::PSGI is required for this test';
plan tests => 12;
}
use lib "t/lib";
-use Test::WWW::Mechanize::Catalyst "SessionTestApp";
+use Test::WWW::Mechanize::PSGI;
+use SessionTestApp;
+my $ua = Test::WWW::Mechanize::PSGI->new(
+ app => SessionTestApp->psgi_app(@_),
+ cookie_jar => {}
+);
# Test without delete __address
local $ENV{REMOTE_ADDR} = "192.168.1.1";
-my $ua = Test::WWW::Mechanize::Catalyst->new( {} );
$ua->get_ok( "http://localhost/login" );
$ua->content_contains('logged in');
# Change Client
-local $ENV{REMOTE_ADDR} = "192.168.1.2";
-
-$ua->get_ok( "http://localhost/get_session_variable/logged");
-$ua->content_contains('VAR_logged=n.a.');
+#local $ENV{REMOTE_ADDR} = "192.168.1.2";
+use Plack::Builder;
+my $app = SessionTestApp->psgi_app(@_);
+builder {
+ enable 'ForceEnv' => REMOTE_ADDR => "192.168.1.2";
+ $app;
+};
+my $ua2 = Test::WWW::Mechanize::PSGI->new(
+ app => $app,
+ cookie_jar => {}
+);
+$ua2->get_ok( "http://localhost/get_session_variable/logged");
+$ua2->content_contains('VAR_logged=n.a.');
# Inital Client
local $ENV{REMOTE_ADDR} = "192.168.1.1";