add test block over a list
authorAdrian Oldham <adriann@visualthought.com.au>
Thu, 24 Oct 2013 02:41:06 +0000 (13:41 +1100)
committerTony Cook <tony@develop-help.com>
Sun, 3 Nov 2013 23:20:23 +0000 (10:20 +1100)
t/010-modules/050-format.t

index 653b0d2..e7dc295 100644 (file)
@@ -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 []';