sub run_tests {
- eval{'require JSON'};
+ eval 'require JSON';
plan skip_all, 'Install JSON to run this test' if ($@);
- eval{'require Text::CSV_XS'};
+ eval 'require Text::CSV_XS';
if ($@) {
- eval{'require Text::CSV_PP'};
+ eval 'require Text::CSV_PP';
plan skip_all, 'Install Text::CSV_XS or Text::CSV_PP to run this test' if ($@);
}
my $schema = shift;
my $employees = $schema->resultset('Employee');
- my $cmd = qq|scripts/dbicadmin --schema=DBICTest::Schema --class=Employee --tlibs --connect='["dbi:SQLite:dbname=t/var/DBIxClass.db","",""]' --force --tlibs|;
+ my $cmd = qq|script/dbicadmin --schema=DBICTest::Schema --class=Employee --tlibs --connect='["dbi:SQLite:dbname=t/var/DBIxClass.db","",""]' --force --tlibs|;
`$cmd --op=insert --set='{name:"Matt"}'`;
ok( ($employees->count()==1), 'insert count' );