-ok(my $abs_path = abs_path($0), "abs_path");
-$abs_path =~ s#/[^/]*$#/#;
+ eval "use XBase";
+ if ( $@ ) {
+ plan skip_all => "XBase required for WebPAC::Input::DBF";
+ } else {
+ plan tests => 1179;
+ }
+
+ use_ok( 'WebPAC::Test' );
+ use_ok( 'WebPAC::Input' );
+}
my $module = 'WebPAC::Input::DBF';
diag "testing with $module", $debug ? ' with debug' : '';
ok(my $input = new WebPAC::Input(
module => $module,
my $module = 'WebPAC::Input::DBF';
diag "testing with $module", $debug ? ' with debug' : '';
ok(my $input = new WebPAC::Input(
module => $module,
), "new");
ok(my $db = $input->open(
path => "$abs_path/data/cas2000.dbf",
input_config => {
), "new");
ok(my $db = $input->open(
path => "$abs_path/data/cas2000.dbf",
input_config => {