view release on metacpan or  search on metacpan

t/data/etlists.etx  view on Meta::CPAN

Checking lists with no start-end tags.

	* list 1

	* l1 i2

	* l1 i3

Next! I prefer this one I think.

	1. foo

t/etlists.t  view on Meta::CPAN

use lib '.'; use lib 't';
use EtTest; ettext_t_init("etlists");
use Test; BEGIN { plan tests => 17 };

# ---------------------------------------------------------------------------

%patterns = (

  q{
  <p>Checking lists with no start-end tags.
</p><ul><li>list 1
</li><li>l1 i2
</li><li>l1 i3
</li></ul><p>Next!
   },
  'simple_ul',

  q{
Next! I prefer this one I think.
</p><ol type="1"><li>foo