change exit code of unittest runner

If unittest is failed, exit-code is 1. Otherwise 0.

diff --git a/OMakefile b/OMakefile
index cc30551..a1d62cf 100644 (file)
--- a/OMakefile
+++ b/OMakefile
@@ -120,7 +120,7 @@ public.OUnitTest(name,files) =
        OCamlProgram($(target), $(test_file) $(src_files) $(OUNIT_LIBS))
 
        check-$(name): $(target)
-               $(addprefix ./,$(target)) | ounit-postproc
+               $(addprefix ./,$(target))
 
        check: check-$(name)
 

diff --git a/base/test/baseTest.ml b/base/test/baseTest.ml
index cdfded0..b8f3dd2 100644 (file)
--- a/base/test/baseTest.ml
+++ b/base/test/baseTest.ml
@@ -32,4 +32,4 @@ let _ =
      "group_by" >::
        (fun () ->
          ok [[1];[2;2];[3]] @@ group_by (==) [1;2;2;3])
-   ]) +> run_test_tt
+   ]) +> run_test_tt_main

diff --git a/base/test/hListTest.ml b/base/test/hListTest.ml
index d72e96e..b307fae 100644 (file)
--- a/base/test/hListTest.ml
+++ b/base/test/hListTest.ml
@@ -109,4 +109,4 @@ let _ =
      "unzip3" >::
        (fun () ->
          ok ([1;3],[2;4],[3;5]) @@ unzip3 [(1,2,3);(3,4,5)])
-   ]) +> run_test_tt
+   ]) +> run_test_tt_main

diff --git a/base/test/tupleTest.ml b/base/test/tupleTest.ml
index d44c0e6..731c2bd 100644 (file)
--- a/base/test/tupleTest.ml
+++ b/base/test/tupleTest.ml
@@ -26,5 +26,5 @@ let _ =
          (fun () ->
             ok (1,1,2) @@ Tuple.T3.map3 inc (1,1,1));
       ]
-     ]) +> run_test_tt
+     ]) +> run_test_tt_main
     

diff --git a/driver/test/colorTest.ml b/driver/test/colorTest.ml
index 814afd0..8012cb5 100644 (file)
--- a/driver/test/colorTest.ml
+++ b/driver/test/colorTest.ml
@@ -67,4 +67,4 @@ let _  = ("color.ml" >::: [
              (fun () ->
                 ok 0x123456 @@
                   Color.to_int {red=0x12; green=0x34; blue=0x56; alpha=1.0})
-         ]) +> run_test_tt
+         ]) +> run_test_tt_main

diff --git a/driver/test/ruleTest.ml b/driver/test/ruleTest.ml
index 54493f4..c839611 100644 (file)
--- a/driver/test/ruleTest.ml
+++ b/driver/test/ruleTest.ml
@@ -46,4 +46,4 @@ let tests =
        (fun _ ->
          assert_equal [] @@ temp ["foo.c"] "foo.o";
          assert_equal ["foo.o"] @@ temp ["foo.c"] "foo.exe");
-]) +> run_test_tt
+]) +> run_test_tt_main

diff --git a/scm/test/codegen/abcTest.ml b/scm/test/codegen/abcTest.ml
index 6ea47da..3bd1989 100644 (file)
--- a/scm/test/codegen/abcTest.ml
+++ b/scm/test/codegen/abcTest.ml
@@ -171,4 +171,4 @@ let _ =
               instances   = [];
               scripts     = [script];
               method_bodies = [body]})
-     ] ) +> run_test_tt
+     ] ) +> run_test_tt_main

diff --git a/scm/test/codegen/asmTest.ml b/scm/test/codegen/asmTest.ml
index c3af0f9..1358dd0 100644 (file)
--- a/scm/test/codegen/asmTest.ml
+++ b/scm/test/codegen/asmTest.ml
@@ -225,4 +225,4 @@ end
 
 (* end prefix *)
 let _ =
-  run_test_tt ("asm.ml" >::: !test_cases)
+  run_test_tt_main ("asm.ml" >::: !test_cases)

diff --git a/scm/test/codegen/bindingTest.ml b/scm/test/codegen/bindingTest.ml
index 7c9c390..97a9822 100644 (file)
--- a/scm/test/codegen/bindingTest.ml
+++ b/scm/test/codegen/bindingTest.ml
@@ -95,4 +95,4 @@ let _ =
             expr @@ `BindVar (member Global [] "Foo")]
            [class_ [];
             expr @@ var [] "Foo"]);
-   ]) +> run_test_tt
+   ]) +> run_test_tt_main

diff --git a/scm/test/codegen/bytesTest.ml b/scm/test/codegen/bytesTest.ml
index 8148d3c..f02f79d 100644 (file)
--- a/scm/test/codegen/bytesTest.ml
+++ b/scm/test/codegen/bytesTest.ml
@@ -80,4 +80,4 @@ let _ =
            same ~msg:"u8"   [s24 1; u8 1]   [label_ref l;u8 1;label l];
            same ~msg:"s24"  [s24 3; s24 1]  [label_ref l;s24 1;label l]
        );
-   ]) +> run_test_tt
+   ]) +> run_test_tt_main

diff --git a/scm/test/codegen/closureTransTest.ml b/scm/test/codegen/closureTransTest.ml
index c7b36bb..96c5027 100644 (file)
--- a/scm/test/codegen/closureTransTest.ml
+++ b/scm/test/codegen/closureTransTest.ml
@@ -41,4 +41,4 @@ let _ =
                        attrs = [];
                        methods = [public_meth "init" ["self"] @@
                                     lambda [] (var [] "self")]}])
-   ]) +> run_test_tt
+   ]) +> run_test_tt_main

diff --git a/scm/test/codegen/codegenClassTest.ml b/scm/test/codegen/codegenClassTest.ml
index c8d78fa..52b3927 100644 (file)
--- a/scm/test/codegen/codegenClassTest.ml
+++ b/scm/test/codegen/codegenClassTest.ml
@@ -187,4 +187,4 @@ let _ =
                public_meth "f" ["self"] (int 42),[`Override]
              ]);
      ]
-   ]) +> run_test_tt
+   ]) +> run_test_tt_main

diff --git a/scm/test/codegen/codegenExprTest.ml b/scm/test/codegen/codegenExprTest.ml
index fbcc80a..f3a8b12 100644 (file)
--- a/scm/test/codegen/codegenExprTest.ml
+++ b/scm/test/codegen/codegenExprTest.ml
@@ -181,4 +181,4 @@ let _ =
            ok [`PushByte 1; `PushByte 2; `Equals] @@
              call [var [] "=";int 1;int 2])
      ];
-   ]) +> run_test_tt
+   ]) +> run_test_tt_main

diff --git a/scm/test/codegen/codegenStmtTest.ml b/scm/test/codegen/codegenStmtTest.ml
index d615d03..6112808 100644 (file)
--- a/scm/test/codegen/codegenStmtTest.ml
+++ b/scm/test/codegen/codegenStmtTest.ml
@@ -30,4 +30,4 @@ let _ =
                `Swap;
                `SetProperty (qname [] "f")] @@
            define (`Public (AstUtil.qname [] "f")) (int 42));
-   ]) +> run_test_tt
+   ]) +> run_test_tt_main

diff --git a/scm/test/codegen/cpoolTest.ml b/scm/test/codegen/cpoolTest.ml
index 18e59b4..c9fc91b 100644 (file)
--- a/scm/test/codegen/cpoolTest.ml
+++ b/scm/test/codegen/cpoolTest.ml
@@ -73,4 +73,4 @@ let _ =
          let cpool2 =
            Cpool.add (`Int 42) cpool1 in
            assert_equal (Cpool.index (`Int 42) cpool1)  (Cpool.index (`Int 42) cpool2))
-   ]) +> run_test_tt
+   ]) +> run_test_tt_main

diff --git a/scm/test/codegen/moduleTest.ml b/scm/test/codegen/moduleTest.ml
index 601884f..b3c1e2e 100644 (file)
--- a/scm/test/codegen/moduleTest.ml
+++ b/scm/test/codegen/moduleTest.ml
@@ -61,4 +61,4 @@ let _ = ("module.ml" >::: [
                    define_ (Node.ghost "foo");
                    class_ (Node.ghost "Foo");
                  ]);
-        ]) +> run_test_tt
+        ]) +> run_test_tt_main

diff --git a/scm/test/codegen/overrideTest.ml b/scm/test/codegen/overrideTest.ml
index 89edd28..11d8a49 100644 (file)
--- a/scm/test/codegen/overrideTest.ml
+++ b/scm/test/codegen/overrideTest.ml
@@ -40,4 +40,4 @@ let _ = ("override.ml" >::: [
                                   meth "g",[]]]
                  [class_ foo obj [meth "f"];
                   class_ bar foo [meth "f"; meth "g"];]);
-        ]) +> run_test_tt
+        ]) +> run_test_tt_main

diff --git a/scm/test/codegen/revListTest.ml b/scm/test/codegen/revListTest.ml
index a0d86c0..37b5a46 100644 (file)
--- a/scm/test/codegen/revListTest.ml
+++ b/scm/test/codegen/revListTest.ml
@@ -34,4 +34,4 @@ let _ =
          let set2 =
            RevList.add 3 (RevList.add 2 (RevList.add 1 empty)) in
            assert_equal set1 set2)
-   ]) +> run_test_tt
+   ]) +> run_test_tt_main

diff --git a/scm/test/filter/bindingTest.ml b/scm/test/filter/bindingTest.ml
index f511093..efee344 100644 (file)
--- a/scm/test/filter/bindingTest.ml
+++ b/scm/test/filter/bindingTest.ml
@@ -231,4 +231,4 @@ let _ =
            [ expr (var ["std"] "obj")]
            [ expr (var [] "obj" )]);
 
-   ]) +> run_test_tt
+   ]) +> run_test_tt_main

diff --git a/scm/test/filter/renameTest.ml b/scm/test/filter/renameTest.ml
index 4b276c0..cea5484 100644 (file)
--- a/scm/test/filter/renameTest.ml
+++ b/scm/test/filter/renameTest.ml
@@ -89,4 +89,4 @@ let tests =
   ]
 
 let _  =
-  run_test_tt ("rename.ml" >::: tests)
+  run_test_tt_main ("rename.ml" >::: tests)

diff --git a/scm/test/interCodeTest.ml b/scm/test/interCodeTest.ml
index be4c167..d0f98c0 100644 (file)
--- a/scm/test/interCodeTest.ml
+++ b/scm/test/interCodeTest.ml
@@ -95,4 +95,4 @@ let _ =
          mo_ng [["Foo";"Bar"]] [
            module_ "Foo" (`Only [])
              [define "x" (int 42)]]);
-   ]) +> run_test_tt
+   ]) +> run_test_tt_main

diff --git a/scm/test/parser/lexerTest.ml b/scm/test/parser/lexerTest.ml
index 8b01b70..9d9ab2f 100644 (file)
--- a/scm/test/parser/lexerTest.ml
+++ b/scm/test/parser/lexerTest.ml
@@ -21,7 +21,7 @@ let token str =
   Stream.next @@ lexer str
 
 let _ =
-  ("lex module test" >::: [
+  ("lexer.ml" >::: [
      "position" >::
        (fun () ->
          let s =
@@ -81,4 +81,4 @@ foo
        (fun () ->
          ok (Kwd "'") @@ token "'";
          ok (Kwd "'") @@ token "'hoge")
-   ]) +> run_test_tt
+   ]) +> run_test_tt_main

diff --git a/scm/test/parser/lispTest.ml b/scm/test/parser/lispTest.ml
index d66895c..2e57448 100644 (file)
--- a/scm/test/parser/lispTest.ml
+++ b/scm/test/parser/lispTest.ml
@@ -314,4 +314,4 @@ let _ =
                          parse_string "(if a)");
          syntax_error (fun () ->
                          parse_string "(if a b c d)"))
-   ]) +> run_test_tt
+   ]) +> run_test_tt_main

diff --git a/scm/test/parser/sexpTest.ml b/scm/test/parser/sexpTest.ml
index 435457b..5213ecf 100644 (file)
--- a/scm/test/parser/sexpTest.ml
+++ b/scm/test/parser/sexpTest.ml
@@ -116,4 +116,4 @@ let _ =
              t_kwd ")"];
          ok [list [symbol "quote"; symbol "hello"]]
            [t_kwd "'"; t_ident "hello"])
-   ]) +> run_test_tt
+   ]) +> run_test_tt_main

diff --git a/scm/test/type/nodeTest.ml b/scm/test/type/nodeTest.ml
index 400a4bd..46af60a 100644 (file)
--- a/scm/test/type/nodeTest.ml
+++ b/scm/test/type/nodeTest.ml
@@ -47,4 +47,4 @@ let _ =
               {value= 'c'; filename="test_node.txt"; lineno=2; start_pos=0; end_pos=1};
               {value='\n'; filename="test_node.txt"; lineno=2; start_pos=1; end_pos=2};] @@
             file ())
-     ]) +> run_test_tt
+     ]) +> run_test_tt_main

diff --git a/scm/test/type/psetTest.ml b/scm/test/type/psetTest.ml
index cc9a29c..6b9f132 100644 (file)
--- a/scm/test/type/psetTest.ml
+++ b/scm/test/type/psetTest.ml
@@ -34,4 +34,4 @@ let _ =
        (fun () ->
          assert_equal true @@ PSet.mem 1 @@ PSet.of_list [3;2;1];
          assert_equal false @@ PSet.mem 100 @@ PSet.of_list [3;2;1])
-   ]) +> run_test_tt
+   ]) +> run_test_tt_main

diff --git a/xml/test/abcTest.ml b/xml/test/abcTest.ml
index 0994d99..50c48d9 100644 (file)
--- a/xml/test/abcTest.ml
+++ b/xml/test/abcTest.ml
@@ -107,4 +107,4 @@ let _ =
                `ReturnVoid ]
          | _   ->
              assert_failure "error");
-   ]) +> run_test_tt
+   ]) +> run_test_tt_main

diff --git a/xml/test/byteTest.ml b/xml/test/byteTest.ml
index 1eff8bf..29e0710 100644 (file)
--- a/xml/test/byteTest.ml
+++ b/xml/test/byteTest.ml
@@ -43,4 +43,4 @@ let tests = ("byte module test" >::: [
   "d64 is float(IEEE 754 format)" >::
     (fun _ ->
        ok 0.75 (d64 @@ of_list [0;0;0;0;0;0;0xe8;0x3f]))
-]) +> run_test_tt
+]) +> run_test_tt_main

diff --git a/xml/test/codeTest.ml b/xml/test/codeTest.ml
index 3f01be2..b609603 100644 (file)
--- a/xml/test/codeTest.ml
+++ b/xml/test/codeTest.ml
@@ -19,4 +19,4 @@ let _ =
        (fun _ ->
          ok (attr "OpGetLex" ["name","42"]) @@
            Code.to_xml (`GetLex 42l))
-   ]) +> run_test_tt
+   ]) +> run_test_tt_main

diff --git a/xml/test/swfmillTest.ml b/xml/test/swfmillTest.ml
index 56aa0f1..c8cd1a1 100644 (file)
--- a/xml/test/swfmillTest.ml
+++ b/xml/test/swfmillTest.ml
@@ -105,4 +105,4 @@ let _ =
                elem "exceptions" [];
                elem "traits" [] ]
          ]);
-   ])  +> run_test_tt
+   ])  +> run_test_tt_main