* src/ltltest/reduc.test: Use ./defs and clean result.data.

* src/ltltest/Makefile.am (CLEANFILES): Clean result.data.

ChangeLog

@@ -1,3 +1,8 @@
+2004-05-14  Alexandre Duret-Lutz  <adl@src.lip6.fr>
+
+	* src/ltltest/reduc.test: Use ./defs and clean result.data.
+	* src/ltltest/Makefile.am (CLEANFILES): Clean result.data.
+
 2004-05-13  Thomas Martinez  <martinez@src.lip6.fr>
 
 	* src/ltlvisit/Makefile.am: Copyright 2004.

src/ltltest/Makefile.am

@@ -72,4 +72,4 @@ TESTS = \
   inf.test \
   reduc.test
 
-CLEANFILES = stdout expect parse.dot
+CLEANFILES = stdout expect parse.dot result.data

src/ltltest/reduc.test

@@ -22,38 +22,31 @@
 
 
 # Check for the reduc visitor.
-
+. ./defs || exit 1
-#. ./defs || exit 1
 
 set -e
 
-#FICH=${1-$srcdir/formules.ltl}
+FICH=${1-$srcdir/formules.ltl}
-FICH=${1-formules.ltl}
 
-#####################################
+for opt in 0 1 2 3; do
-
-for opt in 0 1 2 3
-  do
   rm -f result.data
-  
+
   cat $FICH |
   while read f; do
       if [ -n "$f" ] && [ "$f" != "####" ]; then
 	  ./reduc $opt "$f" >> result.data
       fi
   done
-  
+
   test $? == 0 || exit 1
-  
+
-#####################################
-  
   perl -ne 'BEGIN { $sum1 = 0; $sum2 = 0; }
 /^(\d+)\s+(\d+)/;
 $sum1 += $1;
 $sum2 += $2;
 END { print 100 - ($sum2 * 100 / $sum1); print "\n"; }
 ' < result.data
-  
+
 done
 
-#####################################
+rm -f result.data