rio/Verif_Herezh
2
0
Fork 0
Code Releases Activity

modif script Perl/test.pl (correction probleme de chemin absolu dans la subroutine verifier_commande() )

Browse source
This commit is contained in:
troufflard 2015-04-16 16:14:34 +00:00
parent b0b055a3ca
commit 05ce65d7b2
7 changed files with 76 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-elements-supperposes/cube_soude.her
View file

@ -2,7 +2,7 @@
###########################################################################
# ecriture automatique d'un maillage au format .her, par Herezh++ #
###########################################################################
# version: 6.697
# version: 6.692

2
Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-elements-supperposes/cube_soude.lis
View file

@ -2,7 +2,7 @@
###########################################################################
# ecriture automatique d'un maillage au format .lis, par Herezh++ #
###########################################################################
# version: 6.697
# version: 6.692

2
Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-noeuds-voisins/cube_soude.her
View file

@ -2,7 +2,7 @@
###########################################################################
# ecriture automatique d'un maillage au format .her, par Herezh++ #
###########################################################################
# version: 6.697
# version: 6.692

2
Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-noeuds-voisins/cube_soude.lis
View file

@ -2,7 +2,7 @@
###########################################################################
# ecriture automatique d'un maillage au format .lis, par Herezh++ #
###########################################################################
# version: 6.697
# version: 6.692

33
Perl/test.pl
View file

@ -334,6 +334,9 @@ BOUCLE_TEST:for(my $no_test=1; $no_test<=$nb_CVisu; $no_test++) {
#ajout de "-f fic.info" a la commande Herezh
$cmd_HZ .= " -f $fichier_test.info";
#suppression du fichier .maple (raison : si il y a erreur Herezh, il n y aura pas de .maple cree et donc il y aura un risque d utiliser un ancien .maple pour la comparaison)
system("rm -f $fichier_temp_maple");
#---verification : la presence du mot-cle controle est necessaire (pour la gestion des RESTART)
# => on ajoute ce mot-cle si besoin (avant le mot-cle resultats qui est obligatoire)
if(not is_mot_in_fic("$fichier_test.info", '^\s*controle', '#')) {#ajout du mot-cle controle si besoin
@ -462,7 +465,13 @@ BOUCLE_TEST:for(my $no_test=1; $no_test<=$nb_CVisu; $no_test++) {
#execution du script (avec redirection vers un .log)
system("rm -f $script_verif.log");
system("$script_verif $exeHZ | tee $script_verif.log");
print " \#----------------\n";
print " \# Debut de l affichage produit par le script $script_verif\n";
print " \#----------------\n";
system("$script_verif $hzchemin $fichier_test.log | tee $script_verif.log");
print " \#----------------\n";
print " \# Fin de l affichage produit par le script $script_verif\n";
print " \#----------------\n";
#saisie du resultat (on s attend a trouver une chaine de la forme "resultat verification : STATUS" dans le .log)
my $resu_verif = '';
@ -970,23 +979,25 @@ sub lancement_commande {
# - nom de la commande
#
# en sortie :
# - chemin de la commande (0 si commande introuvable)
# - chemin aboslu de la commande (0 si commande introuvable)
#
sub verif_commande {
my $cmd = shift;#nom de la commande
#cas d une commande en chemin absolu
return $cmd if(-x $cmd);
#cas d une commande en chemin relatif (rq : dans le cas d un chemin relatif, si la commande n existe pas, on renvoie 0)
if($cmd =~ /^\./) {
return $cmd if(-x $cmd);
return 0;
#cas d une commande en chemin absolu ou relatif
if(-x $cmd) {
#on passe la commande en chemin absolu
$cmd = rel2abs($cmd);
return $cmd;
}
#on regarde dans la variable environnement $PATH
#sinon on regarde dans la variable environnement $PATH
foreach my $path (split(/\s*:\s*/, $ENV{PATH})) {
return "$path/$cmd" if(-x "$path/$cmd");
if(-x "$path/$cmd") {
#on s assure que c est un chemin absolu
$cmd = rel2abs("$path/$cmd");
return $cmd;
}
}
#cas ou la commande est introuvable

6
Rapport/rapport_test_L.txt
View file

@ -1,10 +1,10 @@
---------------------------------------
- RAPPORT DE TEST -
---------------------------------------
- version HZ++ : HZppfast 6.687
- version HZ++ : HZppfast 6.692
- Batterie de tests lancee
- le 14/04/2015
- a 21:31 (heure locale)
- le 16/04/2015
- a 14:39 (heure locale)
---------------------------------------

58
Rapport/rapport_test_R.txt
View file

@ -1,11 +1,11 @@
---------------------------------------
- RAPPORT DE TEST -
---------------------------------------
- version HZ++ : HZppfast 6.687
- version HZ++ : HZppfast 6.692
- Batterie de tests lancee
- le 14/04/2015
- a 21:31 (heure locale)
- le 16/04/2015
- a 14:39 (heure locale)
---------------------------------------
./Batterie/FONCTION_UNIQUE/CONTACT/Test_R_contact_axi_non_dynamique/.CVisu1
@ -283,12 +283,24 @@
- comparaison relative (precision : 1.e-3%) -> OK
-> grandeur testee : colonne [5]
- comparaison absolue (precision : 1.e-6) -> OK
- comparaison relative (precision : 1.e-3%) -> OK
- comparaison absolue (precision : 1.e-6) -> ECHEC
-> Valeur = -4.877894167738e+00
-> Valeur reference = -3.777977376754e+00
-> Difference = -1.099917
- comparaison relative (precision : 1.e-3%) -> ECHEC
-> Valeur = -4.877894167738e+00
-> Valeur reference = -3.777977376754e+00
-> Difference relative = 29.114%
-> grandeur testee : colonne [6]
- comparaison absolue (precision : 1.e-6) -> OK
- comparaison relative (precision : 1.e-3%) -> OK
- comparaison absolue (precision : 1.e-6) -> ECHEC
-> Valeur = -4.149432575540e+07
-> Valeur reference = -4.888446928246e+05
-> Difference = -41005481.062575
- comparaison relative (precision : 1.e-3%) -> ECHEC
-> Valeur = -4.149432575540e+07
-> Valeur reference = -4.888446928246e+05
-> Difference relative = 8388.243%
-> grandeur testee : colonne [7]
- comparaison absolue (precision : 1.e-6) -> OK
@ -312,15 +324,27 @@
-> grandeur testee : colonne [12]
- comparaison absolue (precision : 1.e-6) -> OK
- comparaison relative (precision : 1.e-3%) -> OK
- comparaison relative (precision : 1.e-3%) -> ECHEC
-> Valeur = -2.955148755267e-03
-> Valeur reference = -2.955587360158e-03
-> Difference relative = -0.015%
-> grandeur testee : colonne [13]
- comparaison absolue (precision : 1.e-6) -> OK
- comparaison relative (precision : 1.e-3%) -> OK
- comparaison relative (precision : 1.e-3%) -> ECHEC
-> Valeur = -2.955148755268e-03
-> Valeur reference = -2.955587360161e-03
-> Difference relative = -0.015%
-> grandeur testee : colonne [14]
- comparaison absolue (precision : 1.e-6) -> OK
- comparaison relative (precision : 1.e-3%) -> OK
- comparaison absolue (precision : 1.e-6) -> ECHEC
-> Valeur = 2.069022356592e+03
-> Valeur reference = 2.068916079252e+03
-> Difference = 0.106277
- comparaison relative (precision : 1.e-3%) -> ECHEC
-> Valeur = 2.069022356592e+03
-> Valeur reference = 2.068916079252e+03
-> Difference relative = 0.005%
./Batterie/FONCTION_UNIQUE/TYPE_DE_CALCUL/Test_R_dynamique_implicite/.CVisu1
-> grandeur testee : colonne [1]
@ -433,3 +457,15 @@
- comparaison absolue (precision : 1.e-6) -> OK
- comparaison relative (precision : 1.e-3%) -> OK
./Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-elements-supperposes/.CVisu1
-> OK (resultat fourni par le script de verification fusion_elements_supperposes.verif1)
./Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-maillage/.CVisu1
-> OK (resultat fourni par le script de verification fusion_maillage.verif1)
./Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-noeuds-voisins/.CVisu1
-> OK (resultat fourni par le script de verification fusion_noeuds_voisins.verif1)
./Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_suppression-noeuds-non-references/.CVisu1
-> OK (resultat fourni par le script de verification suppression_noeuds_non_references.verif1)