[Catalyst-commits] r8442 - trunk/Catalyst-Plugin-Session-Store-DBIC/t

[jhannah at dev.catalyst.perl.org]

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');