view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;

use Test::More;
use Test::Fatal;

use Database::Async::SQLite;

my $dbh = new_ok('Database::Async::SQLite' => [ ':memory:' ]);
is($dbh->filename, ':memory:', 'database filename was correct');
ok($dbh->eventfd(), 'have eventfd');

is(exception {
	isa_ok($dbh->prepare(q{create table demo (id int)}), 'Database::Async::SQLite::STH');
}, undef, 'can prepare a statement');