Index: t/live_app.t
===================================================================
--- t/live_app.t (revision 13365)
+++ t/live_app.t (working copy)
@@ -16,8 +16,6 @@
}
or plan skip_all =>
'Test::WWW::Mechanize::Catalyst >= 0.51 is required for this test';
-
- plan tests => 36;
}
use lib "t/lib";
@@ -83,6 +81,11 @@
$ua1->content_contains( "please login", "ua1 not logged in" );
$ua2->content_contains( "please login", "ua2 not logged in" );
+my $ua3 = Test::WWW::Mechanize::Catalyst->new;
+$ua3->get_ok( "
http://localhost/dump_these_loads_session");
+$ua3->content_contains('NOT');
+
diag("Testing against Catalyst $Catalyst::VERSION");
diag("Testing Catalyst::Plugin::Session $Catalyst::Plugin::Session::VERSION");
+done_testing;
Index: t/lib/SessionTestApp/Controller/Root.pm
===================================================================
--- t/lib/SessionTestApp/Controller/Root.pm (revision 13365)
+++ t/lib/SessionTestApp/Controller/Root.pm (working copy)
@@ -88,4 +88,16 @@
}
}
+sub dump_these_loads_session : Global {
+ my ($self, $c) = @_;
+
+ $c->dump_these();
+ if ($c->_session) {
+ $c->res->write('LOADED')
+ }
+ else {
+ $c->res->write('NOT');
+ }
+}
+
1;
Index: Makefile.PL
===================================================================
--- Makefile.PL (revision 13365)
+++ Makefile.PL (working copy)
@@ -26,7 +26,7 @@
requires 'Tie::RefHash' => '1.34';
# for Test::Store
-requires 'Test::More';
+requires 'Test::More' => '0.88';
test_requires 'Test::Deep';
test_requires 'Test::Exception';
