[Bast-commits] r5978 - DBIx-Class/0.08/trunk/t

[mo at dev.catalyst.perl.org]

Author: mo
Date: 2009-04-24 15:27:20 +0100 (Fri, 24 Apr 2009)
New Revision: 5978

Modified:
   DBIx-Class/0.08/trunk/t/72pg.t
Log:
cleanup 72pg.t

Modified: DBIx-Class/0.08/trunk/t/72pg.t
===================================================================
--- DBIx-Class/0.08/trunk/t/72pg.t	2009-04-24 14:24:26 UTC (rev 5977)
+++ DBIx-Class/0.08/trunk/t/72pg.t	2009-04-24 14:27:20 UTC (rev 5978)
@@ -256,20 +256,16 @@
     });
 }
 
-#SKIP: {
-  #skip "Oracle Auto-PK tests are broken", 16;
-
-  # test auto increment using sequences WITHOUT triggers
-  for (1..5) {
+for (1..5) {
     my $st = $schema->resultset('SequenceTest')->create({ name => 'foo' });
     is($st->pkid1, $_, "Oracle Auto-PK without trigger: First primary key");
     is($st->pkid2, $_ + 9, "Oracle Auto-PK without trigger: Second primary key");
     is($st->nonpkid, $_ + 19, "Oracle Auto-PK without trigger: Non-primary key");
-  }
-  my $st = $schema->resultset('SequenceTest')->create({ name => 'foo', pkid1 => 55 });
-  is($st->pkid1, 55, "Oracle Auto-PK without trigger: First primary key set manually");
-#}
+}
+my $st = $schema->resultset('SequenceTest')->create({ name => 'foo', pkid1 => 55 });
+is($st->pkid1, 55, "Oracle Auto-PK without trigger: First primary key set manually");
 
+
 END {
     if($dbh) {
         $dbh->do("DROP TABLE testschema.artist;");