[Genabel-commits] r1007 - pkg/ProbABEL/tests

[noreply at r-forge.r-project.org]

Author: lckarssen
Date: 2012-11-05 15:14:03 +0100 (Mon, 05 Nov 2012)
New Revision: 1007

Modified:
   pkg/ProbABEL/tests/check_probabel.pl_chunk.sh
Log:
Removed arrays from the check_probabel.pl_chunk.sh script because they are not POSIX sh compatible.

Modified: pkg/ProbABEL/tests/check_probabel.pl_chunk.sh
===================================================================
--- pkg/ProbABEL/tests/check_probabel.pl_chunk.sh	2012-11-05 14:00:17 UTC (rev 1006)
+++ pkg/ProbABEL/tests/check_probabel.pl_chunk.sh	2012-11-05 14:14:03 UTC (rev 1007)
@@ -109,7 +109,7 @@
     rm -f $outfile
     echo "Checking output using dosages $WithOrWithout chunks..."
     ./probabel.pl 1 2 linear $1 --additive height
-    echo -n "  Verifying $outfile"
+    echo -n "  Verifying $outfile: "
     if diff $outfile $results/$outfile; then
 	echo -e "\t\tOK"
     else
@@ -118,20 +118,19 @@
     fi
 
     # Run an analysis on probabilities
-    outfilelist[1]="height_ngp2_2df.out.txt"
-    outfilelist[2]="height_ngp2_recess.out.txt"
-    outfilelist[3]="height_ngp2_over_domin.out.txt"
-    outfilelist[4]="height_ngp2_domin.out.txt"
-    outfilelist[5]="height_ngp2_add.out.txt"
-    for i in {1..5}; do
-	rm -f ${outfilelist[$i]}
+    outfilelist="height_ngp2_2df.out.txt height_ngp2_recess.out.txt
+    height_ngp2_over_domin.out.txt height_ngp2_domin.out.txt
+    height_ngp2_add.out.txt"
+
+    for file in $outfilelist; do
+	rm -f $file
     done
 
     echo "Checking output using probabilities $WithOrWithout chunks..."
     ./probabel.pl 1 2 linear $1 --allmodels height -o _ngp2
-    for i in {1..5}; do
-	echo -n "  Verifying ${outfilelist[$i]}"
-	if diff ${outfilelist[$i]} $results/${outfilelist[$i]}; then
+    for file in $outfilelist; do
+	echo -n "  Verifying $file: "
+	if diff $file $results/$file; then
 	    echo -e "\t\tOK"
 	else
 	    echo -e "\t\tFAILED"