# DBI connect() for mock DBI.

# $Id: connect.t 246 2008-12-04 13:01:22Z aff $

# ------ enable testing mock DBI
BEGIN { push @ARGV, "--dbitest"; }

# ------ use/require pragmas
use strict;      # better compile-time checking
use warnings;    # better run-time checking

use Test::More tests => 2;    # advanced testing
use File::Spec::Functions;
use lib catdir qw ( blib lib );           # use local module
use Test::MockDBI;            # what we are testing

# ------ define variables
my $dbh = DBI->connect("universe", "mortal", "root-password");
isa_ok($dbh, q{DBI}, q{Expect a DBI reference});
is($dbh->disconnect(), 1, q{Expect disconnect() == 1});

__END__