partest integration (alpha)

1 files changed, 906 insertions, 0 deletions

diff --git a/test/partest b/test/partest
new file mode 100755
index 0000000000..31e3680b32
--- /dev/null
+++ b/test/partest
@@ -0,0 +1,906 @@
+#!/bin/sh
+##############################################################################
+#                      __                                                    #
+#      ________ ___   / /  ___     Scala Tools Launch Script                 #
+#     / __/ __// _ | / /  / _ |    (c) 2002-2007, LAMP/EPFL                  #
+#   __\ \/ /__/ __ |/ /__/ __ |    http://scala-lang.org/                    #
+#  /____/\___/_/ |_/____/_/ | |                                              #
+#                           |/                                               #
+##############################################################################
+
+# $Id$
+
+##############################################################################
+# Error functions
+
+# Prints a warning message on stderr.
+warning() {
+    echo "$0: warning:" "$@" 1>&2;
+}
+
+# Prints an error message on stderr.
+error() {
+    echo "$0:" "$@" 1>&2;
+}
+
+# Prints an error message on stderr and exits with a non-zero status.
+abort() {
+    error "$@";
+    exit 1;
+}
+
+##############################################################################
+# Printing functions
+
+# Initializes the printf functions
+printf_initialization() {
+    case "$1" in
+        many )
+            printf_font_outline="printf \\033[1;39m";
+            printf_font_success="printf \\033[1;32m";
+            printf_font_failure="printf \\033[1;31m";
+            printf_font_warning="printf \\033[1;33m";
+            printf_font_default="printf \\033[0;39m";
+            ;;
+        some )
+            printf_font_outline="printf \\033[1m";
+            printf_font_success="printf \\033[0m";
+            printf_font_failure="printf \\033[1m";
+            printf_font_warning="printf \\033[1m";
+            printf_font_default="printf \\033[0m";
+            ;;
+        none )
+            printf_font_outline="";
+            printf_font_success="";
+            printf_font_failure="";
+            printf_font_warning="";
+            printf_font_default="";
+            ;;
+        * )
+            abort "unknown color mode \`$1'";
+            ;;
+    esac;
+}
+
+# Prints formated text in outline font.
+printf_outline() {
+    $printf_font_outline;
+    printf "$@";
+    $printf_font_default;
+}
+
+# Prints formated text in success font.
+printf_success() {
+    $printf_font_success;
+    printf "$@";
+    $printf_font_default;
+}
+
+# Prints formated text in failure font.
+printf_failure() {
+    $printf_font_failure;
+    printf "$@";
+    $printf_font_default;
+}
+
+# Prints formated text in warning font.
+printf_warning() {
+    $printf_font_warning;
+    printf "$@";
+    $printf_font_default;
+}
+
+##############################################################################
+# File name and path list conversion functions
+
+# Prints the OS-specific form of the specified Unix form file name.
+get_os_filename() {
+    [ $# = 1 ] || abort "internal error";
+    case "$UNAME" in
+        CYGWIN* ) cygpath --windows "$1";;
+        *       ) echo "$@";;
+    esac;
+}
+
+# Prints the Unix form of the specified OS-specific form file name.
+get_unix_filename() {
+    [ $# = 1 ] || abort "internal error";
+    case "$UNAME" in
+        CYGWIN* ) cygpath --unix "$1";;
+        *       ) echo "$@";;
+    esac;
+}
+
+# Prints the OS-specific form of the specified Unix form path list.
+get_os_pathlist() {
+    [ $# = 1 ] || abort "internal error";
+    case "$UNAME" in
+        CYGWIN* ) cygpath --window --path "$1";;
+        *       ) echo "$@";;
+    esac;
+}
+
+# Prints the Unix form of the specified OS-specific form path list.
+get_unix_pathlist() {
+    [ $# = 1 ] || abort "internal error";
+    case "$UNAME" in
+        CYGWIN* ) cygpath --unix --path "$1";;
+        *       ) echo "$@";;
+    esac;
+}
+
+# Collects all jar files in the given path
+get_ext_classpath() {
+    [ $# = 1 ] || abort "internal error";
+    # Constructing the extension classpath
+    cp=""
+    for ext in `ls $1/*.jar` ; do
+        if [ -z "$cp" ] ; then
+            cp="$ext"
+        else
+            cp="$cp:$ext"
+        fi
+    done
+
+    echo $cp
+}
+
+##############################################################################
+# Implementation of scalatest
+
+# Prints the scalatest usage.
+test_print_usage() {
+    [ $# = 0 ] || abort "internal error";
+    echo "Usage: `basename $0` [OPTION]... [FILE]..."
+}
+
+# Prints the scalatest help.
+test_print_help() {
+    [ $# = 0 ] || abort "internal error";
+    test_print_usage;
+    echo "";
+    echo "--auto          use filenames to select the test to run";
+    echo "--dis           next files test the class file disassembler";
+    echo "--run           next files test the interpreter and all backends";
+    echo "--jvm           next files test the JVM backend";
+    echo "--pos           next files test a compilation success";
+    echo "--neg           next files test a compilation failure";
+    echo "--res           next files test the resident compiler";
+    echo "--msil          next files test the .NET backend";
+    echo "--script        next files test Scala embedded in scripts";
+    echo "--ant           next files test the Ant tasks";
+    echo "--pending       perform the tests in the 'pending' directory";
+    echo "--shootout      next files test Debian's language shootout benchmarks";
+    echo "--quick         use the 'quick' build instead of distribution";
+    echo '--installed     use the installed programs on $PATH'
+    echo "--no-run        run no test, use results of last run";
+    echo "--show-log      show output of failed tests";
+    echo "--show-diff     show differences between actual and expected output";
+    echo "--use-fsc       use the Fast Scala compiler";
+    echo "--failed        test only files that failed last time";
+    echo "--errors=<int>  specify the number of expected errors";
+    echo "--flags=<flags> specify flags to pass on to the executable";
+    echo "--color=USAGE   control the color usage (USAGE=none|some|many)";
+    echo "--objdir=<dir>  specify where to place generated files";
+    echo "--help, -?      display this help and exit";
+    echo "--version       output version information and exit";
+    echo "";
+    echo "Report bugs to <scala@listes.epfl.ch>";
+}
+
+# Prints the scalatest version.
+test_print_version() {
+    [ $# = 0 ] || abort "internal error";
+    echo "$SCRIPT "'$Revision$';
+}
+
+# Prints the name of the specified test file.
+test_print_testing() {
+    [ $# = 1 ] || abort "internal error";
+    printf_outline "testing: ";
+    case "$1" in
+        "$TESTROOT"* )
+            printf "%-60s " "[...]`expr "$1" : "$TESTROOT\(.*\)"`";
+            return 0;
+            ;;
+    esac;
+    printf "%-60s " "$1";
+}
+
+# Prints a test success notification.
+test_print_success() {
+    [ $# = 0 ] || abort "internal error";
+    printf "[";
+    printf_success "  OK  ";
+    printf "]\\n";
+}
+
+# Prints a test failure notification.
+test_print_failure() {
+    [ $# = 0 ] || abort "internal error";
+    printf "[";
+    printf_failure "FAILED";
+    printf "]\\n";
+}
+
+# Tests resident compiler.
+test_run_res() {
+    rm -rf "$dstbase".obj &&
+    mkdir -p "$dstbase".obj &&
+    (cd "$srcdir" && cat "$testname".res | $SCALAC -d "$os_dstbase".obj -Xresident -sourcepath . "$@"; );
+    rm -rf "$dstbase".obj;
+}
+
+
+# Tests the JVM backend.
+# NB. property '-Djavacmd=$JAVACMD' is e.g used by jvm/inner.scala
+test_run_jvm() {
+    javaopts=$JAVA_OPTS;
+    if [ -f "$os_srcbase".javaopts ]; then
+        javaopts="$javaopts `cat "$os_srcbase".javaopts`"
+        if [ "$JAVA5" = "false" ]; then
+             # -Xss option available in Java versions 1.5 or newer
+             javaopts=`echo "$javaopts" | sed -e "s/-Xss[0-9]*[MmKk]//g"`
+        fi
+    fi
+    rm -rf "$dstbase".obj &&
+    mkdir -p "$dstbase".obj &&
+    (cd "$srcdir" && env JAVACMD="$JAVACMD" JAVA_OPTS="$javaopts" $SCALAC -d "$os_dstbase".obj \
+        -cp "$JVM_EXT_CLASSPATH" "$@" "$testname".scala ) &&
+    libpath=`get_os_pathlist "$dstdir"` &&
+    scala_javaopts=`echo -Djava.library.path=$libpath` &&
+    scala_lib=`get_os_filename "$SCALA_LIB"` &&
+    classpath=`get_os_pathlist "$os_dstbase".obj:$CLASSPATH` &&
+    env JAVA_OPTS="$scala_javaopts" $SCALA -Djavacmd="$JAVACMD" \
+        -Dscalatest.output=$os_dstbase.obj -Dscalatest.lib=$scala_lib \
+        -classpath $classpath:$JVM_EXT_CLASSPATH Test "jvm" &&
+    rm -rf "$dstbase".obj;
+}
+
+# Test the disassemblers.
+test_run_dis() {
+    argsfile="$srcbase".args;
+    [ ! -f "$argsfile" ] && argsfile=/dev/null;
+    rm -rf "$dstbase".obj &&
+    mkdir -p "$dstbase".obj &&
+    $SCALAC -d "$os_dstbase".obj "$@" "$os_srcbase".scala &&
+    $SCALAP -classpath "$os_dstbase".obj `cat "$argsfile"` &&
+    rm -rf "$dstbase".obj;
+}
+
+MSIL="msil"
+EXE="exe"
+# Tests the .NET backend.
+test_run_msil() {
+    assemblies=`get_os_pathlist $LATEST_ASSEM`;
+    rm -f "$dstbase".$MSIL &&
+    rm -f "$dstbase".$EXE &&
+
+    $SCALAC -nowarn -target:msil -Xassem "$os_dstbase" -Xassem-path $assemblies "$@" \
+        -sourcepath "$PREFIX/build/msil/src" "$os_srcbase".scala &&
+    case "$UNAME" in
+        CYGWIN* )
+            $ILASM /qui /nol /out="$os_dstbase".$EXE "$os_dstbase".$MSIL \
+                > /dev/null &&
+#             peverify /il "$os_dstbase".EXE > /dev/null &&
+            "$dstbase".$EXE_SUFFIX "msil";;
+        * )
+            $ILASM /output:"$os_dstbase".$EXE "$os_dstbase".$MSIL \
+                > /dev/null &&
+            monopath=`get_os_pathlist $PREFIX/build/msil:$PREFIX/lib` &&
+            env MONO_PATH="$monopath" $MONO "$dstbase.$EXE" "msil";;
+    esac &&
+    rm -f "$dstbase".$EXE &&
+    rm -f "$dstbase".$MSIL;
+}
+
+# Tests a script with Scala code embedded in it
+test_run_script() {
+    argsfile="$srcbase.args"
+    if [ ! -r "$argsfile" ]; then
+        argsfile=/dev/null
+    fi
+    chmod +x "$srcbase.scala" 2> /dev/null
+    PATH="$BIN_DIR:$PATH" "$srcbase.scala" `cat $argsfile`
+}
+
+# Tests the Scala Ant task
+test_run_ant() {
+    if [ "$BIN_DIR" = "" ]; then BINARY=installed
+    elif [ "$BIN_DIR" = "$QUICK" ]; then BINARY=quick
+    else BINARY=latest
+    fi;
+    testname=`basename "$srcbase"`;
+    buildfile=`get_os_filename "$srcdir/$testname-build.xml"`;
+    rm -rf "$dstbase".obj &&
+    $ANT -f "$buildfile" -Dbinary="$BINARY" -Dbuild.dir="$os_dstbase".obj &&
+    rm -rf "$dstbase".obj;
+}
+
+# Tests the shootout benchmarks
+test_run_shootout() {
+    javaopts=$JAVA_OPTS;
+    if [ -f "$os_srcbase".javaopts ]; then
+        javaopts="$javaopts `cat "$os_srcbase".javaopts`"
+        if [ "$JAVA5" = "false" ]; then
+             # -Xss option available in Java versions 1.5 or newer
+             javaopts=`echo "$javaopts" | sed -e "s/-Xss[0-9]*[MmKk]//g"`
+        fi
+    fi
+    rm -rf "$dstbase".obj &&
+    mkdir -p "$dstbase".obj &&
+    testfile=`get_os_filename "$dstbase".obj/test.scala` &&
+    cat "$os_srcbase".scala.runner "$os_srcbase".scala > "$testfile" &&
+    $SCALAC -d "$os_dstbase".obj -cp "$JVM_EXT_CLASSPATH" "$@" "$testfile" &&
+    scala_lib=`get_os_filename "$SCALA_LIB"` &&
+    classpath=`get_os_pathlist "$os_dstbase".obj:$CLASSPATH` &&
+    env JAVACMD="$JAVACMD" JAVA_OPTS="$javaopts" \
+        $SCALA -Dscalatest.cwd="$srcdir" -Dscalatest.output=$os_dstbase.obj \
+               -Dscalatest.lib=$scala_lib -classpath $classpath:$JVM_EXT_CLASSPATH Test &&
+    rm -rf "$dstbase".obj;
+}
+
+# Checks the specified test.
+test_check_test() {
+    [ $# = 1 ] || abort "internal error";
+    testfile="$1"; shift 1;
+    # compute test name
+    testname=`basename "$testfile" ."$TEST_EXT"`;
+
+    # compute source and destination directories (absolute paths)
+    srcdir=`dirname "$testfile"`;
+    srcdir=`cd "$srcdir"; pwd`;
+
+    dstdir="$OBJDIR""$srcdir";
+
+    # compute source and destination base names
+    srcbase="$srcdir"/"$testname";
+
+    dstbase="$dstdir"/"$testname"-$kind;
+    os_srcbase=`get_os_filename "$srcbase"`;
+    os_dstbase=`get_os_filename "$dstbase"`;
+
+    # compute flags file
+    flagsfile="$srcbase".flags;
+    [ ! -f "$flagsfile" ] && flagsfile=/dev/null;
+
+    # compute check file
+    checkfile="$srcbase"-$kind.check;
+    [ ! -f "$checkfile" ] && checkfile="$srcbase".check;
+    [ ! -f "$checkfile" ] && checkfile=/dev/null;
+
+    # compute log file
+    logfile="$dstbase".log;
+
+    # if we are testing only failed tests, skip successful tests
+    if [ "$FAILED" = "true" -a ! -f "$logfile" ]; then
+        return 0;
+    fi;
+
+    # print tested file
+    test_print_testing "$testfile";
+
+    # run test
+    if [ "$NORUN" = "true" ]; then
+        [ ! -f "$logfile" ];
+    else
+        rm -f "$logfile";
+        { [ -d "$dstdir" ] || mkdir -p "$dstdir"; } &&
+        ( test_run_$kind `cat "$flagsfile"` $FLAGS 1> "$logfile" 2>&1; ) &&
+        $DIFF "$logfile" "$checkfile" 1> /dev/null 2>&1 &&
+        rm -f "$logfile";
+    fi;
+
+    # print result
+    if [ "$?" = 0 ]; then
+        SUCCESS_COUNT=`echo "$SUCCESS_COUNT+1" | bc`;
+        test_print_success;
+    else
+        FAILURE_COUNT=`echo "$FAILURE_COUNT+1" | bc`;
+        test_print_failure;
+        [ ! -f "$logfile" ] && logfile=/dev/null;
+        [ "$SHOWLOG" = "true" ] && cat "$logfile";
+        [ "$SHOWDIFF" = "true" ] && $DIFF "$logfile" "$checkfile";
+    fi;
+}
+
+# Checks the specified file
+test_check_file() {
+    [ $# = 1 ] || abort "internal error";
+    file="$1"; shift 1;
+    for testfile in "" `find "$file" -name "*.obj" -prune -o -name "*.$TEST_EXT" -a -type f -print`; do
+        [ -z "$testfile" ] && continue;
+        test_check_test "$testfile";
+    done;
+}
+
+load_results() {
+  if [ -f "$RESFILE" ]; then
+    FAIL=`head -1 $RESFILE`;
+    SUCCESS=`head -2 $RESFILE | tail -1`;
+    FAILURE_COUNT=`echo "$FAILURE_COUNT+$FAIL" | bc`
+    SUCCESS_COUNT=`echo "$SUCCESS_COUNT+$SUCCESS" | bc`
+    rm -f "$RESFILE";
+  else
+    abort "Couldn't load TestRunner results' file";
+  fi;
+}
+
+# Checks all files of the specified kind.
+test_check_kind() {
+    [ $# -ge 2 ] || abort "internal error";
+    header="$1"; shift 1;
+    kind="$1"; shift 1;
+    testdir=`get_os_filename "$TESTROOT"`;
+    resfile=`get_os_filename "$RESFILE"`;
+    if [ "$kind" = "res" ]; then TEST_EXT="res"; else TEST_EXT="scala"; fi;
+    if [ "$kind" = "pos" -o "$kind" = "neg" ]; then
+      $SCALA -Dactors.corePoolsize=7 -Dactors.maxPoolSize=8 \
+          scala.tools.partest.TestRunner --"$kind" $testdir $resfile 2> /dev/null;
+      load_results;
+    elif [ "$kind" = "jvm" ]; then
+      javaopts=$JAVA_OPTS;
+      if [ -f "$os_srcbase".javaopts ]; then
+        javaopts="$javaopts `cat "$os_srcbase".javaopts`"
+        if [ "$JAVA5" = "false" ]; then
+             # -Xss option available in Java versions 1.5 or newer
+             javaopts=`echo "$javaopts" | sed -e "s/-Xss[0-9]*[MmKk]//g"`
+        fi;
+      fi;
+      scala_lib=`get_os_filename "$SCALA_LIB"` &&
+      classpath=`get_os_pathlist $CLASSPATH` &&
+      # -Djava.library.path
+      $SCALA -DSCALA=$SCALA -DJAVA_OPTS="$java_opts -Xss16M" \
+          -DJVMEXTCP=$JVM_EXT_CLASSPATH -Dscalatest.lib=$scala_lib -DCLASSPATH=$classpath \
+          -Dactors.corePoolsize=7 -Dactors.maxPoolSize=8 \
+          scala.tools.partest.TestRunner --"$kind" $testdir $resfile 2> /dev/null;
+      load_results;
+    elif [ "$kind" = "shootout" ]; then
+      javaopts=$JAVA_OPTS;
+      if [ -f "$os_srcbase".javaopts ]; then
+        javaopts="$javaopts `cat "$os_srcbase".javaopts`"
+        if [ "$JAVA5" = "false" ]; then
+             # -Xss option available in Java versions 1.5 or newer
+             javaopts=`echo "$javaopts" | sed -e "s/-Xss[0-9]*[MmKk]//g"`
+        fi;
+      fi;
+      for file in "" "$@"; do
+        [ -z "$file" ] && continue;
+	if [ -d "$file" ]; then
+          for file2 in "" `find "$file" -name "*.obj" -prune -o -name "*.scala" -a -type f -print`; do
+	    [ -z "$file"/"$file2" ] && continue;
+	    filename=`basename "$file"/"$file2" .scala`;
+	    rm -rf "$file"/"$filename"-"$kind".obj;
+            mkdir "$file"/"$filename"-"$kind".obj;
+            cat "$file"/"$filename".scala.runner "$file"/"$filename".scala > "$file"/"$filename"-"$kind".obj/Test.scala 2>/dev/null;
+          done
+        fi;
+      done
+      scala_lib=`get_os_filename "$SCALA_LIB"` &&
+      classpath=`get_os_pathlist $CLASSPATH` &&
+      env JAVACMD="$JAVACMDE" $SCALA -DSCALA=$SCALA -DJVMEXTCP=$JVM_EXT_CLASSPATH \
+          -Dscalatest.lib=$scala_lib -DCLASSPATH=$classpath \
+          -Dactors.corePoolsize=5 -Dactors.maxPoolSize=6 \
+          scala.tools.partest.TestRunner --"$kind" $testdir $resfile 2> /dev/null;
+      load_results;
+    else
+      for file in "" "$@"; do
+        [ -z "$file" ] && continue;
+        test_check_file "$file";
+      done
+    fi;
+    #[ -z "$header" ] && echo "";
+    
+}
+
+# Checks everything.
+test_check_all() {
+    [ $# = 0 ] || abort "internal error";
+    test_check_kind "Testing disassembler" \
+        "dis" $FILES_DIS;
+    [ "$FILES_JVM" = "" ] || test_check_kind "Testing JVM backend" \
+        "jvm" $FILES_RUN $FILES_JVM;
+    [ "$FILES_POS" = "" ] || test_check_kind "Testing compiler (on files whose compilation should succeed)" \
+        "pos" $FILES_POS;
+    [ "$FILES_NEG" = "" ] || test_check_kind "Testing compiler (on files whose compilation should fail)" \
+        "neg" $FILES_NEG;
+    test_check_kind "Testing .NET backend" \
+        "msil" $FILES_MSIL;
+    test_check_kind "Testing Scala embedded in script files"  \
+        "script" $FILES_SCRIPT;
+    test_check_kind "Testing Scala Ant tasks"  \
+        "ant" $FILES_ANT;
+    test_check_kind "Testing resident compiler" \
+        "res" $FILES_RES;
+    [ "$FILES_SHOOTOUT" = "" ] || test_check_kind "Testing shootout benchmarks" \
+        "shootout" $FILES_SHOOTOUT;        
+}
+
+
+# Adds a new file to the appropriate file list(s).
+test_add_file() {
+    [ $# = 1 ] || abort "internal error";
+    case "$1" in
+        *.scala | *.res )
+            if [ ! \( -d "$1" -o -f "$1" \) ]; then
+                abort "don't know what to do with '$1'";
+            fi;;
+        * )
+            if [ ! -d "$1" ]; then
+                abort "don't know what to do with '$1'";
+            fi;;
+    esac;
+    TEST_ALL="false";
+    case "$TEST_TYPE" in
+        auto   ) ;;
+        dis    ) FILES_DIS="$FILES_DIS $1"; return;;
+        run    ) FILES_RUN="$FILES_RUN $1"; return;;
+        jvm    ) FILES_JVM="$FILES_JVM $1"; return;;
+        pos    ) FILES_POS="$FILES_POS $1"; return;;
+        neg    ) FILES_NEG="$FILES_NEG $1"; return;;
+        res    ) FILES_RES="$FILES_RES $1"; return;;
+        msil   ) FILES_MSIL="$FILES_MSIL $1"; return;;
+        script ) FILES_SCRIPT="$FILES_SCRIPT $1"; return;;
+        ant    ) FILES_ANT="$FILES_ANT $1"; return;;
+        shootout ) FILES_SHOOTOUT="$FILES_SHOOTOUT $1"; return;;
+        *      ) abort "unknown test type \`$TEST_TYPE'";;
+    esac;
+    case "$1" in
+        dis  | */dis  | */dis/*  | dis/*  ) FILES_DIS="$FILES_DIS $1";;
+        run  | */run  | */run/*  | run/*  ) FILES_RUN="$FILES_RUN $1";;
+        jvm5 | */jvm5 | */jvm5*  | jvm5/* )
+            if [ "$JAVA5" = "true" ]; then
+                FILES_JVM="$FILES_JVM $1"
+            fi;;
+        jvm  | */jvm  | */jvm/*  | jvm/*  ) FILES_JVM="$FILES_JVM $1";;
+        pos  | */pos  | */pos/*  | pos/*  ) FILES_POS="$FILES_POS $1";;
+        neg  | */neg  | */neg/*  | neg/*  ) FILES_NEG="$FILES_NEG $1";;
+        res  | */res  | */res/*  | res/*  ) FILES_RES="$FILES_RES $1";;
+        msil | */msil | */msil/* | msil/* ) FILES_MSIL="$FILES_MSIL $1";;
+        script | */script | */script/* | script/* ) FILES_SCRIPT="$FILES_SCRIPT $1";;
+        shootout | */shootout | */shootout/* | shootout/* ) FILES_SHOOTOUT="$FILES_SHOOTOUT $1";;
+        * ) abort "don't known what to do with \`$1'";;
+    esac;
+}
+
+test_get_location() {
+    [ $# = 1 ] || abort "internal error";
+    source="$1"; shift 1;
+    script=`basename "$source"`;
+    while [ -h "$source" ]; do
+        script=`basename "$source"`;
+        lookup=`ls -ld "$source"`;
+        target=`expr "$lookup" : '.*-> \(.*\)$'`;
+        if expr "${target:-.}/" : '/.*/$' > /dev/null; then
+            source=${target:-.};
+        else
+            source=`dirname "$source"`/${target:-.};
+       fi;
+    done;
+    location=`dirname "$source"`;
+    location=`cd "$location"; pwd`;
+    echo $location;
+}
+
+##############################################################################
+# Definition of UNAME, SOURCE, SCRIPT and PREFIX
+
+unset SCRIPT;
+UNAME=`uname`;
+SOURCE=$0;
+SCRIPT=`basename "$SOURCE"`;
+while [ -h "$SOURCE" ]; do
+    SCRIPT=`basename "$SOURCE"`;
+    LOOKUP=`ls -ld "$SOURCE"`;
+    TARGET=`expr "$LOOKUP" : '.*-> \(.*\)$'`;
+    if expr "${TARGET:-.}/" : '/.*/$' > /dev/null; then
+        SOURCE=${TARGET:-.};
+    else
+        SOURCE=`dirname "$SOURCE"`/${TARGET:-.};
+    fi;
+done;
+PREFIX=`dirname "$SOURCE"`/..;
+PREFIX=`cd "$PREFIX"; pwd`;
+
+##############################################################################
+# Invocation of $SCRIPT
+
+NORUN="false";
+SHOWLOG="false";
+SHOWDIFF="false";
+USEFSC="false";
+FAILED="false";
+ERRORS=0;
+SUCCESS_COUNT=0;
+FAILURE_COUNT=0;
+if [ -d "$PREFIX/test" ]; then
+    TESTROOT="$PREFIX/test";
+elif [ -d "$PREFIX/misc/scala-test" ]; then
+    TESTROOT="$PREFIX/misc/scala-test";
+else
+    abort "Test directory not found";
+fi;
+SRCDIR="$TESTROOT/files";
+OBJDIR="""";
+
+TEST_ALL="true";
+TEST_TYPE="auto";
+FILES_RUN="";
+FILES_JVM="";
+FILES_POS="";
+FILES_RES="";
+FILES_NEG="";
+FILES_MSIL="";
+FILES_SCRIPT="";
+FILES_DIS="";
+FILES_ANT="";
+FILES_SHOOTOUT="";
+
+QUICK="$PREFIX/build/quick/bin"
+QUICK_LIB="$PREFIX/build/quick/lib/library"
+QUICK_COMP="$PREFIX/build/quick/lib/compiler"
+QUICK_ACT="$PREFIX/build/quick/lib/actors"
+QUICK_PAR="$PREFIX/build/quick/lib/partest"
+
+JVM_EXT_CLASSPATH=`get_ext_classpath $TESTROOT/files/lib`
+
+if [ -d "$PREFIX/dists" ]; then
+    LATEST="$PREFIX/dists/latest/bin";
+    LATEST_LIB="$PREFIX/dists/latest/lib/scala-library.jar";
+    LATEST_COMP="$PREFIX/dists/latest/lib/scala-compiler.jar";
+    LATEST_PAR="$PREFIX/dists/latest/lib/scala-partest.jar";
+    LATEST_PREDEF="$PREFIX/dists/latest/lib/predef.dll";
+    LATEST_ASSEM="$LATEST_PREDEF;$PREFIX/lib/scalaruntime.dll:$PREFIX/lib/mscorlib.dll";
+elif [ -d "$PREFIX/build" ]; then
+    LATEST="$QUICK";
+    LATEST_LIB=$QUICK_LIB
+    LATEST_COMP=$QUICK_COMP
+    LATEST_ACT=$QUICK_ACT
+    LATEST_PAR=$QUICK_PAR
+    LATEST_PREDEF="$PREFIX/build/quick/lib/predef.dll";
+    LATEST_ASSEM="$LATEST_PREDEF:$PREFIX/build/quick/lib/scalaruntime.dll:$PREFIX/build/quick/lib/mscorlib.dll";
+elif [ -d "$PREFIX/bin" ]; then
+    LATEST="$PREFIX/bin";
+    LATEST_LIB="$PREFIX/lib/scala-library.jar";
+    LATEST_COMP="$PREFIX/lib/scala-compiler.jar";
+    LATEST_PAR="$PREFIX/lib/scala-partest.jar";
+    LATEST_PREDEF="$PREFIX/lib/predef.dll";
+    LATEST_ASSEM="$LATEST_PREDEF:$PREFIX/lib/scalaruntime.dll:$PREFIX/lib/mscorlib.dll";
+else
+    abort "Scala binaries could not be found";
+fi;
+BIN_DIR="$LATEST/"  # BIN_DIR should have a trailing / when needed, so that
+                    # it can also be set to the empty string
+
+SCALA_LIB="$LATEST_LIB";
+SCALA_COMP="$LATEST_COMP";
+SCALA_ACT="$LATEST_ACT";
+SCALA_PAR="$LATEST_PAR";
+
+[ -x "$JAVACMD" ] || JAVACMD=java;
+[ -n "$JAVA_OPTS" ] || JAVA_OPTS="-Xmx256M -Xms16M";
+case `$JAVACMD \-version 2>&1 | xargs` in
+    *1.5.*IBM* ) JAVA5="true"; IBM_J9="true"; JAVA_OPTS="$JAVA_OPTS -Xss2M";;
+    *1.6.*IBM* ) JAVA5="true"; IBM_J9="true";;
+    *1.[5-7].* ) JAVA5="true";;
+    *1.4.*GNU* ) JAVA5="false"; GIJ="true"; JAVA_OPTS="--mx256m --ms16m";;
+             * ) JAVA5="false";;
+esac;
+
+DIFF="diff";
+
+case `uname` in
+    CYGWIN* )
+        DIFF="diff --text --strip-trailing-cr";
+        ;;
+esac;
+
+while [ $# -gt 0 ]; do
+    case "$1" in
+        --auto       ) TEST_TYPE="auto"; shift 1;;
+        --dis        ) TEST_TYPE="dis"; shift 1;;
+        --run        ) TEST_TYPE="run"; shift 1;;
+        --jvm        ) TEST_TYPE="jvm"; shift 1;;
+        --pos        ) TEST_TYPE="pos"; shift 1;;
+        --neg        ) TEST_TYPE="neg"; shift 1;;
+        --res        ) TEST_TYPE="res"; shift 1;;
+        --msil       ) TEST_TYPE="msil"; shift 1;;
+        --script     ) TEST_TYPE="script"; shift 1;;
+        --ant        ) TEST_TYPE="ant"; shift 1;;
+        --shootout   ) TEST_TYPE="shootout"; shift 1;;
+        --quick      ) BIN_DIR="$QUICK/"; SCALA_LIB=$QUICK_LIB;
+                       SCALA_COMP=$QUICK_COMP; SCALA_ACT=$QUICK_ACT;
+                       SCALA_PAR=$QUICK_PAR; shift 1;;
+        --installed  ) BIN_DIR=""; shift 1;;
+        --no-run     ) NORUN="true"; shift 1;;
+        --show-log   ) SHOWLOG="true"; shift 1;;
+        --show-diff  ) SHOWDIFF="true"; shift 1;;
+        --use-fsc    ) USEFSC="true"; shift 1;;
+        --failed     ) FAILED="true"; shift 1;;
+        --pending    ) SRCDIR="$TESTROOT/pending"; shift 1;;
+        --errors=    ) abort "illegal empty argument for option --errors";;
+        --errors=*   ) ERRORS=`expr "$1" : "--errors=\([0-9]*\)$"`;shift 1;;
+        --flags=     ) abort "illegal empty argument for option --flags";;
+        --flags=*    ) FLAGS=`expr "$1" : "--flags=\(.*\)"`; shift 1;;
+        --color=     ) abort "illegal empty argument for option --color";;
+        --color=*    ) COLOR=`expr "$1" : "--color=\(.*\)"`; shift 1;;
+        --objdir=*   ) OBJDIR=`expr "$1" : "--objdir=\(.*\)"`; shift 1;;
+        --help| -?   ) test_print_help; exit 0;;
+        --version    ) test_print_version; exit 0;;
+	--profile    ) JAVACMDE="$JAVACMD -agentpath:/localhome/thhofer/netbeans-5.5.1/profiler1/lib/deployed/jdk15/linux/libprofilerinterface.so=/localhome/thhofer/netbeans-5.5.1/profiler1/lib,5140"; shift 1;; 
+        -*           ) abort "unknown option $1";;
+        *            ) test_add_file "$1"; shift 1;;
+    esac;
+done;
+
+[ -x "$JAVACMDE" ] || JAVACMDE=java;
+
+if [ "$JAVA5" = "true" -a "$TEST_TYPE" != "msil" ]; then
+    FLAGS="$FLAGS -target:jvm-1.5"
+fi;
+
+if [ -z "$ERRORS" ]; then
+    abort "illegal non-numerical argument for option --errors";
+fi;
+
+if [ -z "$COLOR" -a -n "$EMACS" ]; then
+    COLOR="none";
+fi;
+printf_initialization "${COLOR:-many}";
+
+if [ "$TEST_ALL" = "true" ]; then
+    case "$TEST_TYPE" in
+        dis ) FILES_DIS="$FILES_DIS $SRCDIR/dis";;
+    esac;
+    case "$TEST_TYPE" in
+        run ) FILES_RUN="$FILES_RUN $SRCDIR/run";;
+    esac;
+    case "$TEST_TYPE" in
+        auto | shootout ) FILES_SHOOTOUT="$FILES_SHOOTOUT $SRCDIR/shootout";;
+    esac;    
+    case "$TEST_TYPE" in
+        auto | jvm )
+            FILES_JVM="$FILES_JVM $SRCDIR/run $SRCDIR/jvm"
+            if [ "$JAVA5" = "true" ]; then
+                FILES_JVM="$FILES_JVM $SRCDIR/jvm5";
+            fi;;
+    esac;
+    case "$TEST_TYPE" in
+        auto | pos ) FILES_POS="$FILES_POS $SRCDIR/pos";;
+    esac;
+    case "$TEST_TYPE" in
+        auto | neg ) FILES_NEG="$FILES_NEG $SRCDIR/neg";;
+    esac;
+    case "$TEST_TYPE" in
+        auto | res ) FILES_RES="$FILES_RES $SRCDIR/res";;
+    esac;
+    case "$TEST_TYPE" in
+        msil ) FILES_MSIL="$FILES_MSIL $SRCDIR/run";;
+    esac;
+    case "$TEST_TYPE" in
+        auto | script ) FILES_SCRIPT="$FILES_SCRIPT $SRCDIR/script";;
+    esac;
+    case "$TEST_TYPE" in
+        ant ) FILES_ANT="$FILES_ANT $SRCDIR/ant";;
+    esac;
+fi;
+
+SCALA="${BIN_DIR}scala";
+[ -z "$SCALAC_OPTS" ] && SCALAC_OPTS="-deprecation -encoding iso-8859-1";
+if [ "$USEFSC" = "true" ]; then
+    if [ "${BIN_DIR}" = "" ]; then
+        SCALAC_CMD=`which fsc`;
+    else
+        SCALAC_CMD="${BIN_DIR}fsc";
+    fi;
+else
+    if [ "${BIN_DIR}" = "" ]; then
+        SCALAC_CMD=`which scalac`;
+    else
+        SCALAC_CMD="${BIN_DIR}scalac";
+    fi;
+fi;
+if [ ! -x "$SCALAC_CMD" ]; then
+    printf_failure "Missing command \"$SCALAC_CMD\"; run 'ant <target>'.\\n";
+    exit 1;
+fi;
+SCALAC="$SCALAC_CMD $SCALAC_OPTS";
+SCALAP="scalap";
+
+CLASSPATH=$SCALA_COMP:$SCALA_ACT:$SCALA_PAR
+
+RESFILE=`mktemp -t results.XXXXXX`;
+[ -f "$RESFILE" ] || RESFILE=`get_os_filename "$TESTROOT"/.results.txt`
+
+if [ -z "$ANT" ]; then
+    if [ -d "$ANT_HOME" ]; then
+        ANT="$ANT_HOME/bin/ant";
+    else
+        ANT="ant";
+    fi
+fi;
+if [ -z "$ILASM" ]; then
+    if [ -d "$MONO_HOME" ]; then
+        ILASM="$MONO_HOME/bin/ilasm";
+    else
+        ILASM="ilasm";
+    fi
+fi;
+if [ -z "$MONO" ]; then
+    if [ -d "$MONO_HOME" ]; then
+        MONO="$MONO_HOME/bin/mono";
+    else
+        MONO="mono";
+    fi
+fi;
+
+if [ -n "$OBJDIR" ]; then
+    if [ -d "$OBJDIR" ] || mkdir -p "$OBJDIR"; then
+        OBJDIR=`cd "$OBJDIR"; pwd`;
+    else
+        abort "could not create directory '$OBJDIR'";
+    fi
+fi;
+
+printf_outline "Source directory is : $SRCDIR\\n";
+bin_dir=$BIN_DIR
+if [ -z "$bin_dir" ]; then
+    scalac=`which $SCALAC_CMD`;
+    bin_dir=`test_get_location $scalac`;
+fi;
+printf_outline "Scala binaries in   : $bin_dir\\n";
+scala_version=`${SCALAC_CMD} -version 2>&1`
+printf_outline "Scala version is    : $scala_version\\n";
+[ -n "$SCALAC_OPTS" ] && printf_outline "Scalac options are  : $SCALAC_OPTS\\n";
+
+if [ $TEST_TYPE = "msil" ]; then
+    ilasm_version=`$ILASM --version 2>&1`;
+    printf_outline "ILasm version is    : $ilasm_version\\n";
+    mono_version=`$MONO --version | head -1`;
+    printf_outline "Mono version is     : $mono_version\\n";
+    if [ -f "$LATEST_PREDEF" ]; then
+        printf_outline "DLL library is      : $LATEST_PREDEF\\n";
+    else
+        printf_failure "Missing library \"predef.dll\"; run 'ant msil'.\\n";
+        exit 1;
+    fi
+else
+    javacmd=`which $JAVACMD 2>/dev/null`;
+    bin_dir=`test_get_location $javacmd`;
+    printf_outline "Java binaries in    : $bin_dir\\n";
+    if [ "$GIJ" = "true" ]; then
+        jvm_version=`$JAVACMD -version 2>&1 | head -2 | tail -1`
+    else
+        jvm_version=`$JAVACMD -version 2>&1 | head -3 | tail -1`
+    fi;
+    printf_outline "Java runtime is     : $jvm_version\\n";
+    [ -n "$JAVA_OPTS" ] && printf_outline "Java options are    : $JAVA_OPTS\\n";
+    if [ "$TEST_TYPE" = "ant" ]; then
+        ant_version=`$ANT -version`;
+        printf_outline "Ant version is      : $ant_version\\n";
+    fi
+fi;
+printf_outline "\\n";
+
+START_SECONDS=`date +%s`;
+test_check_all;
+END_SECONDS=`date +%s`;
+
+TOTAL_COUNT=`echo "$FAILURE_COUNT+$SUCCESS_COUNT" | bc`;
+
+ELAPSED_SECONDS=`expr $END_SECONDS - $START_SECONDS`;
+ELAPSED_TIME=`date --date="1970-01-01 $ELAPSED_SECONDS sec" +%T`;
+
+if [ $FAILURE_COUNT -eq 0 ]; then
+    printf_success "All of $TOTAL_COUNT tests were successful (elapsed time: $ELAPSED_TIME)\\n";
+else
+    printf_failure "$FAILURE_COUNT of $TOTAL_COUNT tests failed (elapsed time: $ELAPSED_TIME)\\n";
+fi;
+
+if [ $FAILURE_COUNT -eq "$ERRORS" ]; then
+    exit 0;
+else
+    exit 1;
+fi;
+
+##############################################################################