# -- # HTMLUtils.t - HTMLUtils tests # Copyright (C) 2001-2009 OTRS AG, http://otrs.org/ # -- # $Id: HTMLUtils.t,v 1.13.2.3 2009/12/07 16:51:47 martin Exp $ # -- # This software comes with ABSOLUTELY NO WARRANTY. For details, see # the enclosed file COPYING for license information (AGPL). If you # did not receive this file, see http://www.gnu.org/licenses/agpl.txt. # -- use Kernel::System::HTMLUtils; $Self->{HTMLUtilsObject} = Kernel::System::HTMLUtils->new( %{$Self} ); # ToAscii tests 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' }, { 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 => '
  1. one
  2. two
  3. three
', Result => ' - a - b - c - one - two - three ', Name => 'ToAscii - simple' }, { Input => "
Some Text\n\nWith new Lines
", Result => "\nSome Text\n\nWith new Lines\n\n", Name => 'ToAscii - 
'
    },
    {
        Input  => "Some Text\n\nWith new Lines  
Some Other Text",
        Result => "\nSome 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 =>
            "
mailto:html\@example.com
",
        Result => "\n[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'
    },
);

for my $Test (@Tests) {
    my $Ascii = $Self->{HTMLUtilsObject}->ToAscii(
        String => $Test->{Input},
    );
    $Self->Is(
        $Ascii,
        $Test->{Result},
        $Test->{Name},
    );
}

# DocumentComplete tests
@Tests = (
    {
        Input => 'Some Text',
        Result =>
            'Some Text',
        Name => 'DocumentComplete - simple'
    },
    {
        Input  => 'Some Text',
        Result => 'Some Text',
        Name   => 'DocumentComplete - simple'
    },
);

for my $Test (@Tests) {
    my $Ascii = $Self->{HTMLUtilsObject}->DocumentComplete(
        Charset => 'iso-8859-1',
        String  => $Test->{Input},
    );
    $Self->Is(
        $Ascii,
        $Test->{Result},
        $Test->{Name},
    );
}

# DocumentStrip tests
@Tests = (
    {
        Input => '







hm there is something
wrong....
',
        Result => "
\n

hm there is something
wrong....
",
        Name => 'DocumentStrip - MSHTML'
    },
    {
        Input => '
















Hello, 










',
        Result => "
\n\n\n\n




Hello, 






\n\n\n
",
        Name => 'DocumentStrip - Generator - Microsoft Word 10 (filtered)'
    },
    {
        Input => '





xxx






 






 

',
        Result => "\n\n

xxx






 






 

",

        Name => 'DocumentStrip - Generator - Microsoft Word 10 (filtered)',
    },
);

for my $Test (@Tests) {
    my $Ascii = $Self->{HTMLUtilsObject}->DocumentStrip(
        String => $Test->{Input},
    );
    $Self->Is(
        $Ascii,
        $Test->{Result},
        $Test->{Name},
    );
}

# DocumentStyleCleanup tests
@Tests = (
    {
        Input  => '
Sehr geehrte Damen und Herren,
',
        Result => 'Sehr geehrte Damen und Herren,
',
        Name   => 'DocumentStyleCleanup - MSHTML'
    },
    {
        Input  => "Sehr geehrte Damen und Herren,
",
        Result => 'Sehr geehrte Damen und Herren,
',
        Name   => 'DocumentStyleCleanup - MSHTML'
    },
    {
        Input =>
            "Sehr geehrte Damen und Herren,
\n 
",
        Result => "Sehr geehrte Damen und Herren,
\n 
",
        Name   => 'DocumentStyleCleanup - MSHTML'
    },
    {
        Input  => "
Sehr geehrte Damen und Herren,
",
        Result => 'Sehr geehrte Damen und Herren,
',
        Name   => 'DocumentStyleCleanup - MSHTML'
    },
    {
        Input  => "Sehr geehrte Damen und Herren,
",
        Result => 'Sehr geehrte Damen und Herren,
',
        Name   => 'DocumentStyleCleanup - MSHTML'
    },
    {
        Input =>
            "Sehr geehrte Damen und Herren,
\n 
",
        Result => "Sehr geehrte Damen und Herren,
\n 
",
        Name   => 'DocumentStyleCleanup - MSHTML'
    },
    {
        Input =>
            "
Sehr geehrte Damen und Herren,
Some Other Text... ",
        Result => 'Sehr geehrte Damen und Herren,
Some Other Text... ',
        Name   => 'DocumentStyleCleanup - MSHTML'
    },
    {
        Input  => "Sehr geehrte Damen und Herren,
",
        Result => 'Sehr geehrte Damen und Herren,
',
        Name   => 'DocumentStyleCleanup - MSHTML'
    },
    {
        Input =>
            "Sehr geehrte Damen und Herren,
\n 
",
        Result => "Sehr geehrte Damen und Herren,
\n 
",
        Name   => 'DocumentStyleCleanup - MSHTML'
    },
    {
        Input =>
            "Sehr geehrte Damen und Herren,\n ",
        Result => "Sehr geehrte Damen und Herren,
\n 
",
        Name   => 'DocumentStyleCleanup - MSHTML'
    },
    {
        Input =>
            "Sehr geehrte Damen und Herren,\n
 
",
        Result => "Sehr geehrte Damen und Herren,
\n 
",
        Name   => 'DocumentStyleCleanup - MSHTML'
    },
    {
        Input  => 'Some Text',
        Result => 'Some Text',
        Name   => 'DocumentStyleCleanup - blockquote'
    },
    {
        Input => '
Some Text
',
        Result =>
            '
Some Text
',
        Name => 'DocumentStyleCleanup - blockquote'
    },
    {
        Input => '
Some Text
test
 
',
        Result =>
            '
Some Text
test
 
',
        Name => 'DocumentStyleCleanup - blockquote'
    },
);

for my $Test (@Tests) {
    my $HTML = $Self->{HTMLUtilsObject}->DocumentStyleCleanup(
        String => $Test->{Input},
    );
    $Self->Is(
        $HTML,
        $Test->{Result},
        $Test->{Name},
    );
}

# LinkQuote tests
@Tests = (
    {
        Input  => 'Some Text',
        Result => 'Some Text',
        Name   => 'LinkQuote - simple',
        Target => '',
    },
    {
        Input  => 'Some Text',
        Result => 'Some Text',
        Name   => 'LinkQuote - simple',
        Target => '',
    },
    {
        Input => 'Some Text with url http://example.com',
        Result =>
            'Some Text with url http://example.com',
        Name   => 'LinkQuote - simple',
        Target => '',
    },
    {
        Input  => 'Some Text with url http://example.com',
        Result => 'Some Text with url http://example.com',
        Name   => 'LinkQuote - simple',
        Target => '',
    },
    {
        Input  => "Some Text with url http://example.com",
        Result => "Some Text with url http://example.com",
        Name   => 'LinkQuote - simple',
        Target => '',
    },
    {
        Input  => "Some Text with url http://example.com",
        Result => "Some Text with url http://example.com",
        Name   => 'LinkQuote - simple',
        Target => '',
    },
    {
        Input =>
            'Some Text with url http://example.com and not quoted url http://example.com/?q=123',
        Result =>
            'Some Text with url http://example.com and not quoted url http://example.com/?q=123',
        Name   => 'LinkQuote - simple',
        Target => '',
    },
    {
        Input => 'Some Text with url http://example.com',
        Result =>
            'Some Text with url http://example.com',
        Name      => 'LinkQuote - simple',
        TargetAdd => 1,
        Target    => '_blank',
    },
    {
        Input =>
            'Some Text with url http://example.com and not quoted url http://example.com/?q=123',
        Result =>
            'Some Text with url http://example.com and not quoted url http://example.com/?q=123',
        Name      => 'LinkQuote - simple',
        TargetAdd => 1,
        Target    => 'new_window',
    },
    {
        Input =>
            "Some Text with url http://example.com",
        Result =>
            "Some Text with url http://example.com",
        Name   => 'LinkQuote - simple',
        Target => '',
    },
    {
        Input => 'Some Text with url http://example.com',
        Result =>
            'Some Text with url http://example.com',
        Name   => 'LinkQuote - simple',
        Target => '',
    },
    {
        Input => 'Some Text with url http://example.com ',
        Result =>
            'Some Text with url http://example.com ',
        Name   => 'LinkQuote - simple',
        Target => '',
    },
    {
        Input =>
            "http://www.example.com",
        Result =>
            "http://www.example.com",
        Name      => 'LinkQuote - simple',
        Target    => '',
        TargetAdd => 1,
    },
);

for my $Test (@Tests) {
    my $HTML = $Self->{HTMLUtilsObject}->LinkQuote(
        String    => $Test->{Input},
        Target    => $Test->{Target},
        TargetAdd => $Test->{TargetAdd},
    );
    $Self->Is(
        $HTML,
        $Test->{Result},
        $Test->{Name},
    );
}

1;