[no subject]

[Patrice Dumas]

branch: master
commit 645f0227db74659df6ddbd04667e7548a3be8f9c
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Tue Jan 30 23:28:14 2024 +0100

    * contrib/mass_test/generate_perlVSC.sh: do not remove the directories
    if only one test is done.
    
    * contrib/mass_test/check_perlVSC.sh: add the possibility to check the
    diff for one test only.
---
 ChangeLog                             |  8 ++++++++
 contrib/mass_test/check_perlVSC.sh    | 15 ++++++++++++++-
 contrib/mass_test/generate_perlVSC.sh |  4 ++--
 3 files changed, 24 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index da4abe7e33..0f09b15463 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2024-01-30  Patrice Dumas  <pertusus@free.fr>
+
+       * contrib/mass_test/generate_perlVSC.sh: do not remove the directories
+       if only one test is done.
+
+       * contrib/mass_test/check_perlVSC.sh: add the possibility to check the
+       diff for one test only.
+
 2024-01-30  Patrice Dumas  <pertusus@free.fr>
 
        Index sorting in C
diff --git a/contrib/mass_test/check_perlVSC.sh 
b/contrib/mass_test/check_perlVSC.sh
index b084942018..df12d9a45a 100755
--- a/contrib/mass_test/check_perlVSC.sh
+++ b/contrib/mass_test/check_perlVSC.sh
@@ -18,7 +18,16 @@
 
 dir=result_check_perlVSC
 
-rm -rf result_check_perlVSC
+one_test=no
+if test -n "$1"; then
+  one_test=yes
+  the_test=$1
+fi
+
+if test $one_test != 'yes' ; then
+  rm -rf result_check_perlVSC
+fi
+
 mkdir -p result_check_perlVSC
 
 #set -x
@@ -34,6 +43,10 @@ for manual_proj_dir in manuals/*/ ; do
         bfile_ext=`basename $file`
         bfile=`echo $bfile_ext | sed 's/\.texi.*$//'`
 
+        if test $one_test = 'yes' && test "z$bfile" != "z$the_test" ; then
+          continue
+        fi
+
         diff_file=result_check_perlVSC/${proj_dir}-${manual_name}-${bfile}.diff
         diff -u -r perl_HTML_refs/$proj_dir/$bfile/ 
compare_C_HTML/$proj_dir/$bfile/ > $diff_file
         if test -s $diff_file ; then :
diff --git a/contrib/mass_test/generate_perlVSC.sh 
b/contrib/mass_test/generate_perlVSC.sh
index a75fe51854..c9eb6ff72b 100755
--- a/contrib/mass_test/generate_perlVSC.sh
+++ b/contrib/mass_test/generate_perlVSC.sh
@@ -32,8 +32,7 @@ mkdir -p $dir
 
 for manual_proj_dir in manuals/*/ ; do
   proj_dir=`basename $manual_proj_dir`
-  rm -rf $dir/$proj_dir
-  mkdir $dir/$proj_dir
+  test $one_test != 'yes' && rm -rf $dir/$proj_dir
   for manual_dir in $manual_proj_dir/*/ ; do
     one_manual_found=no
     for file in $manual_dir/*.texi* ; do
@@ -47,6 +46,7 @@ for manual_proj_dir in manuals/*/ ; do
         fi
 
         echo "doing $file"
+        mkdir -p $dir/$proj_dir
 
         out_dir=$dir/$proj_dir/$bfile
         rm -rf $out_dir