[Bast-commits] r7580 - DBIx-Class/0.08/trunk/t/storage

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-09-06 13:45:51 +0000 (Sun, 06 Sep 2009)
New Revision: 7580

Modified:
   DBIx-Class/0.08/trunk/t/storage/exception.t
Log:
Streamline test

Modified: DBIx-Class/0.08/trunk/t/storage/exception.t
===================================================================
--- DBIx-Class/0.08/trunk/t/storage/exception.t	2009-09-06 13:43:10 UTC (rev 7579)
+++ DBIx-Class/0.08/trunk/t/storage/exception.t	2009-09-06 13:45:51 UTC (rev 7580)
@@ -21,9 +21,9 @@
     my $self = shift;
     my $death = $self->_dbi_connect_info->[3]{die};
 
-    die $death if $death eq 'before_populate';
+    die "storage test died: $death" if $death eq 'before_populate';
     my $ret = $self->next::method (@_);
-    die $death if $death eq 'after_populate';
+    die "storage test died: $death" if $death eq 'after_populate';
 
     return $ret;
   }
@@ -34,12 +34,12 @@
 
 for (qw/before_populate after_populate/) {
 
-  throws_ok (sub {
+  dies_ok (sub {
     my $schema = DBICTest::Schema->clone;
     $schema->storage_type ('Dying::Storage');
     $schema->connection (DBICTest->_database, { die => $_ });
     $schema->storage->ensure_connected;
-  }, qr/$_/, "$_ exception found");
+  }, "$_ exception found");
 }
 
 }