3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 45; |
use Test::More tests => 54; |
7 |
use Test::Exception; |
use Test::Exception; |
8 |
use Data::Dumper; |
use Data::Dumper; |
9 |
|
|
19 |
'size' => 42, |
'size' => 42, |
20 |
'zero' => 0, |
'zero' => 0, |
21 |
'foo' => 'bar', |
'foo' => 'bar', |
22 |
|
'empty' => '', |
23 |
}; |
}; |
24 |
|
|
25 |
my @test_texts = ( |
my @test_texts = ( |
55 |
|
|
56 |
ok(my $draft = $doc->dump_draft, 'dump_draft'); |
ok(my $draft = $doc->dump_draft, 'dump_draft'); |
57 |
|
|
58 |
|
foreach my $a (keys %{$attr_data}) { |
59 |
|
my $regex = $a . '=' . $attr_data->{$a}; |
60 |
|
like($draft, qr/$regex/, "draft has $regex"); |
61 |
|
} |
62 |
|
|
63 |
#diag "dump_draft:\n$draft"; |
#diag "dump_draft:\n$draft"; |
64 |
|
|
65 |
ok(my $doc2 = new Search::Estraier::Document($draft), 'new from draft'); |
ok(my $doc2 = new Search::Estraier::Document($draft), 'new from draft'); |