t/30dbicplain.t

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