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"} || '';
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>; }
[ 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', [
[ 1, 1 ],
[ 1, 2 ],
[ 1, 3 ],
+ [ 2, 1 ],
+ [ 2, 2 ],
+ [ 3, 3 ],
]);
$schema->populate('Track', [
[ 17, 1, 2, "Apiary"],
[ 18, 1, 3, "Beehind You"],
]);
+
+ $schema->populate('MixedCase', [
+ [qw/ id name /],
+ [ 1, 'some name' ]
+ ]);
}
1;