use strict;
use warnings;

use Test::More tests => 2;
use DBI;
use Data::Dumper;

my $dbh = DBI->connect ('dbi:SQLite:dbname=:memory:', '', '');

my $sth = $dbh->prepare ('SELECT 1 = 1;');
$sth->execute;
$sth->finish;
ok ! $sth->{Active}, 'Handle is inactive';
my $res = $sth->fetchall_arrayref ();

is $res, undef, 'Result is undef' or diag Dumper ($res);

diag "DBI $DBI::VERSION";