[Bast-commits] r5391 - DBIx-Class/0.08/branches/stopgap/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-01-31 07:41:56 +0000 (Sat, 31 Jan 2009)
New Revision: 5391

Modified:
   DBIx-Class/0.08/branches/stopgap/t/81transactions.t
Log:
Rip out todo as per author (it is gone in trunk)

Modified: DBIx-Class/0.08/branches/stopgap/t/81transactions.t
===================================================================
--- DBIx-Class/0.08/branches/stopgap/t/81transactions.t	2009-01-30 20:22:09 UTC (rev 5390)
+++ DBIx-Class/0.08/branches/stopgap/t/81transactions.t	2009-01-31 07:41:56 UTC (rev 5391)
@@ -8,7 +8,7 @@
 
 my $schema = DBICTest->init_schema();
 
-plan tests => 67;
+plan tests => 63;
 
 my $code = sub {
   my ($artist, @cd_titles) = @_;
@@ -238,32 +238,13 @@
     ok(($err eq ''), 'Pre-connection nested transactions.');
 }
 
-# Test txn_rollback with nested
-{
-  local $TODO = "Work out how this should work";
-  my $local_schema = DBICTest->init_schema();
-
-  my $artist_rs = $local_schema->resultset('Artist');
-  throws_ok {
-   
-    $local_schema->txn_begin;
-    $artist_rs->create({ name => 'Test artist rollback 1'});
-    $local_schema->txn_begin;
-    is($local_schema->storage->transaction_depth, 2, "Correct transaction depth");
-    $artist_rs->create({ name => 'Test artist rollback 2'});
-    $local_schema->txn_rollback;
-  } qr/Not sure what this should be.... something tho/, "Rolled back okay";
-  is($local_schema->storage->transaction_depth, 0, "Correct transaction depth");
-
-  ok(!$artist_rs->find({ name => 'Test artist rollback 1'}), "Test Artist not created")
-    || $artist_rs->find({ name => 'Test artist rollback 1'})->delete;
-}
-
 # Test txn_scope_guard
 {
   local $TODO = "Work out how this should work";
-  my $schema = DBICTest->init_schema();
 
+  # reset schema
+  $schema = DBICTest->init_schema();
+
   is($schema->storage->transaction_depth, 0, "Correct transaction depth");
   my $artist_rs = $schema->resultset('Artist');
   throws_ok {