use strict;
use Test::More;
use WWW::Mechanize::Firefox;
my $mech = eval { WWW::Mechanize::Firefox->new(
autodie => 0,
#log => [qw[debug]]
)};
if (! $mech) {
my $err = $@;
plan skip_all => "Couldn't connect to MozRepl: $@";
exit
} else {
plan tests => 4;
};
my $method = 49;
my $seq = "ARRRSFASDATRASDFSDARASDAGADFGASDRFREWFASCDSAGAREW";
$mech->get_local("50-mech-set-fields-875912.htm");
$mech->form_name('form1');
$mech->set_fields( 'sequence' => $seq );
is $mech->value('sequence'), $seq, "->set_fields sets a single value";
$mech->field( 'sequence' => "xx$seq" );
is $mech->value('sequence'), "xx$seq", "->field also sets a single value";
$mech->set_fields( 'sequence' => "1-$seq", sequence2 => "2-$seq" );
is $mech->value('sequence'), "1-$seq", "->set_fields sets two values";
is $mech->value('sequence2'), "2-$seq", "->set_fields sets two values";