Gecko [ dp-client.com ]

Name	Size	Permission
00-all_prereqs.t	2.71 KB	-rw-r--r--
00system.t	1007 B	-rw-r--r--
assubs.t	1.1 KB	-rw-r--r--
attributes.t	1.12 KB	-rw-r--r--
body.t	3.17 KB	-rw-r--r--
building.t	5.1 KB	-rw-r--r--
children.t	873 B	-rw-r--r--
clonei.t	516 B	-rw-r--r--
comment.t	417 B	-rw-r--r--
construct_tree.t	4.5 KB	-rw-r--r--
doctype.t	979 B	-rw-r--r--
escape.t	2.37 KB	-rw-r--r--
leaktest.t	5.66 KB	-rw-r--r--
oldparse.html	727 B	-rw-r--r--
oldparse.t	1.83 KB	-rw-r--r--
parents.t	2.57 KB	-rw-r--r--
parse.t	5.76 KB	-rw-r--r--
parsefile.t	1.87 KB	-rw-r--r--
refloop.t	2.05 KB	-rw-r--r--
sample.txt	37 B	-rw-r--r--
split.t	2.45 KB	-rw-r--r--
subclass.t	608 B	-rw-r--r--
tag-rendering.t	1.83 KB	-rw-r--r--
unicode.t	3.61 KB	-rw-r--r--
whitespace.t	983 B	-rw-r--r--

Code Editor : tag-rendering.t

#!/usr/bin/perl -T

use warnings;
use strict;
use Test::More tests => 11;

use HTML::Element;

my $img = HTML::Element->new(
    'img',
    (   src    => 'damian-conway-in-a-dress.jpg',
        height => 540,
        width  => 100,
        border => 0,
        alt    => "A few bottles of Chech'tluth later...",
    )
);

my $href         = '/report/fullcsv';
my $literal_href = HTML::Element->new( '~literal',
    'text' => "window.location.href='$href'" );
$img->attr( onClick => $literal_href );

isa_ok( $img, 'HTML::Element' );
my $html = $img->as_HTML;
print $html, "\n";

like( $html, qr/<img .+ \/>/,    "Tag is self-closed" );
like( $html, qr/ height="540" /, "Height is quoted" );
like( $html, qr/ border="0" /,   "Border is quoted" );
like( $html, qr/ width="100" /,  "Width is quoted" );
like(
    $html,
    qr! onclick="window.location.href='$href'!,
    "Literal text is preserved"
);
like(
    $html,
    qr/ alt="A few bottles of Chech&#39;tluth later..." /,
    "Alt tag is quoted and escaped"
);

# _empty_element_map anchor test (RT 49932)
my $a = HTML::Element->new( 'a', href => 'example.com' );
my $xml = $a->as_XML();
like(
    $xml,
    qr{<a href="example.com"></a>},
    "A tag not in _empty_element_map"
);

my $empty_element_map = $a->_empty_element_map;
$empty_element_map->{'a'} = 1;

$xml = $a->as_XML();
like(
    $xml,
    qr{<a href="example.com" />},
    "A tag in _empty_element_map, no content"
);

$a->push_content("Extra content");
$xml = $a->as_XML();
like(
    $xml,
    qr{<a href="example.com">Extra content</a>},
    "A tag in _empty_element_map, with content"
);

my $text = undef;
my $input = HTML::Element->new( 'input', type => 'text', value => $text );
$html = $input->as_HTML;
like(
    $html,
    qr{<input type="text" value="value" />},
    "Setting an attribute to undef defaults the value to the attribute name"
);

${this.title}

Code Editor : tag-rendering.t