#!/usr/bin/perl -w
use lib '.'; use lib 't';
use EtTest; ettext_t_init("snakenest");
use Test; BEGIN { plan tests => 3 };
# ---------------------------------------------------------------------------
%patterns = (
q{
Testing!
- Handles different kinds of lists
- Bulleted
- Numbered
- You can nest them as far as you want.
- It's pretty decent about figuring out which level of list it
is supposed to be on.
- You don't need to change bullet markers to start a new list.
- Lettered
- Finally handles lettered lists
- Upper and lower case both work
- Here's an example
- I've been meaning to add this for some time.
- Of course, HTML can't specify how ordered lists should be
indicated, so it may be a numbered list in some
browsers. (Ok, most browsers)
- Doesn't screw up mail-ish things
- Spots preformated text sometimes
Testing!
}, 'all',
);
# ---------------------------------------------------------------------------
ok (etrun ("< data/$testname.etx", \&patterns_run_cb));
ok_all_patterns();