vcs.maemo.org Git - dh-make-perl/blob - dev/i386/libhtml-tree-perl/libhtml-tree-perl-3.23/t/clonei.t

   1 #!perl -Tw
   2
   3 use strict;
   4 use Test::More tests => 4;
   5 BEGIN {use_ok ( "HTML::TreeBuilder");}
   6
   7 my $t = HTML::TreeBuilder->new;
   8 $t->parse('stuff <em name="foo">lalal</em>');
   9 $t->eof;
  10 my $c = $t->clone();
  11
  12 #these are correct tests. Of what, I'm not sure.
  13 ok($c->same_as($t), "\$c is the same as \$t, according to HTML::Element");
  14 ok($t->same_as($c), "\$t is the same as \$c, according to HTML::Element");
  15
  16 $c->delete();
  17 ok ($t->find_by_attribute('name', 'foo'), "My name is foo after delete" );
  18
  19 $t->delete();