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");