rio/Verif_Herezh
2
0
Fork 0
Code Releases Activity

modif Perl/test.pl : une ultime correction pour gerer les tests pour lesquels il y a des RESTART

Browse source
This commit is contained in:
troufflard 2018-03-15 21:37:19 +00:00
parent c292c1bc67
commit 454ebe764b
2 changed files with 262 additions and 849 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
Perl/test.pl
View file

@ -1222,10 +1222,16 @@ sub lancement_commande {
foreach my $cmd (@commandes) {
next if(not $cmd =~ /^(\S+)\.info$/);
$racine_finfo = $1;
$racine_lien_symbolique_finfo = "$racine_finfo".int(rand(99999999999));
#creation du lien symbolique
#creation du lien symbolique .info
system("ln -s $racine_finfo.info $racine_lien_symbolique_finfo.info");
# si un RESTART doit etre fait, il faut renommer les .BI et .PI
system("mv -f $racine_finfo.BI $racine_lien_symbolique_finfo.BI") if(-e "$racine_finfo.BI");
#idem pour le .PI
system("mv -f $racine_finfo.PI $racine_lien_symbolique_finfo.PI") if(-e "$racine_finfo.PI");
$cmd = "$racine_lien_symbolique_finfo.info";#remplacement du nom .info par "$racine_lien_symbolique_finfo.info" dans @commandes
last;
}
@ -1250,6 +1256,7 @@ sub lancement_commande {
#lancement du calcul Herezh dans un pipe
# rq : redirection de l affichage dans le fichier $fredir_tee
##############################################################
open(PIPE, "|tcsh -c \"time ./$lien_symbolique_HZ $commande\" | tee $fredir_tee");
PIPE->autoflush(1);#forcer a vider le tampon (methode autoflush du package IO::Handle)
@ -1533,7 +1540,6 @@ sub lancement_commande {
# => il faut les renommer (notamment on aura besoin du .BI et .PI si on doit faire des restarts pour les prochaines .CVisu[i], du _princ.maple pour la comparaison et meme des fichiers _Gmsh un jour peut-etre)
renommage_arborescence('.', $racine_lien_symbolique_finfo, $racine_finfo);
return $status_calcul;
}#sub lancement_commande

1099
Rapport/rapport_test_R.txt
View file

File diff suppressed because it is too large Load diff