I need to perform a web service test using Shell/Perl over a menu(some link is given https://.......)

Than I need to call a method (get…..) and enter some values for 3 fields:

1 xxxxxx for username
2 x for user role
3 xxxxx for dealerid

Then I need to verify authentication as true. And also verify that menu can pull up.

I am new to this, any suggestions.

You could look at http://search.cpan.org/~ether/WWW-Me...W/Mechanize.pm and friends ...

#!/usr/bin/perl

use strict;

use WWW::Mechanize;
my $mech = WWW::Mechanize->new();

$mech->follow_link( url => 'https://**********?WSDL' );



$mech->submit_form(
form_name => '*****_UserMenu',
fields => {
$username => '*****',
$userRole => '*',
$dealerId => '****'
}
);

I have tried to implement the code. Is this the right way

I am getting errors in the code:

#!/usr/bin/perl

use strict;
use WWW::Mechanize;
use LWP::UserAgent;
use HTTP::Request;

my $mech = WWW::Mechanize->new();

$mech->follow_link( url => 'https://*************/soap/userMenu?WSDL' );

TestWS();

sub TestWS
{

my $message = "Your Request Message";

my $userAgent = LWP::UserAgent->new();
my $request = HTTP::Request->new(POST => "https://*************/soap/userMenu?WSDL");
$request->header(SOAPAction => '"https://*************/services/soap/userMenu"');
$request->content($message);
$request->content_type("text/xml; charset=utf-8");
my $response = $userAgent->request($request);

$mech->submit_form(
form_name => 'Services_UserMenu',
fields => {
$username => 'TESTHYU',
$userRole => 'J',
$dealerId => 'TESTU1A'
}
);

if($response->code == 200)
{
print "Web Service works fine";
}

else
{
print "Looks like there is a bug in the web service";
}
}


-bash-4.1# ./script_perl.pl
Global symbol "$username" requires explicit package name at ./script_perl.pl line 29.
Global symbol "$userRole" requires explicit package name at ./script_perl.pl line 30.
Global symbol "$dealerId" requires explicit package name at ./script_perl.pl line 31.
Execution of ./script_perl.pl aborted due to compilation errors.

This is probably better handled at http://www.perlmonks.org.

There are numerous web testing frameworks in Perl, including (as well as the ones mentioned) "LWP::UserAgent."

I happen to enjoy using Selenium a lot, because it runs tests "by gawd, in and with" your actual browser(s). This can be profoundly important. (It does not use Perl.)

Selenium is the correct way to do it, period. According to its manual, you can indeed script it with Perl.

Please use [CODE] [/CODE] tags.
See the underlined edits to fix the errors reported. These are basic Perl errors.

This statement of course is true ... I've done it. What I really meant is that it is happening on the client side. Selenium is driving an actual instance of an actual browser on an actual client side to beat the out of your unsuspecting application.

----
Please let me repeat the suggestion that Perl-related questions are by far best handled over at PerlMonks. (No negativity at all with regard to LQ, but PM is a specialty, specialist site populated by some of the best heads in the Perl world. Present company not included.)

Hi,I have edited the code. It was a basic error,I have just started working in perl.

I am getting new error.

-bash-4.1# cat perl_script.pl
#!/usr/bin/perl

use strict;
use WWW::Mechanize;
use LWP::UserAgent;
use HTTP::Request;

my $mech = WWW::Mechanize->new();

$mech->follow_link( url => 'https://xxxxxxxxx.com/services/soap/userMenu?WSDL' );

TestWS();

sub TestWS
{
my $username;
my $userRole;
my $dealerId;
my $message = "Your Request Message";

my $userAgent = LWP::UserAgent->new();
my $request = HTTP::Request->new(POST => "https://xxxxxx.com/services/soap/userMenu?WSDL");
$request->header(SOAPAction => '"https://xxxxxx.com/services/soap/userMenu"');
$request->content($message);
$request->content_type("text/xml; charset=utf-8");
my $response = $userAgent->request($request);

$mech->submit_form(
form_name => 'Services_Soap_UserMenu',
fields => {
$username => 'xxxxx',
$userRole => 'A',
$dealerId => 'xxx'
}
);

if($response->code == 200)
{
print "Web Service works fine";
}

else
{
print "Looks like there is a bug in the web service";
}
}

-bash-4.1# ./perl_script.pl
Link not found at ./perl_script.pl line 10.

i.e. $mech->follow_link( url => 'https://xxxxxxxxx.com/services/soap/userMenu?WSDL' );

I am not sure whether Mechanize can be used for making web service or dealing with web pages.

There's where you simply have to watch the exchange ... do it on your browser, print some logging information to STDERR to help you debug the logic in your program. You're well on your way, now.

A production-ready program is required to work ... no matter what. No matter what the host throws at it. If the statement that you cite is an error in your program, then, go fix it. (LQ is not a code-writing service.) However, if it is anything that the host might legitimately do, whether in response to an error in your program or otherwise, then your program must be prepared to handle the situation appropriately. (Whatever "appropriately" is.) If a module throws an exception (as this one apparently did), then maybe you need to catch it. (Again, "not a code-writing service," but I'm briefly telling you what this program will be expected to do.)

I presume that you have bookmarked http://search.cpan.org, and that you have diligently read every line of all the documentation on the modules that you are using. (And by the way, that is not an "RTFM!!" brush-off.)