in reply to Re^2: How to have 2 functions in one Perl file
in thread How to have 2 functions in one Perl file
Hmm, OK I think I see what you're trying to do. Try something like this, from Test::Class:
use strict; package MyTestingSuite; use parent 'Test::Class'; use Selenium::Remote::Driver; use Test::More; sub startup : Test( startup => no_plan ) { my $self = shift; $self->{browsers} = [('chrome', 'internet explorer', 'phantomJS', 'f +irefox')]; } sub title_test : Tests { my $self = shift; foreach my $browser (@{$self->{browsers}}) { my $driver = Selenium::Remote::Driver->new( browser_name => $brows +er); $driver->get("http://www.google.com"); $driver->find_element('q','name')->send_keys("Hello WebDriver!"); ok($driver->get_title =~ /Google/,"title matches google"); is($driver->get_title,'Google',"Title is google"); ok($driver->get_title eq 'Google','Title equals google'); like($driver->get_title,qr/Google/,"Title matches google"); $driver->quit(); } } sub element_test : Tests { my $self = shift; foreach my $browser (@{$self->{browsers}}) { my $driver = Selenium::Remote::Driver->new( browser_name => $brows +er); $driver->get("http://www.google.com"); $driver->pause(2000); $driver->set_window_size(640, 480); $driver->find_element('login','name') $driver->find_element('password','name') $driver->quit(); } } 1;
The relevant .t file might look like this:
use strict; use warnings; use Test::Class::Load 'MyTestingSuite';
Note: Sample code untested
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^4: How to have 2 functions in one Perl file
by Chaoui05 (Scribe) on Apr 18, 2016 at 15:29 UTC | |
by SimonPratt (Friar) on Apr 18, 2016 at 15:48 UTC | |
Re^4: How to have 2 functions in one Perl file
by Chaoui05 (Scribe) on Apr 19, 2016 at 09:35 UTC | |
by SimonPratt (Friar) on Apr 19, 2016 at 12:32 UTC |