git.maemo.org Git - pkg-perl/blob - deb-src/libhtml-parser-perl/libhtml-parser-perl-3.56/t/argspec-bad.t

   1 use Test::More tests => 6;
   2
   3 use strict;
   4 use HTML::Parser ();
   5
   6 my $p = HTML::Parser->new(api_version => 3);
   7
   8 eval {
   9    $p->handler(end => "end", q(xyzzy));
  10 };
  11 like($@, qr/^Unrecognized identifier xyzzy in argspec/);
  12
  13
  14 eval {
  15    $p->handler(end => "end", q(tagname text));
  16 };
  17 like($@, qr/^Missing comma separator in argspec/);
  18
  19
  20 eval {
  21    $p->handler(end => "end", q(tagname, "text));
  22 };
  23 like($@, qr/^Unterminated literal string in argspec/);
  24
  25
  26 eval {
  27    $p->handler(end => "end", q(tagname, "t\\t"));
  28 };
  29 like($@, qr/^Backslash reserved for literal string in argspec/);
  30
  31 eval {
  32    $p->handler(end => "end", '"' . ("x" x 256) . '"');
  33 };
  34 like($@, qr/^Literal string is longer than 255 chars in argspec/);
  35
  36 $p->handler(end => sub { is(length(shift), 255) },
  37                    '"' . ("x" x 255) . '"');
  38 $p->parse("</x>");
  39
  40