# Test::MockDBI DBI connect
# ------ enable testing mock DBI
BEGIN { push @ARGV, "--dbitest=3"; }
# ------ use/require pragmas
use strict; # better compile-time checking
use warnings; # better run-time checking
use Test::More tests => 1; # advanced testing
use lib "blib/lib"; # use local modules
use Test::MockDBI; # what we are testing
# ------ define variables
my $out = ""; # command output
# ------ DBI connect() OK
$out = `t/connect.pl 2>&1`;
like($out, qr/connect\(\)\s+'CONNECT TO universe AS mortal WITH root-password'\s+dbh is a DBI\s+disconnect\(\)/ms,
"DBI connect() OK");