projects
/
webpac2
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
make WebPAC::Input::DBF optional
[webpac2]
/
t
/
2-input-xml.t
diff --git
a/t/2-input-xml.t
b/t/2-input-xml.t
index
2dae39f
..
efba79e
100755
(executable)
--- a/
t/2-input-xml.t
+++ b/
t/2-input-xml.t
@@
-3,7
+3,7
@@
use strict;
use blib;
use strict;
use blib;
-use Test::More tests =>
18
;
+use Test::More tests =>
24
;
BEGIN {
use_ok( 'WebPAC::Test' );
BEGIN {
use_ok( 'WebPAC::Test' );
@@
-29,10
+29,10
@@
ok(my $size = $input->size, "size");
foreach my $mfn ( 1 ... $size ) {
my $rec = $input->fetch;
foreach my $mfn ( 1 ... $size ) {
my $rec = $input->fetch;
- if (
$mfn <= 10 || $mfn == 20
) {
- ok(
$rec, "fetch
$mfn");
+ if (
$mfn >= 7
) {
+ ok(
! $rec, "error
$mfn");
} else {
} else {
- ok(
! $rec, "empty
$mfn");
+ ok(
$rec, "fetch
$mfn");
}
cmp_ok($input->pos, '==', $mfn, "pos $mfn");
}
cmp_ok($input->pos, '==', $mfn, "pos $mfn");