From 82e4128321ba94de7d22ec7810b9c3a103f4969a Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Sun, 29 Mar 2015 13:58:12 +0900
Subject: [PATCH] sqlite_ function should be tested using @CALL_FUNCS

---
 t/rt_96050_db_filename_for_a_closed_database.t | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/t/rt_96050_db_filename_for_a_closed_database.t b/t/rt_96050_db_filename_for_a_closed_database.t
index 08d9fa1..2ee9747 100644
--- a/t/rt_96050_db_filename_for_a_closed_database.t
+++ b/t/rt_96050_db_filename_for_a_closed_database.t
@@ -7,18 +7,21 @@ BEGIN {
 }
 
 use t::lib::Test;
-use Test::More tests => 4;
+use Test::More;
 use Test::NoWarnings;
 
+my $tests = 2;
+plan tests => 1 + $tests * @CALL_FUNCS + 1;
+
 my $dbh = connect_ok( RaiseError => 1, PrintError => 0 );
-{
-	my $filename = eval { $dbh->sqlite_db_filename };
+for my $func (@CALL_FUNCS) {
+	my $filename = eval { $dbh->$func('db_filename') };
 	ok !$@, "no filename (because it's in-memory); no error";
 }
 
 $dbh->disconnect;
 
-{
-	my $filename = eval { $dbh->sqlite_db_filename };
+for my $func (@CALL_FUNCS) {
+	my $filename = eval { $dbh->$func('db_filename') };
 	ok !$@ && !$filename, "got no error; no filename; and no segfault";
 }