WWW-Mechanize
7 results

 view release on metacpan or  search on metacpan

t/local/select_multiple.t  view on Meta::CPAN 

use warnings;
use strict;
use Test::More;
use Test::Fatal qw( dies_ok );

use lib 't/local';
use LocalServer ();

BEGIN {
    use_ok('WWW::Mechanize');
    delete @ENV{qw( http_proxy HTTP_PROXY )};
    delete @ENV{qw( IFS CDPATH ENV BASH_ENV )};

}

my $mech = WWW::Mechanize->new( cookie_jar => {} );
isa_ok( $mech, "WWW::Mechanize" );
ok(
    defined( $mech->cookie_jar() ),
    'this $mech starts with a cookie jar'
);

my $html = <<'HTML';
<html>
<head><title>%s</title></head>
<body>Whatever.
    <form action="foo.thing">
        <select name="chanId" MULTIPLE>
            <option value="130" selected>Anime Network</option>
            <option value="119" >COM 250</option>
        </select>
    </form>
</body>
</html>
HTML

my $server = LocalServer->spawn( html => $html );
isa_ok( $server, "LocalServer" );

dies_ok { $mech->submit_form( form_number => 1, fields => { none => 0 } ) }
'Dies without a form';

$mech->get( $server->url );
ok( $mech->success, 'Fetched OK' );

eval {
    $mech->submit_form(
        form_number => 1,
        fields      => {
            chanId => 119,
        }
    );
};
is( $@, q{}, 'submit_form, second value' );
like( $mech->uri, qr/chanId=119/, '... and the second value was set' );

eval {
    $mech->form_number(1);
    $mech->set_fields(
        chanId => 119,
    );
};
is( $@, q{}, 'set_fields, second value' );
like( $mech->uri, qr/chanId=119/, '... and the second value was set' );

eval {
    $mech->submit_form(
        form_number => 1,
        fields      => {
            chanId => [119],
        }



( run in 0.487 second using v1.01-cache-2.11-cpan-d7a12ab2c7f )