use strict;
use Test;
-BEGIN { plan tests => 8 };
+BEGIN { plan tests => 9 };
#use Pod::Simple::Debug (10);
"heading building"
);
+print x("=over 4\n\n=item one\n\n=item two\n\nHello\n\n=back\n");
+ok(
+ x("=over 4\n\n=item one\n\n=item two\n\nHello\n\n=back\n"),
+ q{
+<dl>
+<dt><a name="one"
+>one</a></dt>
+
+<dd>
+<dt><a name="two"
+>two</a></dt>
+
+<dd>
+<p>Hello</p>
+</dd>
+</dl>
+}
+);
+
print "# And one for the road...\n";
ok 1;