Add ARM files

[dh-make-perl] / dev / arm / libhtml-parser-perl / libhtml-parser-perl-3.56 / t / offset.t
diff --git a/dev/arm/libhtml-parser-perl/libhtml-parser-perl-3.56/t/offset.t b/dev/arm/libhtml-parser-perl/libhtml-parser-perl-3.56/t/offset.t

new file mode 100644 (file)

index 0000000..840728d
--- /dev/null
+++ b/dev/arm/libhtml-parser-perl/libhtml-parser-perl-3.56/t/offset.t
@@ -0,0 +1,58 @@
+use strict;
+use HTML::Parser ();
+use Test::More tests => 1;
+
+my $HTML = <<'EOT';
+
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
+ "http://www.w3.org/TR/html40/strict.dtd">
+
+<foo bar baz=3>heisan
+</foo> <?process>
+<!-- comment -->
+<xmp>xmp</xmp>
+
+EOT
+
+my $p = HTML::Parser->new(api_version => 3);
+
+my $sum_len = 0;
+my $count = 0;
+my $err;
+
+$p->handler(default =>
+           sub {
+               my($offset, $length, $offset_end, $line, $col, $text) = @_;
+               my $copy = $text;
+               $copy =~ s/\n/\\n/g;
+               substr($copy, 30) = "..." if length($copy) > 32;
+               #diag sprintf ">>> %d.%d %s", $line, $col, $copy;
+               if ($offset != $sum_len) {
+                  diag "offset mismatch $offset vs $sum_len";
+                  $err++;
+                }
+               if ($offset_end != $offset + $length) {
+                  diag "offset_end $offset_end wrong";
+                  $err++;
+                }
+               if ($length != length($text)) {
+                  diag "length mismatch";
+                  $err++;
+               }
+                if (substr($HTML, $offset, $length) ne $text) {
+                  diag "content mismatch";
+                  $err++;
+               }
+               $sum_len += $length;
+               $count++;
+           },
+           'offset,length,offset_end,line,column,text');
+
+for (split(//, $HTML)) {
+   $p->parse($_);
+}
+$p->eof;
+
+ok($count > 5 && !$err);
+
+