c:\@Work\Perl\monks\MadhAric>perl proper_article_1.pl
#
# ==== testing proper_2a() ====
#
ok 1
ok 2 - end in 'a'
ok 3 - end in 'an'
ok 4 - end in 'a' then whitespace (is this possible?)
ok 5 - end in 'an' then whitespace (is this possible?)
ok 6 - end in 'a' then non-whitespace/alpha
ok 7 - end in 'an' then non-whitespace/alpha
ok 8 - leave case untouched if not adding
ok 9
ok 10 - no change needed
ok 11 - no articles
#
# ==== testing proper_2b() ====
#
ok 12
ok 13 - end in 'a'
ok 14 - end in 'an'
ok 15 - end in 'a' then whitespace (is this possible?)
ok 16 - end in 'an' then whitespace (is this possible?)
ok 17 - end in 'a' then non-whitespace/alpha
ok 18 - end in 'an' then non-whitespace/alpha
ok 19 - leave case untouched if not adding
ok 20
ok 21 - no change needed
ok 22 - no articles
#
# ==== done testing functions ====
#
ok 23 - no warnings
1..23