X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Farm%2Flibhtml-tree-perl%2Flibhtml-tree-perl-3.23%2Ft%2Fparsefile.t;fp=dev%2Farm%2Flibhtml-tree-perl%2Flibhtml-tree-perl-3.23%2Ft%2Fparsefile.t;h=3362c1d4231e9f66804c477e3fefa354793b8710;hp=0000000000000000000000000000000000000000;hb=f477fa73365d491991707e7ed9217b48d6994551;hpb=da95c414033799c3a62606f299c3c00b5c77ca11 diff --git a/dev/arm/libhtml-tree-perl/libhtml-tree-perl-3.23/t/parsefile.t b/dev/arm/libhtml-tree-perl/libhtml-tree-perl-3.23/t/parsefile.t new file mode 100644 index 0000000..3362c1d --- /dev/null +++ b/dev/arm/libhtml-tree-perl/libhtml-tree-perl-3.23/t/parsefile.t @@ -0,0 +1,63 @@ +#!perl -Tw +use Test::More tests=>5; +BEGIN { + use_ok( 'HTML::TreeBuilder' ); +} +use strict; + +print "#Using HTML::TreeBuilder version v$HTML::TreeBuilder::VERSION\n"; +print "#Using HTML::Element version v$HTML::Element::VERSION\n"; +print "#Using HTML::Parser version v", $HTML::Parser::VERSION || "?", "\n"; +print "#Using HTML::Entities version v", $HTML::Entities::VERSION || "?", "\n"; +print "#Using HTML::Tagset version v", $HTML::Tagset::VERSION || "?", "\n"; +print "# Running under perl version $] for $^O", + (chr(65) eq 'A') ? "\n" : " in a non-ASCII world\n"; +print "# Win32::BuildNumber ", &Win32::BuildNumber(), "\n" + if defined(&Win32::BuildNumber) and defined &Win32::BuildNumber(); +print "# MacPerl verison $MacPerl::Version\n" + if defined $MacPerl::Version; +printf + "# Current time local: %s\n# Current time GMT: %s\n", + scalar(localtime($^T)), scalar(gmtime($^T)); + + +my $tempfile = "lwp-test-$$"; + +open(F, ">$tempfile") or die "Can't open $tempfile: $!"; + +print F < +Libwww-perl test + + + + +This is some text and this is a simple link back to the +libwww-perl site. + + + + +new; +$h->parse_file($tempfile); +unlink($tempfile); + +{ +my $x = $_ = $h->as_HTML; +$x =~ s/^/# /mg; +print "# As HTML: $x#\n"; +} + +# Just make a few samples to check that we got what we expected +like($_, qr//i, "Matches Head"); +like($_, qr//i, "Matches isindex"); +like($_, qr//, "Found the img tag"); +like($_, qr/this is a simple/, "Matches simple text"); + +# /foo\s*a=b/ || $bad++; # too version-dependent