# -- # Copyright (C) 2001-2021 OTRS AG, https://otrs.com/ # Copyright (C) 2021 Znuny GmbH, https://znuny.org/ # -- # This software comes with ABSOLUTELY NO WARRANTY. For details, see # the enclosed file COPYING for license information (GPL). If you # did not receive this file, see https://www.gnu.org/licenses/gpl-3.0.txt. # -- use strict; use warnings; use utf8; use vars (qw($Self)); my @Tests = ( { Input => 'Some Text', Result => 'Some Text', Name => 'ToAscii - simple' }, { Input => 'Some Text', Result => 'Some Text', Name => 'ToAscii - simple' }, { Input => 'Some Text
Some URL', Result => 'Some Text [1]Some URL [1] http://example.com ', Name => 'ToAscii - simple. JavaScript in href will be removed.' }, { Input => 'Some Text
More Text', Result => 'Some Text More Text', Name => 'ToAscii - simple' }, { Input => 'Some Text
More Text', Result => 'Some Text More Text', Name => 'ToAscii - simple' }, { Input => 'Some Text
More Text', Result => 'Some Text More Text', Name => 'ToAscii - simple' }, { Input => '> This is the first test.
>
> Buenas noches,
>
', Result => "> This is the first test. > \n> Buenas noches,\n> \n", Name => 'ToAscii - simple' }, { Input => '

Martin,

I am lost. Martin says that...

--Shawn

', Result => 'Martin, ' . chr(160) . ' I am lost. Martin says that... ' . chr(160) . ' --Shawn ' . chr(160) . ' ', Name => 'ToAscii - simple' }, { Input => '

one
two
three

', Result => ' - a - b - c - one - two - three ', Name => 'ToAscii - simple' }, { Input => '

test
test
test
test
test

', Result => 'test test test test test - 1 - 2 - 3 - 4 - 5 ', Name => 'ToAscii - simple' }, { Input => "

Some Text\n\nWith new Lines

", Result => "Some Text\n\nWith new Lines\n\n", Name => 'ToAscii -

'
    },
    {
        Input  => "Some Text\n\nWith new Lines  
Some Other Text",
        Result => "Some Text\n\nWith new Lines \n\nSome Other Text",
        Name   => 'ToAscii - '
    },
    {
        Input =>
            "Some Text

With new Lines  

Some Other Text",
        Result => "> Some Text\n> \n> With new Lines \n\nSome Other Text",
        Name   => 'ToAscii - '
    },
    {
        Input =>
            "Line 0
Line 1

Line 2

Line 3",
        Result => "Line 0
> Line 1
> Line 2
> Line 3
",
        Name => 'ToAscii - Quote using  with additional parameter.'
    },
    {
        Input =>
            "mailto:html\@example.com",
        Result => "[1]mailto:html\@example.com\n\n\n\n[1] mailto:html\@example.com\n",
        Name   => 'ToAscii - '
    },
    {
        Input => 'First Line

Second Line

Third Line

Fourth Line

Fifth Line',
        Result => 'First Line
Second Line
Third Line
Fourth Line
Fifth Line',
        Name => 'ToAscii - 
 and line breaks'
    },
    {
        Input =>
            'Important Text! Some more text.',
        Result => 'Important Text! Some more text.',
        Name   => 'ToAscii - Test for bug#7937 - HTMLUtils.pm ignore to much of e-mail source code.'
    },
    {
        Input  => 'Test table cellSecond cell',
        Result => 'Test table cell Second cell ',
        Name   => 'ToAscii - Test for bug#8352 - Wrong substitution regex in HTMLUtils.pm->ToAscii.'
    },
    {
        Input  => 'a       b',
        Result => 'a b',
        Name   => 'ToAscii - Whitespace removal'
    },
    {
        Input  => 'ace',
        Result => 'ace',
        Name   => 'ToAscii - e',
        Result => 'abce',
        Name   => 'ToAscii - e',
        Result => 'abce',
        Name   => 'ToAscii - e',
        Result => 'abce',
        Name   => 'ToAscii -