use strict; use Test::More; BEGIN { plan tests => 10 } use Syntax::Highlight::HTML; my $highlighter = new Syntax::Highlight::HTML; my $expected = ''; ## testing an empty string is( $highlighter->parse(''), "

\n

\n" ); #01 ## testing a doctype declaration is( $highlighter->parse(<<'ORIGINAL'), $expected=<<'EXPECTED' ); #02 ORIGINAL

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

EXPECTED ## testing a XML processing instruction is( $highlighter->parse(<<'ORIGINAL'), $expected=<<'EXPECTED' ); #03 ORIGINAL

<?xml version="1.0" encoding="iso-8859-1"?>

EXPECTED ## testing a SGML comment is( $highlighter->parse(<<'ORIGINAL'), $expected=<<'EXPECTED' ); #04 ORIGINAL

<!-- This is a classic SGML coment -->

EXPECTED ## testing an HTML

is( $highlighter->parse(<<'ORIGINAL'), $expected=<<'EXPECTED' ); #05

Hello, world.

ORIGINAL

<p>Hello, world.</p>

EXPECTED ## testing an HTML

, indented is( $highlighter->parse(<<'ORIGINAL'), $expected=<<'EXPECTED' ); #06

Hello, world.

ORIGINAL

    <p>Hello, world.</p>

EXPECTED ## testing an XHTML
is( $highlighter->parse(<<'ORIGINAL'), $expected=<<'EXPECTED' ); #07
ORIGINAL

<br/>

EXPECTED ## testing an XHTML
, mixed case is( $highlighter->parse(<<'ORIGINAL'), $expected=<<'EXPECTED' ); #08

ORIGINAL

<br/><Br/><bR/><BR/>

EXPECTED ## testing an HTML is( $highlighter->parse(<<'ORIGINAL'), $expected=<<'EXPECTED' ); #09 Maddingue's web site ORIGINAL

<a href="http://www.maddingue.org/">Maddingue's web site</a>

EXPECTED ## testing an HTML , splitted on several lines is( $highlighter->parse(<<'ORIGINAL'), $expected=<<'EXPECTED' ); #10 Maddingue's web site ORIGINAL

<a href="http://www.maddingue.org/" 
    title="Maddingue's web site"
    lang="fr,en" type="text/html"
  >Maddingue's web site</a>

EXPECTED