From 05ce65d7b25c5d1dfded897124fbde90f2b20ebb Mon Sep 17 00:00:00 2001 From: troufflard <> Date: Thu, 16 Apr 2015 16:14:34 +0000 Subject: [PATCH] modif script Perl/test.pl (correction probleme de chemin absolu dans la subroutine verifier_commande() ) --- .../cube_soude.her | 2 +- .../cube_soude.lis | 2 +- .../cube_soude.her | 2 +- .../cube_soude.lis | 2 +- Perl/test.pl | 33 +++++++---- Rapport/rapport_test_L.txt | 6 +- Rapport/rapport_test_R.txt | 58 +++++++++++++++---- 7 files changed, 76 insertions(+), 29 deletions(-) diff --git a/Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-elements-supperposes/cube_soude.her b/Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-elements-supperposes/cube_soude.her index e055812..da944ed 100644 --- a/Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-elements-supperposes/cube_soude.her +++ b/Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-elements-supperposes/cube_soude.her @@ -2,7 +2,7 @@ ########################################################################### # ecriture automatique d'un maillage au format .her, par Herezh++ # ########################################################################### - # version: 6.697 + # version: 6.692 diff --git a/Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-elements-supperposes/cube_soude.lis b/Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-elements-supperposes/cube_soude.lis index 3589205..130f130 100644 --- a/Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-elements-supperposes/cube_soude.lis +++ b/Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-elements-supperposes/cube_soude.lis @@ -2,7 +2,7 @@ ########################################################################### # ecriture automatique d'un maillage au format .lis, par Herezh++ # ########################################################################### - # version: 6.697 + # version: 6.692 diff --git a/Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-noeuds-voisins/cube_soude.her b/Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-noeuds-voisins/cube_soude.her index d46ffcf..0fb6b61 100644 --- a/Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-noeuds-voisins/cube_soude.her +++ b/Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-noeuds-voisins/cube_soude.her @@ -2,7 +2,7 @@ ########################################################################### # ecriture automatique d'un maillage au format .her, par Herezh++ # ########################################################################### - # version: 6.697 + # version: 6.692 diff --git a/Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-noeuds-voisins/cube_soude.lis b/Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-noeuds-voisins/cube_soude.lis index 711a58a..4ac71b0 100644 --- a/Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-noeuds-voisins/cube_soude.lis +++ b/Batterie/FONCTION_UNIQUE/UTILITAIRES/Test_R_fusion-noeuds-voisins/cube_soude.lis @@ -2,7 +2,7 @@ ########################################################################### # ecriture automatique d'un maillage au format .lis, par Herezh++ # ########################################################################### - # version: 6.697 + # version: 6.692 diff --git a/Perl/test.pl b/Perl/test.pl index 9266360..81f47ed 100755 --- a/Perl/test.pl +++ b/Perl/test.pl @@ -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 diff --git a/Rapport/rapport_test_L.txt b/Rapport/rapport_test_L.txt index 4bea00b..0e0822b 100644 --- a/Rapport/rapport_test_L.txt +++ b/Rapport/rapport_test_L.txt @@ -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) --------------------------------------- diff --git a/Rapport/rapport_test_R.txt b/Rapport/rapport_test_R.txt index 4477016..0897876 100644 --- a/Rapport/rapport_test_R.txt +++ b/Rapport/rapport_test_R.txt @@ -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) +