49 lines
1.3 KiB
Diff
49 lines
1.3 KiB
Diff
From 90ec098f1ccd5e253799a656de630bfab7badd3b Mon Sep 17 00:00:00 2001
|
|
From: Kenichi Ishigaki <ishigaki@cpan.org>
|
|
Date: Sat, 26 Jan 2019 06:56:16 +0900
|
|
Subject: [PATCH 091/102] added a boilerplace for test
|
|
|
|
---
|
|
t/virtual_table/unknown_op.t | 15 +++++++++------
|
|
1 file changed, 9 insertions(+), 6 deletions(-)
|
|
|
|
diff --git a/t/virtual_table/unknown_op.t b/t/virtual_table/unknown_op.t
|
|
index e8fe04b..885c1d2 100644
|
|
--- a/t/virtual_table/unknown_op.t
|
|
+++ b/t/virtual_table/unknown_op.t
|
|
@@ -1,7 +1,9 @@
|
|
-#!perl -w
|
|
-
|
|
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 = [
|
|
{ nodepath => 1 },
|
|
@@ -9,8 +11,7 @@ our $scan_results = [
|
|
{ nodepath => 3 },
|
|
];
|
|
|
|
-my $dbh = DBI->connect("dbi:SQLite:dbname=:memory:", '', '',
|
|
- {RaiseError => 1, AutoCommit => 1});
|
|
+my $dbh = connect_ok(RaiseError => 1, AutoCommit => 1);
|
|
|
|
# register the module
|
|
$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;
|
|
#my $rows = $sth->fetchall_arrayref;
|
|
#use Data::Dumper;
|
|
-#warn Dumper $rows;
|
|
\ No newline at end of file
|
|
+#warn Dumper $rows;
|
|
+
|
|
+done_testing;
|
|
--
|
|
2.19.1
|
|
|