t/unit_fixture/SGN/Test/Fixture.t

   1
   2 use strict;
   3
   4 use Test::More qw | no_plan |;
   5
   6 use lib 't/lib';
   7
   8 use SGN::Test::Fixture;
   9
  10 my $fix = SGN::Test::Fixture->new();
  11
  12 is(ref($fix->config()), "HASH", 'hashref check');
  13
  14 my $q = "SELECT count(*) FROM stock";
  15 my $h = $fix->dbh()->prepare($q);
  16 $h->execute();
  17 my $stock_count = $h->fetchrow_array();
  18 ok($stock_count, "dbh test");
  19
  20 my $rs = $fix->bcs_schema->resultset("Stock::Stock")->search( {} );
  21 ok($rs->count(), "bcs schema test");