t/crunch.t

   1 # This might look like shell script, but it's actually -*- perl -*-
   2 use strict;use warnings;
   3
   4 use File::Slurp qw/read_file/;
   5 use Test::More;
   6
   7 use HTML::TreeBuilder;
   8 use HTML::Element::Library;
   9 use Test::XML;
  10
  11 sub tage {
  12
  13   my $root = "t/html/crunch/crunch";
  14
  15   my $tree = HTML::TreeBuilder->new_from_file("$root.initial")->guts;
  16
  17   $tree->crunch(look_down => [ class => 'imageElement' ], leave => 1);
  18
  19   is_xml $tree->as_XML, scalar read_file("$root.exp"), 'XML for crunch';
  20 }
  21
  22
  23 tage();
  24
  25 done_testing;