Merge pull request #5248 from solgenomics/topic/batch_update_trials
[sgn.git] / t / unit_fixture / SGN / Test.t
blob7268ad4b5ad89b35f434153337f6f7e35a8fdb03
1 use Test::More;
2 use Carp;
3 use lib 't/lib';
5 use_ok( 'SGN::Test' );
6 use_ok( 'SGN::Test::WWW::Mechanize' );
8 my $mech = SGN::Test::WWW::Mechanize->new;
9 $mech->with_test_level( local => sub {
10    my $conns1  = $mech->_db_connection_count($mech);
11    like $conns1, qr/^\d+$/, 'counted some connections';
12    unless( $ENV{SGN_PARALLEL_TESTING} ) {
13        my $dbh     = DBI->connect(@{ $mech->context->dbc_profile }{qw{ dsn user password attributes }});
14        my $conns2  = $mech->_db_connection_count($mech);
15        is($conns1+1, $conns2, "SGN::Test can count db connections correctly");
16    }
17 }, 1);
20 done_testing;