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 use DBICTest::Plain;
   9
  10 plan tests => 1;
  11
  12 cmp_ok(DBICTest::Plain->resultset('Test')->count, '>', 0, 'count is valid');