t/30dbicplain.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use Test::More;
   6
   7 eval 'use Catalyst::Model::DBIC::Plain; 1'
   8   or plan skip_all => 'Install Catalyst::Model::DBIC::Plain to run this test';
   9 plan tests => 1;
  10
  11 use lib qw(t/lib);
  12 use DBICTest::Plain;
  13
  14 cmp_ok(DBICTest::Plain->resultset('Test')->count, '>', 0, 'count is valid');