view release on metacpan or  search on metacpan

t/01_simple.t  view on Meta::CPAN

    my $version = $dbh->{sqlite_version};
    ok $version;
    note $version;
};
subtest 'STORE' => sub {
    my $dbh = create_dbh();
    {
        no utf8;
        $dbh->do(q{INSERT INTO member (id, name) VALUES (?, ?)}, {}, 3, 'さいきろん');
    }
    $dbh->{sqlite_unicode} = 1;
    my ($name) = $dbh->selectrow_array(q{SELECT name FROM member WHERE id=3});
    is($name, 'さいきろん');
};
subtest 'can_ok' => sub {
    my $dbh = create_dbh();
    can_ok($dbh, qw(table_info));
};
subtest 'last_insert_rowid' => sub {
    my $dbh = create_dbh();
    $dbh->do(q{INSERT INTO member (name) VALUES ("Gyan")}) or die $dbh->errstr;