--- trunk/t/1_document.t	2006/01/04 14:57:27	7
+++ trunk/t/1_document.t	2006/01/04 15:04:58	8
@@ -26,7 +26,9 @@
 ok($doc = new Search::Estraier::Document, 'new');
 
 foreach my $a (keys %{$attr_data}) {
-	ok($doc->add_attr($a, $attr_data->{$a}), "add_attr $a");
+	my $d = $attr_data->{$a} || die;
+	ok($doc->add_attr($a, $d), "add_attr $a");
+	cmp_ok($doc->attr($a), 'eq', $d, "attr $a = $d");
 }
 
 ok($doc->add_text('This is a demo'), 'add_text');