15 |
} |
} |
16 |
|
|
17 |
ok(my $abs_path = abs_path($0), "abs_path"); |
ok(my $abs_path = abs_path($0), "abs_path"); |
18 |
$abs_path =~ s#/[^/]*$#/#; |
$abs_path =~ s#/[^/]*$#/#; #fix-vim |
19 |
|
|
20 |
my $module = 'WebPAC::Input::DBF'; |
my $module = 'WebPAC::Input::DBF'; |
21 |
diag "testing with $module", $debug ? ' with debug' : ''; |
diag "testing with $module", $debug ? ' with debug' : ''; |
30 |
ok(my $db = $input->open( |
ok(my $db = $input->open( |
31 |
path => "$abs_path/data/cas2000.dbf", |
path => "$abs_path/data/cas2000.dbf", |
32 |
input_config => { |
input_config => { |
33 |
xmapping => [ |
mapping_path => "$abs_path/conf/input/dbf/cas2000.yml", |
|
{ 'foobar' => [ '200', 'a' ] }, |
|
|
], |
|
34 |
}, |
}, |
35 |
), "open"); |
), "open"); |
36 |
ok(my $size = $input->size, "size"); |
ok(my $size = $input->size, "size"); |