Parent Directory | Revision Log | Patch
revision 98 by dpavlin, Sat Jan 28 18:19:47 2006 UTC | revision 99 by dpavlin, Sat Jan 28 19:19:25 2006 UTC | |
---|---|---|
# | Line 41 ok($doc = new Search::Estraier::Document | Line 41 ok($doc = new Search::Estraier::Document |
41 | foreach my $a (keys %{$attr_data}) { | foreach my $a (keys %{$attr_data}) { |
42 | my $d = $attr_data->{$a}; | my $d = $attr_data->{$a}; |
43 | ok($doc->add_attr($a, $d), "add_attr $a = $d"); | ok($doc->add_attr($a, $d), "add_attr $a = $d"); |
44 | diag "draft:\n",$doc->dump_draft,Dumper($doc->{attrs}); | #diag "draft:\n",$doc->dump_draft,Dumper($doc->{attrs}); |
45 | cmp_ok($doc->attr($a), 'eq', $d, "attr $a = $d"); | cmp_ok($doc->attr($a), 'eq', $d, "attr $a = $d"); |
46 | } | } |
47 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |