new pop and poplink wrapping tests

diff --git a/t/010-modules/050-format.t b/t/010-modules/050-format.t
index 70166b8af131032330a63479795ae11fd2743be3..30c3bae9bc6e10fe4d648f548851eb63521ac36b 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 => 143;
+use Test::More tests => 147;
 
 sub format_test($$$;$);
 sub noformat_test($$$;$);
@@ -753,6 +753,52 @@ IN
 <li>item</li>
 </ul>
 </div>
+OUT
+
+format_test <<IN, <<OUT, 'link starting inline containing a block with paras', 'both';
+inline text link[http://www.example.com/|div[#id class background-color: red;|hello
+
+world]]
+IN
+<p>inline text</p>
+<a href="http://www.example.com/">
+<div id="id" style="background-color: red;" class="class">
+<p>hello</p>
+<p>world</p>
+</div>
+</a>
+OUT
+
+format_test <<IN, <<OUT, 'poplink starting inline containing a block with paras', 'both';
+inline text poplink[http://www.example.com/|div[#id class background-color: red;|hello
+
+world]]
+IN
+<p>inline text</p>
+<a href="http://www.example.com/" target="_blank">
+<div id="id" style="background-color: red;" class="class">
+<p>hello</p>
+<p>world</p>
+</div>
+</a>
+OUT
+
+format_test <<IN, <<OUT, 'link starting inline containing a block', 'both';
+inline text link[http://www.example.com/|div[#id class background-color: red;|hello world]]
+IN
+<p>inline text</p>
+<a href="http://www.example.com/">
+<div id="id" style="background-color: red;" class="class">hello world</div>
+</a>
+OUT
+
+format_test <<IN, <<OUT, 'poplink starting inline containing a block', 'both';
+inline text poplink[http://www.example.com/|div[#id class background-color: red;|hello world]]
+IN
+<p>inline text</p>
+<a href="http://www.example.com/" target="_blank">
+<div id="id" style="background-color: red;" class="class">hello world</div>
+</a>
 OUT
 
   # remove_format() tests