Merge 'trunk' into 'DBIx-Class-current'

[dbsrgits/DBIx-Class-Historic.git] / t / run / 29dbicadmin.tl

# vim: filetype=perl

sub run_tests {

    eval 'require JSON';
    plan skip_all, 'Install JSON to run this test' if ($@);

    eval 'require Text::CSV_XS';
    if ($@) {
        eval 'require Text::CSV_PP';
        plan skip_all, 'Install Text::CSV_XS or Text::CSV_PP to run this test' if ($@);
    }

    plan tests => 5;
    my $schema = shift;

    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|;

    `$cmd --op=insert --set='{name:"Matt"}'`;
    ok( ($employees->count()==1), 'insert count' );

    my $employee = $employees->find(1);
    ok( ($employee->name() eq 'Matt'), 'insert valid' );

    `$cmd --op=update --set='{name:"Trout"}'`;
    $employee = $employees->find(1);
    ok( ($employee->name() eq 'Trout'), 'update' );

    `$cmd --op=insert --set='{name:"Aran"}'`;
    my $data = `$cmd --op=select --attrs='{order_by:"name"}'`;
    ok( ($data=~/Aran.*Trout/s), 'select with attrs' );

    `$cmd --op=delete --where='{name:"Trout"}'`;
    ok( ($employees->count()==1), 'delete' );
}

1;