The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
CHENRYN / NG-0.001 / t / 07-http-dom.t 
use Test::More 'no_plan';
use Test::Deep;
use lib '../lib';
use NG;

my $html = '<html><meta content="haha"><head></head><body><div id="mid">testcontent</div></body></html>';

my $hd = new HTTP::DOM->new($html);
isa_ok $hd, 'HTTP::DOM';

is $hd->find('#mid')->text, 'testcontent';
is $hd->find('meta')->attr('content'), 'haha';