Added test cases for builtins

Added library for simple integer arithmetic functions in lib/arith.sail

WIP TeX file for formatting latex output included in lib/sail.tex

Fixes for bugs in sail_lib

1 files changed, 92 insertions, 0 deletions

diff --git a/test/builtins/run_tests.sh b/test/builtins/run_tests.sh
new file mode 100755
index 00000000..b1d19639
--- /dev/null
+++ b/test/builtins/run_tests.sh
@@ -0,0 +1,92 @@
+
+#!/usr/bin/env bash
+set -e
+
+DIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"
+cd $DIR
+SAILDIR="$DIR/../.."
+
+RED='\033[0;31m'
+GREEN='\033[0;32m'
+YELLOW='\033[0;33m'
+NC='\033[0m'
+
+rm -f $DIR/tests.xml
+
+pass=0
+fail=0
+XML=""
+
+function green {
+    (( pass += 1 ))
+    printf "$1: ${GREEN}$2${NC}\n"
+    XML+="    <testcase name=\"$1\"/>\n"
+}
+
+function yellow {
+    (( fail += 1 ))
+    printf "$1: ${YELLOW}$2${NC}\n"
+    XML+="    <testcase name=\"$1\">\n      <error message=\"$2\">$2</error>\n    </testcase>\n"
+}
+
+function red {
+    (( fail += 1 ))
+    printf "$1: ${RED}$2${NC}\n"
+    XML+="    <testcase name=\"$1\">\n      <error message=\"$2\">$2</error>\n    </testcase>\n"
+}
+
+function finish_suite {
+    printf "$1: Passed ${pass} out of $(( pass + fail ))\n\n"
+    XML="  <testsuite name=\"$1\" tests=\"$(( pass + fail ))\" failures=\"${fail}\" timestamp=\"$(date)\">\n$XML  </testsuite>\n"
+    printf "$XML" >> $DIR/tests.xml
+    XML=""
+    pass=0
+    fail=0
+}
+
+printf "<testsuites>\n" >> $DIR/tests.xml
+
+shopt -s nullglob;
+for file in $DIR/*.sail;
+do
+    if $SAILDIR/sail -no_warn -c $file 1> ${file%.sail}.c 2> /dev/null;
+    then
+	green "compiling $(basename $file) (C)" "ok";
+	if gcc -I $SAILDIR/lib/ ${file%.sail}.c -lgmp;
+	then
+	    green "compiling $(basename ${file%.sail}.c)" "ok";
+	    if $DIR/a.out;
+	    then
+		green "tested $(basename ${file%.sail}) (C)" "ok"
+	    else
+		red "tested $(basename ${file%.sail}) (C)" "fail"
+	    fi
+	else
+	    red "compiling $file" "fail"
+	fi
+    else
+	red "compiling $file" "fail"
+    fi;
+
+    if $SAILDIR/sail -no_warn -o out -ocaml $file 1> /dev/null 2> /dev/null;
+    then
+	green "compiling $(basename $file) (OCaml)" "ok"
+	if $DIR/out;
+	then
+	    green "tested $(basename ${file%.sail}) (OCaml)" "ok"
+	else
+	    red "tested $(basename ${file%.sail}) (OCaml)" "fail"
+	fi
+    else
+	red "compiling $(basename $file) (OCaml)" "fail"
+    fi;
+
+    rm -rf $DIR/_sbuild/;
+    rm -f ${file%.sail}.c;
+    rm -f a.out;
+    rm -f out
+done
+
+finish_suite "builtin testing"
+
+printf "</testsuites>\n" >> $DIR/tests.xml