[Bast-commits] r8460 - in DBIx-Class/0.08/trunk: maint t/lib

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-01-28 10:28:30 +0000 (Thu, 28 Jan 2010)
New Revision: 8460

Modified:
   DBIx-Class/0.08/trunk/maint/gen-schema.pl
   DBIx-Class/0.08/trunk/t/lib/sqlite.sql
Log:
Fix bogus test DDL

Modified: DBIx-Class/0.08/trunk/maint/gen-schema.pl
===================================================================
--- DBIx-Class/0.08/trunk/maint/gen-schema.pl	2010-01-28 10:13:16 UTC (rev 8459)
+++ DBIx-Class/0.08/trunk/maint/gen-schema.pl	2010-01-28 10:28:30 UTC (rev 8460)
@@ -8,4 +8,10 @@
 use SQL::Translator;
 
 my $schema = DBICTest::Schema->connect;
-print scalar ($schema->storage->deployment_statements($schema, 'SQLite'));
+print scalar ($schema->storage->deployment_statements(
+  $schema,
+  'SQLite',
+  undef,
+  undef,
+  { producer_args => { no_transaction => 1 } }
+));

Modified: DBIx-Class/0.08/trunk/t/lib/sqlite.sql
===================================================================
--- DBIx-Class/0.08/trunk/t/lib/sqlite.sql	2010-01-28 10:13:16 UTC (rev 8459)
+++ DBIx-Class/0.08/trunk/t/lib/sqlite.sql	2010-01-28 10:28:30 UTC (rev 8460)
@@ -1,11 +1,9 @@
 -- 
 -- Created by SQL::Translator::Producer::SQLite
--- Created on Tue Jan 19 12:46:12 2010
+-- Created on Thu Jan 28 11:26:22 2010
 -- 
+;
 
-
-BEGIN TRANSACTION;
-
 --
 -- Table: artist
 --
@@ -447,6 +445,4 @@
 -- View: year2000cds
 --
 CREATE VIEW year2000cds AS
-    SELECT cdid, artist, title, year, genreid, single_track FROM cd WHERE year = "2000";
-
-COMMIT;
+    SELECT cdid, artist, title, year, genreid, single_track FROM cd WHERE year = "2000"
\ No newline at end of file