fixup to tests for non-*n?x platforms

[dbsrgits/DBIx-Class.git] / t / 89dbicadmin.t

diff --git a/t/89dbicadmin.t b/t/89dbicadmin.t
index a411eb7..7c7a89c 100644 (file)
--- a/t/89dbicadmin.t
+++ b/t/89dbicadmin.t
@@ -6,7 +6,7 @@ use Test::More;
 use lib qw(t/lib);
 use DBICTest;
 
-my $schema = DBICTest::init_schema();
+my $schema = DBICTest->init_schema();
 
 eval 'require JSON';
 plan skip_all => 'Install JSON to run this test' if ($@);
@@ -20,7 +20,7 @@ if ($@) {
 plan tests => 5;
 
 my $employees = $schema->resultset('Employee');
-my $cmd = qq|script/dbicadmin --schema=DBICTest::Schema --class=Employee --tlibs --connect='["dbi:SQLite:dbname=t/var/DBIxClass.db","",""]' --force --tlibs|;
+my $cmd = qq|perl 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' );