1use Test::More 'no_plan';
2use Text::Chomp;
3
4use constant TEST => "Test";
5
6my $crlf = "Test\r\n";
7my $lf = "Test\n";
8my $cr = "Test\r";
9my $ff = "Test\f";
10my $uni_ls = "Test\x{2028}";
11my $uni_ps = "Test\x{2029}";
12
13is(tchomp($crlf), TEST, "Test for CRLF");
14is(tchomp($crlf), TEST, "Test for LF");
15is(tchomp($crlf), TEST, "Test for CR");
16is(tchomp($crlf), TEST, "Test for FF");
17is(tchomp($crlf), TEST, "Test for Unicode Line Separator");
18is(tchomp($crlf), TEST, "Test for Unicode Page Separator");
19