/[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 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    
Legend:
Removed from v.98  
changed lines
  Added in v.99
  ViewVC Help
Powered by ViewVC 1.1.26