/[Search-Estraier]/trunk/t/1_document.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/1_document.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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');

Legend:
Removed from v.7  
changed lines
  Added in v.8

  ViewVC Help
Powered by ViewVC 1.1.26