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 ();

##</code><code>##

Test::More::VERSION: 0.47
DBI::VERSION: 1.52
Perl version: 5.8.4
Attempt to free unreferenced scalar: SV 0x219387c at C:/Perl/lib/Test/Builder.pm line 313.
ok 1 - after fetchall_hashref
1..1

##</code><code>##

Test::More::VERSION: 0.62
DBI::VERSION: 1.52
Perl version: 5.8.8
ok 1 - after fetchall_hashref
1..1