Parent Directory | Revision Log | Patch
revision 7 by dpavlin, Wed Jan 4 14:48:11 2006 UTC | revision 8 by dpavlin, Wed Jan 4 15:04:58 2006 UTC | |
---|---|---|
# | Line 26 ok($doc->delete, "delete"); | Line 26 ok($doc->delete, "delete"); |
26 | ok($doc = new Search::Estraier::Document, 'new'); | ok($doc = new Search::Estraier::Document, 'new'); |
27 | ||
28 | foreach my $a (keys %{$attr_data}) { | foreach my $a (keys %{$attr_data}) { |
29 | ok($doc->add_attr($a, $attr_data->{$a}), "add_attr $a"); | my $d = $attr_data->{$a} || die; |
30 | ok($doc->add_attr($a, $d), "add_attr $a"); | |
31 | cmp_ok($doc->attr($a), 'eq', $d, "attr $a = $d"); | |
32 | } | } |
33 | ||
34 | ok($doc->add_text('This is a demo'), 'add_text'); | ok($doc->add_text('This is a demo'), 'add_text'); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |