use strict;
use warnings;
use Test::More qw(no_plan);
use DBI;

print "Test::More::VERSION: $Test::More::VERSION\n";
print "DBI::VERSION: $DBI::VERSION\n";
print "Perl version: ", join ('.', unpack('C3', $^V)), "\n";

my $dbh = DBI->connect ("dbi:SQLite:delme.SQLite", '', '');

$dbh->do ("CREATE TABLE IF NOT EXISTS test (id INTEGER PRIMARY KEY NOT NULL, name VARCHAR(20))");

my $stmt = "SELECT ALL * FROM test";
my $sth = $dbh->prepare ($stmt);

$sth->execute ();

my $result = $sth->fetchall_hashref ('id');

ok (1, 'after fetchall_hashref');

$sth = 0;

$dbh->disconnect ();