simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00
Code Issues Releases Wiki Activity

added a boilerplace for test

Browse source
This commit is contained in:
Kenichi Ishigaki 2019-01-26 06:56:16 +09:00
parent 7347e226a3
commit 90ec098f1c
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
t/virtual_table/unknown_op.t
View file

@ -1,7 +1,9 @@
#!perl -w
use strict; use strict;
use Test::More tests => 4; use warnings;
use lib "t/lib";
use SQLiteTest;
use Test::More;
use if -d ".git", "Test::FailWarnings";
our $scan_results = [ our $scan_results = [
{ nodepath => 1 }, { nodepath => 1 },
@ -9,8 +11,7 @@ our $scan_results = [
{ nodepath => 3 }, { nodepath => 3 },
]; ];
my $dbh = DBI->connect("dbi:SQLite:dbname=:memory:", '', '', my $dbh = connect_ok(RaiseError => 1, AutoCommit => 1);
{RaiseError => 1, AutoCommit => 1});
# register the module # register the module
$dbh->sqlite_create_module(perl => "DBD::SQLite::VirtualTable::PerlData"); $dbh->sqlite_create_module(perl => "DBD::SQLite::VirtualTable::PerlData");
@ -90,4 +91,6 @@ is $ok, 1, "We survive an isnull comparison on the right side";
undef $ok; undef $ok;
#my $rows = $sth->fetchall_arrayref; #my $rows = $sth->fetchall_arrayref;
#use Data::Dumper; #use Data::Dumper;
#warn Dumper $rows; #warn Dumper $rows;
done_testing;