Fix up example module, skip test if no SQLite.

[maypole.git] / t / 1.t

diff --git a/t/1.t b/t/1.t
index be5e6bdac57f11a880cbf59019bab09e66887d00..50aa24c4d6933994b2903e0db2d1dd045d8f9aa1 100644 (file)
--- a/t/1.t
+++ b/t/1.t
@@ -1,5 +1,10 @@
 # vim:ft=perl
-use Test::More tests => 5;
+use Test::More;
+use lib 'ex'; # Where BeerDB should live
+BEGIN { if (eval { require BeerDB }) { 
+            plan tests => 5;
+        } else { Test::More->import(skip_all =>"SQLite not working or BeerDB module not found: $@") }
+      }
 use Maypole::CLI qw(BeerDB);
 use Maypole::Constants;
 $ENV{MAYPOLE_TEMPLATES} = "t/templates";