update integrate result

diff --git a/scm/OMakefile b/scm/OMakefile
index 0efc1f2..c88cb06 100644 (file)
--- a/scm/OMakefile
+++ b/scm/OMakefile
@@ -14,7 +14,7 @@ clean:
        ocaml-clean *.abc habc-scm$(EXE)
 
 integrate: habc-scm$(EXE)
-       sh example/test.sh $(absname $(ROOT)) example/*.scm
-       sh example/module/run.sh $(absname $(ROOT))
+       sh example/test.sh $(absname $(ROOT)) example/*.scm | tee $(ROOT)/integarte.log
+       sh example/module/run.sh $(absname $(ROOT)) | tee -a $(ROOT)/integarte.log
 
 

diff --git a/scm/example/module/run.sh b/scm/example/module/run.sh
index b96afd0..68e974b 100644 (file)
--- a/scm/example/module/run.sh
+++ b/scm/example/module/run.sh
@@ -2,4 +2,10 @@ ROOT=$1
 cd $(dirname $0)
 ${ROOT}/scm/habc-scm -c -I "${ROOT}/lib/habc:." fact.scm
 ${ROOT}/habc-scm -I "${ROOT}/lib/habc/:."  fact.ho  main.scm
-avmplus a.abc
+res=$(avmplus a.abc)
+
+if [[ $res == 3628800 ]]; then
+    echo "module...ok"
+else
+    echo "module...ng"
+fi

diff --git a/scm/test/codegen/abcTest.ml b/scm/test/codegen/abcTest.ml
index 3bd1989..22589a9 100644 (file)
--- a/scm/test/codegen/abcTest.ml
+++ b/scm/test/codegen/abcTest.ml
@@ -32,7 +32,7 @@ let ok x y =
   OUnit.assert_equal (to_int_list x) (to_int_list y)
 
 let _ =
-  ("ABC Module unittest" >:::
+  ("abc.ml" >:::
      ["of_script test" >::
        (fun () ->
           ok [u30 0x7F; u30 0] @@ of_script script);