X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Farm%2Flibwww-mechanize-perl%2Flibwww-mechanize-perl-1.34%2Ft%2Fform-parsing.t;fp=dev%2Farm%2Flibwww-mechanize-perl%2Flibwww-mechanize-perl-1.34%2Ft%2Fform-parsing.t;h=38b2aa5463ffcaf61401f8e247a36241ef6f8d89;hp=0000000000000000000000000000000000000000;hb=f477fa73365d491991707e7ed9217b48d6994551;hpb=da95c414033799c3a62606f299c3c00b5c77ca11 diff --git a/dev/arm/libwww-mechanize-perl/libwww-mechanize-perl-1.34/t/form-parsing.t b/dev/arm/libwww-mechanize-perl/libwww-mechanize-perl-1.34/t/form-parsing.t new file mode 100644 index 0000000..38b2aa5 --- /dev/null +++ b/dev/arm/libwww-mechanize-perl/libwww-mechanize-perl-1.34/t/form-parsing.t @@ -0,0 +1,25 @@ +#!perl -Tw + +use strict; +use warnings; +use Test::More tests=>1; +use HTML::Form; + +my $base = 'http://localhost/'; +my $content = do { local $/ = undef; }; + +my $forms = [ HTML::Form->parse( $content, $base ) ]; +is( scalar @{$forms}, 1, 'Find one form, please' ); + +__DATA__ + + +WWW::Mechanize::Shell test page + + +
+ +
+ + +