--- trunk/t/1_document.t	2006/01/04 15:48:00	10
+++ trunk/t/1_document.t	2006/01/04 21:51:01	14
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
-use Test::More tests => 28;
+use Test::More tests => 33;
 use Test::Exception;
 use Data::Dumper;
 
@@ -54,11 +54,11 @@
 
 diag "dump_draft:\n$draft";
 
-#ok(my $doc2 = new_from_draft Search::Estraier::Document($draft), 'new_from_draft');
-#cmp_ok($doc2->dump_draft, 'eq', $draft, 'drafts same');
+ok(my $doc2 = new Search::Estraier::Document($draft), 'new from draft');
+cmp_ok($doc2->dump_draft, 'eq', $draft, 'drafts same');
 
 cmp_ok($doc->id, '==', -1, 'id');
-#cmp_ok($doc2->id, '==', -1, 'id');
+cmp_ok($doc2->id, '==', -1, 'id');
 
 ok(my @attr = $doc->attr_names, 'attr_names');
 diag "attr_names: ", join(',',@attr), "\n";
@@ -79,7 +79,9 @@
 diag "texts: ", join(',',@texts), "\n";
 ok(eq_array(\@test_texts, \@texts), 'texts');
 
-diag Dumper(\@test_texts, \@texts);
+ok(my $cat_text = $doc->cat_texts, 'cat_text');
+diag "cat_texts: $cat_text";
+
 
 SKIP: {
 	skip "est_keywords not implemented", 2;
@@ -96,4 +98,4 @@
 
 #ok($doc->scan_words(qw(this is demo)), "scan_words");
 
-diag Dumper($doc);
+#diag Dumper($doc);