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::Context;
   6 use DBI;
   7 use autodie qw/:all/;
   8
   9 my $context = SGN::Context->new;
  10 my $conns1  = SGN::Test::db_connections();
  11 my $dbh     = DBI->connect(@{ $context->dbc_profile }{qw{ dsn user password attributes }});
  12 my $conns2  = SGN::Test::db_connections();
  13 is($conns1+1, $conns2, "SGN::Test can count db connections");