use strict; use Test::More; use Scope::Container; use Scope::Container::DBI; { my $sc = start_scope_container(); eval { my $dbh = Scope::Container::DBI->connect("dbi:__foobarbaz__:dbname=a","","",{RaiseError=>1, PrintError=>0}); }; my $err = $@; like $err, qr!__foobarbaz__!; } { my $sc = start_scope_container(); eval { my $dbh = Scope::Container::DBI->connect("dbi:__foobarbaz__:dbname=a","","",{RaiseError=>0, PrintError=>0}); }; my $err = $@; like $err, qr!__foobarbaz__!; } done_testing();