--- trunk/t/1_Document.t	2006/01/28 17:58:22	96
+++ trunk/t/1_Document.t	2006/01/28 18:19:47	97
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
-use Test::More tests => 45;
+use Test::More tests => 54;
 use Test::Exception;
 use Data::Dumper;
 
@@ -19,6 +19,7 @@
 	'size' => 42,
 	'zero' => 0,
 	'foo' => 'bar',
+	'empty' => '',
 };
 
 my @test_texts = (
@@ -54,6 +55,11 @@
 
 ok(my $draft = $doc->dump_draft, 'dump_draft');
 
+foreach my $a (keys %{$attr_data}) {
+	my $regex = $a . '=' . $attr_data->{$a};
+	like($draft, qr/$regex/, "draft has $regex");
+}
+
 #diag "dump_draft:\n$draft";
 
 ok(my $doc2 = new Search::Estraier::Document($draft), 'new from draft');