git.maemo.org Git - dh-make-perl/blob - dev/arm/libhtml-parser-perl/libhtml-parser-perl-3.56/t/api_version.t

   1 use Test::More tests => 4;
   2
   3 use strict;
   4 use HTML::Parser ();
   5
   6 my $p = HTML::Parser->new(api_version => 3);
   7
   8 ok(!$p->handler("start"), "API version 3");
   9
  10 my $failed;
  11 eval {
  12    my $p = HTML::Parser->new(api_version => 4);
  13    $failed++;
  14 };
  15 like($@, qr/^API version 4 not supported/);
  16 ok(!$failed, "API version 4");
  17
  18 $p = HTML::Parser->new(api_version => 2);
  19
  20 is($p->handler("start"), "start", "API version 2");
  21
  22