use strict;

use Foo;
use DBI;

print "Comparing wrapper:\n";
my $foo = Foo->new(qw(DBI:mysql:mysql:host user pass));

print "\nComparing DBI:\n";
my $dbh = DBI->connect(qw(DBI:mysql:mysql:host user pass));