tests: add a script to test ICode generation

Signed-off-by: Jean-Sebastien Gelinas <calestar@gmail.com>
Signed-off-by: Jean Privat <jean@pryen.org>

diff --git a/tests/tests_icode.sh b/tests/tests_icode.sh
new file mode 100755 (executable)
index 0000000..e12c869
--- /dev/null
+++ b/tests/tests_icode.sh
@@ -0,0 +1,192 @@
+#!/bin/bash
+# This file is part of NIT ( http://www.nitlanguage.org ).
+#
+# Copyright 2009 Jean-Sebastien Gelinas <calestar@gmail.com>
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+usage()
+{
+       e=`basename "$0"`
+       cat<<END
+Usage: $e modulenames
+END
+}
+
+find_nitc()
+{
+       recent=`ls -t ../src/nitc ../src/nitc_[0-9] ../bin/nitc ../c_src/nitc 2>/dev/null | head -1`
+       if [[ "x$recent" == "x" ]]; then
+               echo 'Could not find nitc, aborting'
+               exit 1
+       fi
+       echo 'Using nitc from: '$recent
+       NITC=$recent
+}
+
+# The default nitc compiler
+[ -z "$NITC" ] && find_nitc
+
+if [ $# = 0 ]; then
+       usage;
+       exit
+fi
+
+ok=""
+nok=""
+
+for ii in "$@"; do
+       if [ ! -f $ii ]; then
+               echo "File '$ii' does not exist."
+               continue
+       fi
+
+       tmp=${ii/../AA}
+       if [ "x$tmp" = "x$ii" ]; then
+               oincludes="-I . -I ../lib/standard -I ../lib/standard/collection"
+       else
+               oincludes=""
+       fi
+
+       for alt in "" `sed -n 's/.*#!*\(alt[0-9]*\)#.*/\1/p' "$ii" | sort -u`; do
+               f=`basename "$ii" .nit`
+               d=`dirname "$ii"`
+               ff="$f"
+               i="$ii"
+               includes="$oincludes"
+
+               if [ "x$alt" != "x" ]; then
+                       test -d alt || mkdir -p alt
+                       i="alt/${f}_$alt.nit"
+                       ff="${ff}_$alt"
+                       sed "s/#$alt#//g;/#!$alt#/d" "$ii" > "$i"
+                       includes="$includes -I alt"
+               fi
+               ff="$ff$MARK"
+
+               echo -n "=> $i: "
+
+               # Clean-up before compile and tests
+               rm -rf .nit_compile 2> /dev/null
+
+               # Compile
+               # The point of ICode testing is to validate analysis/optimizations
+               # Force '--global' option !
+               $NITC $OPT --global --output-format icode "$i" $includes 2> "$ff.cmp.err" > "$ff.compile.log"
+               ERR=$?
+               if [ "$ERR" != 0 ]; then
+                       echo "! [======= fail: Compilation error =======]"
+                       nok="$nok $ff"
+               else
+                       TEST_FILE=$d/$ff.tests
+                       if [ ! -f $TEST_FILE ]; then
+                               echo ". [======= fail: Cannot open test file =======]"
+                               nok="$nok $ff"
+                               continue
+                       fi
+                       echo "."
+
+                       # Execute tests
+                       cptr=0
+                       while IFS=, read CLASS METHOD TYPE ATTR
+                       do
+                               ICODE_FILE=$d/.nit_compile/$CLASS.icode
+                               let cptr+=1
+                               echo -n '==> Test #'$cptr' ...... '
+
+                               if [ -f $ICODE_FILE ]; then
+                                       if [ "x$METHOD" = "xno-file" ]; then
+                                               # this is normal
+                                               echo "Failed"
+                                               nok="$nok $ff#$cptr"
+                                               continue
+                                       fi
+                                       awk '
+                                       BEGIN{
+                                               process=0
+                                       }
+                                       /'"$METHOD"'/{
+                                               process=1
+                                       }
+                                       /^$/ {
+                                               process=0
+                                       }
+                                       /'"$ATTR"'/{
+                                               if(process){
+                                                       exit -3
+                                               }
+                                       }
+                                       ' $ICODE_FILE
+                                       awkstatus=$?
+
+                                       if [ $awkstatus -ne 0 ] ; then
+                                               # Found the value !
+                                               if [ "x$TYPE" = "xno" ]; then
+                                                       # Should not have beed found
+                                                       echo "Failed"
+                                                       nok="$nok $ff#$cptr"
+                                               elif [ "x$TYPE" = "xhas" ]; then
+                                                       # Should have been found
+                                                       echo "Ok"
+                                                       ok="$ok $ff#$cptr"
+                                               else
+                                                       echo "Test file format error !!!"
+                                                       exit -1
+                                               fi
+                                       else
+                                               # Value not found
+                                               if [ "x$TYPE" = "xno" ]; then
+                                                       # Should not have beed found
+                                                       echo "Ok"
+                                                       ok="$ok $ff#$cptr"
+                                               elif [ "x$TYPE" = "xhas" ]; then
+                                                       # Should have been found
+                                                       echo "Failed"
+                                                       nok="$nok $ff#$cptr"
+                                               else
+                                                       echo "Test file format error !!!"
+                                                       exit -1
+                                               fi
+                                       fi
+                               else
+                                       # The class file was not found
+                                       if [ "x$METHOD" = "xno-file" ]; then
+                                               # this is normal
+                                               echo "Ok"
+                                               ok="$ok $ff#$cptr"
+                                       else
+                                               # Should have been found
+                                               echo "Failed"
+                                               nok="$nok $ff#$cptr"
+                                       fi
+                               fi
+                       done < $TEST_FILE
+               fi
+       done
+done
+
+echo "ok: " `echo $ok | wc -w` "/" `echo $ok $nok $nos | wc -w`
+
+if [ -n "$nok" ]; then
+       echo "fail: $nok"
+       echo "There were $(echo $nok | wc -w) errors !"
+fi
+if [ -n "$nos" ]; then
+       echo "no sav: $nos"
+fi
+
+if [ -n "$nok" ]; then
+       exit 1
+else
+       exit 0
+fi