--- trunk/t/1_Document.t	2006/01/05 13:55:55	22
+++ trunk/t/1_Document.t	2006/01/05 15:05:58	26
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
-use Test::More tests => 33;
+use Test::More tests => 31;
 use Test::Exception;
 use Data::Dumper;
 
@@ -52,7 +52,7 @@
 
 ok(my $draft = $doc->dump_draft, 'dump_draft');
 
-diag "dump_draft:\n$draft";
+#diag "dump_draft:\n$draft";
 
 ok(my $doc2 = new Search::Estraier::Document($draft), 'new from draft');
 cmp_ok($doc2->dump_draft, 'eq', $draft, 'drafts same');
@@ -61,7 +61,7 @@
 cmp_ok($doc2->id, '==', -1, 'id');
 
 ok(my @attr = $doc->attr_names, 'attr_names');
-diag "attr_names: ", join(',',@attr), "\n";
+#diag "attr_names: ", join(',',@attr), "\n";
 
 cmp_ok(scalar @attr, '==', 2, 'attr_names');
 
@@ -76,26 +76,10 @@
 #diag "attr_names left: ", join(',',$doc->attr_names), "\n";
 cmp_ok(@attr, '==' , 0, "attributes removed");
 
-diag "texts: ", join(',',@texts), "\n";
+#diag "texts: ", join(',',@texts), "\n";
 ok(eq_array(\@test_texts, \@texts), 'texts');
 
 ok(my $cat_text = $doc->cat_texts, 'cat_text');
-diag "cat_texts: $cat_text";
-
-
-SKIP: {
-	skip "est_keywords not implemented", 2;
-
-	my @keywords = $doc->keywords;
-	diag "keywords: ", join(',',@keywords), "\n";
-
-	cmp_ok(scalar @keywords, '==', 1, 'keywords');
-}
-
-
-#ok(my $snippet = $doc->make_snippet(480, 96, 96, qw(demo is)), "make_snippet");
-#diag "make_snippet:\n$snippet";
-
-#ok($doc->scan_words(qw(this is demo)), "scan_words");
+#diag "cat_texts: $cat_text";
 
 #diag Dumper($doc);