The numbers of test successes and failures was wrong because of test_lus2lic_no_node.

src/main.ml

-(* Time-stamp: <modified the 25/04/2013 (at 09:43) by Erwan Jahier> *)
+(* Time-stamp: <modified the 25/04/2013 (at 17:09) by Erwan Jahier> *)
 
 open Verbose
 open AstV6
@@ -78,7 +78,7 @@ let (gen_autotest_files : LicPrg.t -> Ident.idref option -> Lv6MainArgs.t -> uni
     output_string stdout (lutin_file_name ^" generated.\n"); 
     let oracle_file_name = ("_"^name^"_oracle.lus") in
     let oc = open_out oracle_file_name in
-    let invars,outvars=soc.Soc.profile in
+(*     let invars,outvars=soc.Soc.profile in *)
     let locals = List.map (fun (n,t) -> n^"_bis",t) outvars in
     let invars_str  = List.map (fun (n,t) -> n^":"^(my_type_to_string t)) invars in
     let outvars_str = List.map (fun (n,t) -> n^":"^(my_type_to_string t)) outvars in

test/should_work/testCapt.lus

-package capt
+package testCapt
 
 provides 
-node capt(Hcapt : bool)
+node testCapt(Hcapt : bool)
 --          HrinstCount : bool; 
 --          indCount : int)
 returns (dataPUT : bool; 
@@ -12,7 +12,7 @@ returns (dataPUT : bool;
 body
 
 
-node capt(Hcapt : bool)
+node testCapt(Hcapt : bool)
           --HrinstCount : bool; 
           --indCount : int)
 returns (dataPUT : bool; 

test/should_work/titi.lus

@@ -16,7 +16,7 @@ tel
 -- 	t[1..2] = (truc { a = true^100; b = 0 })^2;
 
 
-node simple2(x:int) returns (
+node titi(x:int) returns (
                            o: int);
 let 
   o = simple(x);

test/site.exp

@@ -46,7 +46,7 @@ proc should_work { test_name command_line args } {
             set failed 1
             exp_continue
         }
-        "lurettetop: bye!" {
+        "lurettetop ok" {
             pass "$cl $args"
         }
         # to avoid that match_max (the expect buffer size) is reached 

utils/test_lus2lic_no_node

@@ -9,15 +9,42 @@ env=_"$node"_env.lut
 
 set -x verbose #echo on
 
-./lus2lic $lustre_file -n $node --gen-autotest -np || exit 2
-cat  $lustre_file  >> $_oracle
-
-#./lus2lic $lustre_file -n $node -lv4 -en --no-prefix >> $_oracle || exit 2
-
-./lus2lic  $_oracle -n $oracle -ec -o $oracle.ec || exit 2
-#./lus2ec  $_oracle  $oracle  -o $oracle.ec || exit 2
-
-
-./lurettetop -rp "sut:v6:$lustre_file:$node" -rp "env:lutin:$env" -rp "oracle:ec:$oracle.ec:$oracle" -go -l 10 -ns2c --stop-on-oracle-error || exit 2
-
-return 0
+if
+./lus2lic $lustre_file -n $node --gen-autotest -np;
+then
+   echo "lus2lic --gen-autotest done" 
+else
+    echo "Error"
+    exit 2
+fi
+
+#cat  $lustre_file  >> $_oracle
+
+if
+./lus2lic $lustre_file -n $node -lv4 -en --no-prefix >> $_oracle;
+then
+echo "lus2lic -lv4 done"
+else
+    echo "Error"
+    exit 2
+fi
+
+export PATH=/usr/local/tools/lustre/bin/:$PATH
+if
+    ./lus2lic  $_oracle -n $oracle -ec -o $oracle.ec
+#    lus2ec  $_oracle  $oracle  -o $oracle.ec;
+then
+echo "pollux done"
+else
+    echo "Error"
+    exit 2
+fi
+if
+./lurettetop -rp "sut:v6:$lustre_file:$node" -rp "env:lutin:$env" -rp "oracle:ec:$oracle.ec:$oracle" -go -l 10 -ns2c --stop-on-oracle-error;
+then
+echo "lurettetop ok"
+else
+     echo "error"
+     exit 2
+fi
+#exit 0