add test block over a list

diff --git a/t/010-modules/050-format.t b/t/010-modules/050-format.t
index 653b0d285d67e617f8501586124a4f9475f9902b..e7dc295b5540dd4e4d3fc7a2922fce06ef2e8bc5 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 => 140;
+use Test::More tests => 141;
 
 sub format_test($$$;$);
 sub noformat_test($$$;$);
@@ -666,6 +666,18 @@ IN
 </section>
 </a>
 OUT
+
+format_test <<IN, <<OUT, 'list inside a block', 'both';
+div[#id|
+** item
+** item
+]
+IN
+<div id="id">
+<ul><li>item</li><li>item</li></ul>
+</div>
+OUT
+
   # remove_format() tests
   noformat_test 'image[foo]', '', 'image';
   noformat_test 'code[something [bar]]', 'something [bar]', 'nested []';