X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fadmin%2F03data.t;h=ee35001135736c2d91742ef90727054172a22690;hb=130f0abd0ea76114ffdea39a4fea352a35e5e742;hp=872b1cf74cd5dd7d5285b2a634f3fafae5477e02;hpb=68de943862f06cabd397d2e74d12cd9cdc999779;p=dbsrgits%2FDBIx-Class.git diff --git a/t/admin/03data.t b/t/admin/03data.t index 872b1cf..ee35001 100644 --- a/t/admin/03data.t +++ b/t/admin/03data.t @@ -4,15 +4,15 @@ use warnings; use Test::More; use Test::Exception; +use lib 't/lib'; +use DBICTest; + BEGIN { require DBIx::Class; plan skip_all => 'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for('admin') unless DBIx::Class::Optional::Dependencies->req_ok_for('admin'); } -use lib 't/lib'; -use DBICTest; - use_ok 'DBIx::Class::Admin'; @@ -45,13 +45,13 @@ use_ok 'DBIx::Class::Admin'; $admin->insert('Employee', {name =>'Aran'}); - my $expected_data = [ + my $expected_data = [ [$employee->result_source->columns() ], [1,1,undef,undef,undef,'Trout',undef], [2,2,undef,undef,undef,'Aran',undef] ]; my $data; - lives_ok { $data = $admin->select('Employee')} 'can retrive data from database'; + lives_ok { $data = $admin->select('Employee', undef, { order_by => 'employee_id' })} 'can retrive data from database'; is_deeply($data, $expected_data, 'DB matches whats expected'); $admin->delete('Employee', {name=>'Trout'});