#!/bin/bash
# Copyright 2014 Cloudera, Inc.
#
# 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.
#
# Script which wraps running a test and redirects its output to a
# test log directory.
#
# Arguments:
#    $1 - Base path for logs/artifacts.
#    $2 - type of test (e.g. test or benchmark)
#    $3 - path to executable
#    $ARGN - arguments for executable
#

setvar OUTPUT_ROOT = "$1"
shift
setvar ROOT = $(cd $(dirname $BASH_SOURCE)/..; pwd)

setvar TEST_LOGDIR = "$OUTPUT_ROOT/build/$1-logs"
mkdir -p $TEST_LOGDIR

setvar RUN_TYPE = "$1"
shift
setvar TEST_DEBUGDIR = "$OUTPUT_ROOT/build/$RUN_TYPE-debug"
mkdir -p $TEST_DEBUGDIR

setvar TEST_DIRNAME = $(cd $(dirname $1); pwd)
setvar TEST_FILENAME = $(basename $1)
shift
setvar TEST_EXECUTABLE = ""$TEST_DIRNAME/$TEST_FILENAME""
setvar TEST_NAME = $(echo $TEST_FILENAME | perl -pe 's/\..+?$//') # Remove path and extension (if any).

# We run each test in its own subdir to avoid core file related races.
setvar TEST_WORKDIR = "$OUTPUT_ROOT/build/test-work/$TEST_NAME"
mkdir -p $TEST_WORKDIR
pushd $TEST_WORKDIR >/dev/null || exit 1
rm -f *

set -o pipefail

setvar LOGFILE = "$TEST_LOGDIR/$TEST_NAME.txt"
setvar XMLFILE = "$TEST_LOGDIR/$TEST_NAME.xml"

setvar TEST_EXECUTION_ATTEMPTS = '1'

# Remove both the uncompressed output, so the developer doesn't accidentally get confused
# and read output from a prior test run.
rm -f $LOGFILE $LOGFILE.gz

setvar pipe_cmd = 'cat'

# Allow for collecting core dumps.
setvar ARROW_TEST_ULIMIT_CORE = ${ARROW_TEST_ULIMIT_CORE:-0}
ulimit -c $ARROW_TEST_ULIMIT_CORE


proc setup_sanitizers {
  # Sets environment variables for different sanitizers (it configures how) the run_tests. Function works.

  # Configure TSAN (ignored if this isn't a TSAN build).
  #
  # Deadlock detection (new in clang 3.5) is disabled because:
  # 1. The clang 3.5 deadlock detector crashes in some unit tests. It
  #    needs compiler-rt commits c4c3dfd, 9a8efe3, and possibly others.
  # 2. Many unit tests report lock-order-inversion warnings; they should be
  #    fixed before reenabling the detector.
  setvar TSAN_OPTIONS = ""$TSAN_OPTIONS detect_deadlocks=0""
  setvar TSAN_OPTIONS = ""$TSAN_OPTIONS suppressions=$ROOT/build-support/tsan-suppressions.txt""
  setvar TSAN_OPTIONS = ""$TSAN_OPTIONS history_size=7""
  export TSAN_OPTIONS

  # Enable leak detection even under LLVM 3.4, where it was disabled by default.
  # This flag only takes effect when running an ASAN build.
  # ASAN_OPTIONS="$ASAN_OPTIONS detect_leaks=1"
  # export ASAN_OPTIONS

  # Set up suppressions for LeakSanitizer
  setvar LSAN_OPTIONS = ""$LSAN_OPTIONS suppressions=$ROOT/build-support/lsan-suppressions.txt""
  export LSAN_OPTIONS

  # Suppressions require symbolization. We'll default to using the symbolizer in
  # thirdparty.
  if test -z $ASAN_SYMBOLIZER_PATH {
    export ASAN_SYMBOLIZER_PATH=$(find $NATIVE_TOOLCHAIN/llvm-3.7.0/bin -name llvm-symbolizer)
  }
}

proc run_test {
  # Run gtest style tests with sanitizers if they are setup appropriately.

  # gtest won't overwrite old junit test files, resulting in a build failure
  # even when retries are successful.
  rm -f $XMLFILE

  $TEST_EXECUTABLE @ARGV 2>&1 \
    | $ROOT/build-support/asan_symbolize.py \
    | c++filt \
    | $ROOT/build-support/stacktrace_addr2line.pl $TEST_EXECUTABLE \
    | $pipe_cmd 2>&1 | tee $LOGFILE
  setvar STATUS = "$Status"

  # TSAN doesn't always exit with a non-zero exit code due to a bug:
  # mutex errors don't get reported through the normal error reporting infrastructure.
  # So we make sure to detect this and exit 1.
  #
  # Additionally, certain types of failures won't show up in the standard JUnit
  # XML output from gtest. We assume that gtest knows better than us and our
  # regexes in most cases, but for certain errors we delete the resulting xml
  # file and let our own post-processing step regenerate it.
  export GREP=$(which egrep)
  if zgrep --silent "ThreadSanitizer|Leak check.*detected leaks" $LOGFILE  {
    echo ThreadSanitizer or leak check failures in $LOGFILE
    setvar STATUS = '1'
    rm -f $XMLFILE
  }
}

proc post_process_tests {
  # If we have a LeakSanitizer report, and XML reporting is configured, add a new test
  # case result to the XML file for the leak report. Otherwise Jenkins won't show
  # us which tests had LSAN errors.
  if zgrep --silent "ERROR: LeakSanitizer: detected memory leaks" $LOGFILE  {
      echo Test had memory leaks. Editing XML
      perl -p -i -e '
      if (m#</testsuite>#) {
        print "<testcase name=\"LeakSanitizer\" status=\"run\" classname=\"LSAN\">\n";
        print "  <failure message=\"LeakSanitizer failed\" type=\"\">\n";
        print "    See txt log file for details\n";
        print "  </failure>\n";
        print "</testcase>\n";
      }' $XMLFILE
  }
}

proc run_other {
  # Generic run function for test like executables that aren't actually gtest
  $TEST_EXECUTABLE @ARGV 2>&1 | $pipe_cmd > $LOGFILE
  setvar STATUS = "$Status"
}

if test $RUN_TYPE = "test" {
    setup_sanitizers
}

# Run the actual test.
for ATTEMPT_NUMBER in [$(seq 1 $TEST_EXECUTION_ATTEMPTS)]  {
  if test $ATTEMPT_NUMBER -lt $TEST_EXECUTION_ATTEMPTS {
    # If the test fails, the test output may or may not be left behind,
    # depending on whether the test cleaned up or exited immediately. Either
    # way we need to clean it up. We do this by comparing the data directory
    # contents before and after the test runs, and deleting anything new.
    #
    # The comm program requires that its two inputs be sorted.
    setvar TEST_TMPDIR_BEFORE = $(find $TEST_TMPDIR -maxdepth 1 -type d | sort)
  }

  if test $ATTEMPT_NUMBER -lt $TEST_EXECUTION_ATTEMPTS {
    # Now delete any new test output.
    setvar TEST_TMPDIR_AFTER = $(find $TEST_TMPDIR -maxdepth 1 -type d | sort)
    setvar DIFF = $(comm -13 <(echo "$TEST_TMPDIR_BEFORE") \
                    <(echo "$TEST_TMPDIR_AFTER"))
    for DIR in [$DIFF] {
      # Multiple tests may be running concurrently. To avoid deleting the
      # wrong directories, constrain to only directories beginning with the
      # test name.
      #
      # This may delete old test directories belonging to this test, but
      # that's not typically a concern when rerunning flaky tests.
      if [[ $DIR =~ ^$TEST_TMPDIR/$TEST_NAME ]] {
        echo Deleting leftover flaky test directory $DIR
        rm -Rf $DIR
      }
    }
  }
  echo "Running $TEST_NAME, redirecting output into $LOGFILE" \
    "(attempt ${ATTEMPT_NUMBER}/$TEST_EXECUTION_ATTEMPTS)"
  if test $RUN_TYPE = "test" {
    run_test $ifsjoin(ARGV)
  } else {
    run_other $ifsjoin(ARGV)
  }
  if test $STATUS -eq "0" {
    break
  } elif test $ATTEMPT_NUMBER -lt $TEST_EXECUTION_ATTEMPTS {
    echo Test failed attempt number $ATTEMPT_NUMBER
    echo Will retry...
  }
}

if test $RUN_TYPE = "test" {
  post_process_tests
}

# Capture and compress core file and binary.
setvar COREFILES = $(ls | grep ^core)
if test -n $COREFILES {
  echo Found core dump. Saving executable and core files.
  gzip < $TEST_EXECUTABLE > "$TEST_DEBUGDIR/$TEST_NAME.gz" || exit $?
  for COREFILE in [$COREFILES] {
    gzip < $COREFILE > "$TEST_DEBUGDIR/$TEST_NAME.$COREFILE.gz" || exit $?
  }
  # Pull in any .so files as well.
  for LIB in [$(ldd $TEST_EXECUTABLE | grep $ROOT | awk '{print $3}')] {
    setvar LIB_NAME = $(basename $LIB)
    gzip < $LIB > "$TEST_DEBUGDIR/$LIB_NAME.gz" || exit $?
  }
}

popd
rm -Rf $TEST_WORKDIR

exit $STATUS