X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBICTest.pm;h=b2f93227f95ce888ba62a3c4d7811780f4f7484b;hb=refs%2Fheads%2Fpeople%2Fwdh%2Flc_table_name;hp=2e1ddc4d1ba9b191646a218587b6211c891c70be;hpb=0566a82d914af8458f0a4b25f885fa078366f4fc;p=dbsrgits%2FDBIx-Class-Fixtures.git

diff --git a/t/lib/DBICTest.pm b/t/lib/DBICTest.pm
index 2e1ddc4..b2f9322 100755
--- a/t/lib/DBICTest.pm
+++ b/t/lib/DBICTest.pm
@@ -48,9 +48,11 @@ sub init_schema {
 
     my $db_file = "t/var/DBIxClass.db";
 
-    unlink($db_file) if -e $db_file;
-    unlink($db_file . "-journal") if -e $db_file . "-journal";
     mkdir("t/var") unless -d "t/var";
+    if ( !$args{no_deploy} ) {
+      unlink($db_file) if -e $db_file;
+      unlink($db_file . "-journal") if -e $db_file . "-journal";
+    }
 
     my $dsn = $args{"dsn"} || "dbi:SQLite:${db_file}";
     my $dbuser = $args{"user"} || '';
@@ -94,8 +96,7 @@ sub deploy_schema {
     my $self = shift;
     my $schema = shift;
 
-
-    my $file = $self->get_ddl_file($schema);
+    my $file = shift || $self->get_ddl_file($schema);
     open IN, $file;
     my $sql;
     { local $/ = undef; $sql = <IN>; }
@@ -138,6 +139,7 @@ sub populate_schema {
         [ 1, 'Caterwauler McCrae' ],
         [ 2, 'Random Boy Band' ],
         [ 3, 'We Are Goth' ],
+        [ 4, '' ] # Test overridden new will default name to "Test Name" using use_create => 1.
     ]);
 
     $schema->populate('CD', [
@@ -175,6 +177,9 @@ sub populate_schema {
         [ 1, 1 ],
         [ 1, 2 ],
         [ 1, 3 ],
+        [ 2, 1 ],
+        [ 2, 2 ],
+        [ 3, 3 ],
     ]);
 
     $schema->populate('Track', [
@@ -195,6 +200,11 @@ sub populate_schema {
         [ 17, 1, 2, "Apiary"],
         [ 18, 1, 3, "Beehind You"],
     ]);
+
+	$schema->populate('MixedCase', [
+		[qw/ id name /],
+		[ 1, 'some name' ]
+	]);
 }
 
 1;