--- trunk/t/1_document.t	2006/01/04 15:50:08	11
+++ trunk/t/1_document.t	2006/01/04 19:28:30	12
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
-use Test::More tests => 29;
+use Test::More tests => 30;
 use Test::Exception;
 use Data::Dumper;
 
@@ -79,6 +79,10 @@
 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;
 
@@ -94,4 +98,4 @@
 
 #ok($doc->scan_words(qw(this is demo)), "scan_words");
 
-diag Dumper($doc);
+#diag Dumper($doc);