t/SGN/Test.t

   1 use Test::More tests => 1;
   2 use Carp;
   3 use lib 't/lib';
   4 use SGN::Test;
   5 use SGN::Test::WWW::Mechanize;
   6 use autodie qw/:all/;
   7
   8 my $mech = SGN::Test::WWW::Mechanize->new;
   9 $mech->with_test_level( local => sub {
  10    my $conns1  = SGN::Test::db_connection_count($mech);
  11    my $dbh     = DBI->connect(@{ $mech->context->dbc_profile }{qw{ dsn user password attributes }});
  12    my $conns2  = SGN::Test::db_connection_count($mech);
  13    is($conns1+1, $conns2, "SGN::Test can count db connections");
  14 }, 1);