[Catalyst-commits] r8442 -
trunk/Catalyst-Plugin-Session-Store-DBIC/t
jhannah at dev.catalyst.perl.org
jhannah at dev.catalyst.perl.org
Wed Sep 24 15:52:57 BST 2008
Author: jhannah
Date: 2008-09-24 15:52:57 +0100 (Wed, 24 Sep 2008)
New Revision: 8442
Modified:
trunk/Catalyst-Plugin-Session-Store-DBIC/t/04dbic.t
trunk/Catalyst-Plugin-Session-Store-DBIC/t/05dbic-schema.t
Log:
Added 'warning thrown as expected' label to the new Test::Warn tests.
Modified: trunk/Catalyst-Plugin-Session-Store-DBIC/t/04dbic.t
===================================================================
--- trunk/Catalyst-Plugin-Session-Store-DBIC/t/04dbic.t 2008-09-24 06:52:33 UTC (rev 8441)
+++ trunk/Catalyst-Plugin-Session-Store-DBIC/t/04dbic.t 2008-09-24 14:52:57 UTC (rev 8442)
@@ -66,9 +66,9 @@
# Exceed our session storage capactity
$value = "blah" x 200;
-warning_like {
+warning_like{
$mech->get_ok("http://localhost/session/setup?key=$key&value=$value", 'exceeding storage capacity');
-} qr/^This session requires \d+ bytes of storage, but your database column 'data' can only store 200 bytes. Storing this session may not be reliable; increase the size of your data field/;
+} qr/^This session requires \d+ bytes of storage, but your database column 'data' can only store 200 bytes. Storing this session may not be reliable; increase the size of your data field/, 'warning thrown as expected';
# Delete session
$mech->get_ok('http://localhost/session/delete', 'request to delete session');
Modified: trunk/Catalyst-Plugin-Session-Store-DBIC/t/05dbic-schema.t
===================================================================
--- trunk/Catalyst-Plugin-Session-Store-DBIC/t/05dbic-schema.t 2008-09-24 06:52:33 UTC (rev 8441)
+++ trunk/Catalyst-Plugin-Session-Store-DBIC/t/05dbic-schema.t 2008-09-24 14:52:57 UTC (rev 8442)
@@ -68,7 +68,7 @@
$value = "blah" x 200;
warning_like {
$mech->get_ok("http://localhost/session/setup?key=$key&value=$value", 'exceeding storage capacity');
-} qr/This session requires \d+ bytes of storage, but your database column 'data' can only store 200 bytes. Storing this session may not be reliable; increase the size of your data field/;
+} qr/This session requires \d+ bytes of storage, but your database column 'data' can only store 200 bytes. Storing this session may not be reliable; increase the size of your data field/, 'warning thrown as expected';
# Delete session
$mech->get_ok('http://localhost/session/delete', 'request to delete session');
More information about the Catalyst-commits
mailing list