The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
MIYAGAWA / HTML-TreeBuilder-LibXML-0.11 / t / 05_empty.t 
use strict;
use Test::Base;
use HTML::TreeBuilder::LibXML;

my @tests = ("foo", "bar\nbaz", "   ", "   \n   ", "");
plan tests => 3 * @tests;

for my $t (@tests) {
    my $tree = HTML::TreeBuilder::LibXML->new;
    $tree->parse($t);
    $tree->eof;

    ok $tree;
    eval { $tree->findnodes('//a') };
    ok !$@ or diag $@;

    like $tree->as_HTML, qr/<html>/;
}