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 : oldparse.t

#!/usr/bin/perl -T

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

use HTML::Parse;

# This is a very simple test.  It basically just ensures that the
# HTML::Parse module is parsed ok by perl and that it will interact
# nicely with the rest of our modules

our $TestInput = "t/oldparse.html";

my $HTML;
{
    local $/ = undef;
    open( "INFILE", "$TestInput" ) || die "$!";
    binmode INFILE;
    $HTML = <INFILE>;
    close(INFILE);
}

my $own_builder = new HTML::TreeBuilder;
isa_ok( $own_builder, 'HTML::TreeBuilder' );

my $obj_h = parse_html $HTML, $own_builder;
isa_ok( $obj_h, "HTML::TreeBuilder", "existing TreeBuilder handled OK." );

my $h = parse_html $HTML;
isa_ok( $h, "HTML::TreeBuilder" );

# This ensures that the output from $h->dump goes to STDOUT
my $html;
ok( $html = $h->as_HTML( undef, '  ' ), "Get html as string." );

# This is a very simple test just to ensure that we get something
# sensible back.
like( $html, qr/<BODY>/i,     "<BODY> found OK." );
like( $html, qr/www\.sn\.no/, "found www.sn.no link" );
unlike( $html, qr/comment/, "Didn't find comment" );
like( $html, qr/Gisle/, "found Gisle" );

my $bad_file = parse_htmlfile("non-existent-file.html");
ok( !$bad_file, "Properly returned undef on missing file." );

my $own_obj_parser2 = parse_htmlfile( "t/oldparse.html", $own_builder );
isa_ok( $own_obj_parser2, "HTML::TreeBuilder" );

my $h2 = parse_htmlfile("t/oldparse.html");
isa_ok( $h2, "HTML::TreeBuilder" );

ok( $html = $h2->as_HTML( undef, '  ' ), "Get html as string." );

# This is a very simple test just to ensure that we get something
# sensible back.
like( $html, qr/<BODY>/i,     "parse_htmlfile: <BODY> found OK." );
like( $html, qr/www\.sn\.no/, "parse_htmlfile: found www.sn.no link" );
unlike( $html, qr/comment/, "parse_htmlfile: found comment" );
like( $html, qr/Gisle/, "parse_htmlfile: found Gisle" );

${this.title}

Code Editor : oldparse.t