#!perl -Tw use strict; use Test::More tests => 5; BEGIN { use_ok( "HTML::TreeBuilder" ); } my $html =<<'EOHTML'; blah blah EOHTML WITH_DECLARATION: { # Check default state my $tree = HTML::TreeBuilder->new; isa_ok( $tree, "HTML::TreeBuilder" ); $tree->parse( $html ); $tree->eof; my @lines = split( "\n", $tree->as_HTML(undef, " ") ); like( $lines[0], qr/DOCTYPE/, "DOCTYPE is in the first line" ); } WITHOUT_DECLARATION: { my $tree = HTML::TreeBuilder->new; isa_ok( $tree, "HTML::TreeBuilder" ); $tree->store_declarations(0); $tree->parse( $html ); $tree->eof; my @lines = split( "\n", $tree->as_HTML(undef, " ") ); unlike( $lines[0], qr/DOCTYPE/, "DOCTYPE is NOT in the first line" ); }