Add ARM files

[dh-make-perl] / dev / arm / libhtml-parser-perl / libhtml-parser-perl-3.56 / t / largetags.t

diff --git a/dev/arm/libhtml-parser-perl/libhtml-parser-perl-3.56/t/largetags.t b/dev/arm/libhtml-parser-perl/libhtml-parser-perl-3.56/t/largetags.t
new file mode 100644 (file)
index 0000000..a9ed3ff
--- /dev/null
+++ b/dev/arm/libhtml-parser-perl/libhtml-parser-perl-3.56/t/largetags.t
@@ -0,0 +1,38 @@
+# Exercise the tokenpos buffer allocation routines by feeding it
+# very large tags.
+
+use Test::More tests => 2;
+
+use strict;
+use HTML::Parser ();
+
+my $p = HTML::Parser->new(api_version => 3);
+
+$p->handler("start" =>
+           sub {
+               my $tp = shift;
+               #diag int(@$tp), " - ", join(", ", @$tp);
+               is(@$tp, 2 + 26 * 6 * 4);
+           }, "tokenpos");
+
+$p->handler("declaration" =>
+           sub {
+               my $t = shift;
+               #diag int(@$t), " - @$t";
+               is(@$t, 26 * 6 * 2 + 1);
+           }, "tokens");
+
+$p->parse("<a ");
+for ("aa" .. "fz") {
+    $p->parse("$_=1 ");
+}
+$p->parse(">");
+
+$p->parse("<!DOCTYPE ");
+for ("aa" .. "fz") {
+    $p->parse("$_ -- $_ -- ");
+}
+$p->parse(">");
+$p->eof;
+exit;
+