fix offset to skip records just like SQL databases do, and not position us on it

[webpac2] / t / 2-input-pdf.t

diff --git a/t/2-input-pdf.t b/t/2-input-pdf.t
index 6a2151a..c09e241 100755 (executable)
--- a/t/2-input-pdf.t
+++ b/t/2-input-pdf.t
@@ -1,13 +1,22 @@
 #!/usr/bin/perl -w
 
 use strict;
-use blib;
+use lib 'lib';
 
-use Test::More tests => 11;
+use Test::More;
 
 BEGIN {
-use_ok( 'WebPAC::Test' );
-use_ok( 'WebPAC::Input' );
+
+       eval "use CAM::PDF";
+
+       if ( $@ ) {
+               plan skip_all => "CAM::PDF required for WebPAC::Input::PDF";
+       } else {
+               plan tests => 11;
+       }
+
+       use_ok( 'WebPAC::Test' );
+       use_ok( 'WebPAC::Input' );
 }
 
 my $module = 'WebPAC::Input::PDF';