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

