The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
YANICK / Web-Query-0.38 / t / 09_as_html.t 
use strict;
use warnings;
use Test::More;
use Web::Query;


test('Web::Query');
test('Web::Query::LibXML') if eval "require Web::Query::LibXML; 1";

done_testing;

    
sub test {
    my $class = shift;    
    diag "testing $class";
    no warnings 'redefine';
    *wq = \&{$class . "::wq" };

    my $inner = "<head></head><body><p>Hi there</p><p>How is life?</p></body>";
    my $html = "<html>$inner</html>";
    
    my $q = Web::Query->new($html);
    
    is $q->html => $inner, "html() returns inner html";
    is $q->as_html => $html, "as_html() returns element itself";
    
    my $scalar = $q->find('p')->as_html;
    my @array = $q->find('p')->as_html;
    
    is $scalar => '<p>Hi there</p>', 'called in scalar context';
    is_deeply \@array => [ '<p>Hi there</p>', q{<p>How is life?</p>} ],
        'called in list context';

    subtest 'join' => sub {
        is $q->find('p')->as_html(join => '!')
            => '<p>Hi there</p>!<p>How is life?</p>';
    };

}