fixed up sqlt tests a bit and tried fixing 2 failing sqlt tests
[dbsrgits/DBIx-Class-Historic.git] / t / 89dbicadmin.t
1 # vim: filetype=perl
2 use strict;
3 use warnings;  
4
5 use Test::More;
6 use lib qw(t/lib);
7 use DBICTest;
8
9 my $schema = DBICTest->init_schema();
10
11 eval 'require JSON';
12 plan skip_all => 'Install JSON to run this test' if ($@);
13
14 eval 'require Text::CSV_XS';
15 if ($@) {
16     eval 'require Text::CSV_PP';
17     plan skip_all => 'Install Text::CSV_XS or Text::CSV_PP to run this test' if ($@);
18 }
19
20 plan tests => 5;
21
22 my $employees = $schema->resultset('Employee');
23 my $cmd = qq|script/dbicadmin --schema=DBICTest::Schema --class=Employee --tlibs --connect='["dbi:SQLite:dbname=t/var/DBIxClass.db","",""]' --force --tlibs|;
24
25 `$cmd --op=insert --set='{name:"Matt"}'`;
26 ok( ($employees->count()==1), 'insert count' );
27
28 my $employee = $employees->find(1);
29 ok( ($employee->name() eq 'Matt'), 'insert valid' );
30
31 `$cmd --op=update --set='{name:"Trout"}'`;
32 $employee = $employees->find(1);
33 ok( ($employee->name() eq 'Trout'), 'update' );
34
35 `$cmd --op=insert --set='{name:"Aran"}'`;
36 my $data = `$cmd --op=select --attrs='{order_by:"name"}'`;
37 ok( ($data=~/Aran.*Trout/s), 'select with attrs' );
38
39 `$cmd --op=delete --where='{name:"Trout"}'`;
40 ok( ($employees->count()==1), 'delete' );
41