Discussion :

[sliderman]

Bonjour @ tous,

Je suis un petit nouveau en Perl. J'ai chosis perl pour faire mes tests (avec selenium). Il s'agit de test sur un site web, test fonctionnels et non sur la qualité du code (qui est en PHP).

Donc voila, j'ai trouvé le moyen de lancer mes tests.
Mais par contre je voudrais les lancer sur les navigateurs de l'OS (si le script tourne sous windows, le test s'executera sous iexplorer, firefox, safari ... et si c'est sous linux le test se fera sous firefox et chrome ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
my $sys = "$^O";
 
if ( $sys eq 'linux')
{
	my @browser = ('*firefox', '*chrome',  '*opera', '*dillo');
}
elsif ( $sys eq 'MSWin32')
{
	my @browser = ('*firefox', '*chrome',  '*opera', '*safari', '*iexplore');
}
elsif ( $sys eq 'darwin')
{
	my @browser = ('*firefox', '*chrome',  '*opera', '*safari', '*shiira', '*camino');
}
else
{
	print 'Could not determine system ! aborting'."\n";
	exit 1;
}

voila, j'ai fais ce morceau de code qui teste la variable OS en perl. mais ça ne marche pas
perl ne rentre dans aucun bloc if ni même ne m'affiche

Could not determine system ! aborting

quelqu'un pourrait il me venir en aide ?

[sliderman]

j'a trouvé en fait il fallait déclarer la variable précedée de my
hors de la structure

[djibril]

Voici votre code amélioré :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
my $sys = $^O;
my %OS = (
  linux   => [ '*firefox', '*chrome', '*opera', '*dillo' ],
  MSWin32 => [ '*firefox', '*chrome', '*opera', '*safari', '*iexplore' ],
  darwin  => [ '*firefox', '*chrome', '*opera', '*safari', '*shiira', '*camino' ],
); 
 
unless ( exists $OS{$sys} ) {
    die 'Could not determine system ! aborting'."\n";
}
 
my @browser = @{$OS{$sys}};