git.maemo.org Git - pkg-perl/blob - deb-src/libwww-mechanize-perl/libwww-mechanize-perl-1.34/t/find_inputs.t

   1 #!perl -Tw
   2
   3 use warnings;
   4 use strict;
   5
   6 use Test::More tests => 11;
   7 use URI::file;
   8
   9 BEGIN {
  10     delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)};  # Placates taint-unsafe Cwd.pm in 5.6.1
  11     use_ok( 'WWW::Mechanize' );
  12 }
  13
  14 my $mech = WWW::Mechanize->new( cookie_jar => undef );
  15 isa_ok( $mech, 'WWW::Mechanize' );
  16
  17 my $uri = URI::file->new_abs( 't/find_inputs.html' )->as_string;
  18
  19 $mech->get( $uri );
  20 ok( $mech->success, "Fetched $uri" ) or die q{Can't get test page};
  21
  22 FIRST_FORM: {
  23     my @inputs = $mech->find_all_inputs();
  24     is( scalar @inputs, 3, 'Exactly three inputs' );
  25
  26     my @submits = $mech->find_all_submits();
  27     is( scalar @submits, 2, 'Exactly two submits' );
  28 }
  29
  30 SECOND_FORM: {
  31     $mech->form_number(2);
  32     my @inputs = $mech->find_all_inputs();
  33     is( scalar @inputs, 4, 'Exactly four inputs' );
  34
  35     my @submits = $mech->find_all_submits();
  36     is( scalar @submits, 1, 'Exactly one submit' );
  37 }
  38
  39 THIRD_FORM: {
  40     $mech->form_number(3);
  41     my @inputs = $mech->find_all_inputs();
  42     is( scalar @inputs, 5, 'Exactly five inputs' );
  43
  44     my @relatives = $mech->find_all_inputs( name_regex => qr/^Your/ );
  45     is( scalar @relatives, 4, 'Found four relatives' );
  46
  47     my @sisters = $mech->find_all_inputs( name => 'YourSister' );
  48     is( scalar @sisters, 2, 'Found two sisters' );
  49
  50     my @submit_sisters = $mech->find_all_inputs( name => 'YourSister' );
  51     is( scalar @submit_sisters, 2, 'But no sisters are submits' );
  52 }