view release on metacpan or  search on metacpan

t/before.t  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
use lib 'lib';
use Test::More;
use XML::LibXML::jQuery;


sub test(&@);

my $html = '<div class="container"><h2>Greetings</h2><div class="inner">Hello</div><div class="inner">Goodbye</div></div>';

# before(html)
test {  $_->find('h2, .inner')->before('<p/>')  } 'before(html)';

test {  $_->find('h2, .inner')->before(j('<p/>'))  } 'before(jQuery)';

test {
    my $p = $_->new('<p/>')->append_to($_);