Merge 'DBIx-Class-current' into 'datetime'

[dbsrgits/DBIx-Class.git] / t / lib / DBICTest / Setup.pm

diff --git a/t/lib/DBICTest/Setup.pm b/t/lib/DBICTest/Setup.pm
index a7efea5..833bebf 100755 (executable)
--- a/t/lib/DBICTest/Setup.pm
+++ b/t/lib/DBICTest/Setup.pm
@@ -4,7 +4,7 @@ use DBICTest;
 
 my $schema = DBICTest->initialise;
 
-$schema->storage->on_connect_do([ "PRAGMA synchronous = OFF" ]);
+# $schema->storage->on_connect_do([ "PRAGMA synchronous = OFF" ]);
 
 my $dbh = $schema->storage->dbh;
 
@@ -19,7 +19,7 @@ if ($ENV{"DBICTEST_SQLT_DEPLOY"}) {
 
   close IN;
 
-  $dbh->do($_) for split(/\n\n/, $sql);
+  $dbh->do($_) for split(/;\n/, $sql);
 }
 
 $schema->storage->dbh->do("PRAGMA synchronous = OFF");
@@ -118,4 +118,38 @@ $schema->populate('TreeLike', [
   [ 4, 3, 'quux' ],
 ]);
 
+$schema->populate('Track', [
+  [ qw/trackid cd  position title/ ],
+  [ 4, 2, 1, "Stung with Success"],
+  [ 5, 2, 2, "Stripy"],
+  [ 6, 2, 3, "Sticky Honey"],
+  [ 7, 3, 1, "Yowlin"],
+  [ 8, 3, 2, "Howlin"],
+  [ 9, 3, 3, "Fowlin"],
+  [ 10, 4, 1, "Boring Name"],
+  [ 11, 4, 2, "Boring Song"],
+  [ 12, 4, 3, "No More Ideas"],
+  [ 13, 5, 1, "Sad"],
+  [ 14, 5, 2, "Under The Weather"],
+  [ 15, 5, 3, "Suicidal"],
+  [ 16, 1, 1, "The Bees Knees"],
+  [ 17, 1, 2, "Apiary"],
+  [ 18, 1, 3, "Beehind You"],
+]);
+
+$schema->populate('Event', [
+  [ qw/id starts_at/ ],
+  [ 1, '2006-04-25 22:24:33' ],
+]);
+
+$schema->populate('Link', [
+  [ qw/id title/ ],
+  [ 1, 'aaa' ]
+]);
+
+$schema->populate('Bookmark', [
+  [ qw/id link/ ],
+  [ 1, 1 ]
+]);
+
 1;