From 491d5e641b0acdcc5da710c530e141c66029738c Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Thu, 18 Dec 2014 17:20:50 +0900
Subject: [PATCH] skip virtual_table tests if $FindBin::Bin points to a
 nonexistent path for some reason

---
 t/virtual_table/10_filecontent.t          | 2 ++
 t/virtual_table/11_filecontent_fulltext.t | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/t/virtual_table/10_filecontent.t b/t/virtual_table/10_filecontent.t
index 8b39313..de95a22 100644
--- a/t/virtual_table/10_filecontent.t
+++ b/t/virtual_table/10_filecontent.t
@@ -11,6 +11,8 @@ use Test::More;
 use Test::NoWarnings;
 use FindBin;
 
+plan skip_all => "\$FindBin::Bin points to a nonexistent path for some reason: $FindBin::Bin" if !-d $FindBin::Bin;
+
 plan tests => 13;
 
 my $dbh = connect_ok( RaiseError => 1, PrintError => 0, AutoCommit => 1 );
diff --git a/t/virtual_table/11_filecontent_fulltext.t b/t/virtual_table/11_filecontent_fulltext.t
index c2d5e02..2e325e3 100644
--- a/t/virtual_table/11_filecontent_fulltext.t
+++ b/t/virtual_table/11_filecontent_fulltext.t
@@ -10,6 +10,8 @@ use Test::More;
 use Test::NoWarnings;
 use FindBin;
 
+plan skip_all => "\$FindBin::Bin points to a nonexistent path for some reason: $FindBin::Bin" if !-d $FindBin::Bin;
+
 my $dbfile = "tmp.sqlite";
 
 my @tests = (