add poplink wrapping block test

diff --git a/t/010-modules/050-format.t b/t/010-modules/050-format.t
index 12e6732eac214614d8849768e761ff4fd4688d4a..b9336ffb3a83f70bf312bd7019d1558f9adfcb1b 100644 (file)
--- a/t/010-modules/050-format.t
+++ b/t/010-modules/050-format.t
@@ -1,6 +1,6 @@
 #!perl -w
 use strict;
-use Test::More tests => 138;
+use Test::More tests => 139;
 
 sub format_test($$$;$);
 sub noformat_test($$$;$);
@@ -593,6 +593,27 @@ IN
 <p>world</p>
 </div>
 </a>
+OUT
+
+format_test <<IN, <<OUT, 'poplink over div block containing paras', 'both';
+
+poplink[http://www.example.com/|
+
+div[#id class background-color: red;|
+
+hello
+
+world
+
+]
+]
+IN
+<a href="http://www.example.com/">
+<div id="id" style="background-color: red;" class="class" target="_blank">
+<p>hello</p>
+<p>world</p>
+</div>
+</a>
 OUT
 
   # remove_format() tests