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