#!/bin/bash
#
# Usage:
#   ./common.sh <function name>

set -o nounset
set -o pipefail
set -o errexit

# TODO: Release process can use the release binary.  This is like $OSH_OVM
# in benchmarks/common.sh.
readonly OSH=$(OSH:-bin/osh)

# For xargs -P in spec-runner.sh, wild-runner.sh.
readonly JOBS=$shExpr(' $(nproc) - 1 ')

proc log {
  echo @Argv !1 > !2
}

proc die {
  log @Argv
  exit 1
}

proc fail {
  echo 'TEST FAILURE  ' @Argv
  exit 1
}

# NOTE: Could use BASH_SOURCE and so forth for a better error message.
proc assert {
  test @Argv || die "'$ifsjoin(Argv)' failed"
}

proc run-task-with-status {
  local out_file=$1
  shift

  # --quiet suppresses a warning message
  /usr/bin/env time \
    --output $out_file \
    --format '%x %e' \
    -- @Argv || true  # suppress failure

  # Hack to get around the fact that --quiet is Debian-specific:
  # http://lists.oilshell.org/pipermail/oil-dev-oilshell.org/2017-March/000012.html
  #
  # Long-term solution: our xargs should have --format.
  sed -i '/Command exited with non-zero status/d' $out_file

  # TODO: Use rows like this with oil
  # '{"status": %x, "wall_secs": %e, "user_secs": %U, "kernel_secs": %S}' \
}

proc run-task-with-status-test {
  run-task-with-status _tmp/status.txt sh -c 'sleep 0.1; exit 1' || true
  cat _tmp/status.txt
  test $[wc -l < _tmp/status.txt] = '1' || die "Expected only one line"
}

# Each test file should define PASSING
proc run-all {
  for t in [@Argv] {
    # fail calls 'exit 1'
    $t
    echo "OK  $t"
  }

  echo
  echo "All $0 tests passed."
}

if test $[basename $0] = 'common.sh' {
  @Argv
}