#!/usr/bin/perl -T use warnings; use strict; use Test::More tests => 4; use 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" ); }