#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
BEGIN { use_ok ("DBI") };
my ($schema, $dbh) = ("DBUTIL");
ok ($dbh = DBI->connect ("dbi:Unify:", "", $schema), "Connect");
$dbh or BAIL_OUT ("Unable to connect to Unify ($DBI::errstr)\n");
my $sth = $dbh->prepare ("select * from DIRS");
ok ($sth->execute, "execute");
ok ($sth->{Active}, "sth attr Active");
$sth->finish;
ok (!$sth->{Active}, "sth attr not Active");
$dbh->disconnect; # Should auto-destroy $sth;
ok (!$dbh->ping, "disconnected");
{ local $SIG{__WARN__} = sub {};
$ENV{UNIFY} = undef;
ok (!DBI->connect ("dbi:Unify:", "", $schema), "Connect \$UNIFY undef");
$ENV{UNIFY} = "";
ok (!DBI->connect ("dbi:Unify:", "", $schema), "Connect \$UNIFY ''");
$ENV{UNIFY} = "/dev/null";
ok (!DBI->connect ("dbi:Unify:", "", $schema), "Connect \$UNIFY '/dev/null'");
}
done_testing;