t/run/29dbicadmin.tl

   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