rebol-test helper scripts for Linux

cmp

#!/bin/bash
REFERENCE=$1
SUBJECT=$2

function get_log () {
    awk '/log file:/ {print $NF}'
}

HERE=$(dirname $0)
$HERE/run $REFERENCE
$HERE/run $SUBJECT

REFERENCE_LOG=`$HERE/run $REFERENCE | get_log`
SUBJECT_LOG=`$HERE/run $SUBJECT | get_log`

# @@ Remove the %-neccessity (needs a fix in log-diff.r).
cd $HERE
rebol3 log-diff.r %$REFERENCE_LOG %$SUBJECT_LOG

reg

#!/bin/bash
cd $(dirname $0)
./cmp ../make/r3{-master,}

run

#!/bin/bash
if [ $# != 1 ]; then
    echo "Usage: $0 command" >&2
    exit 64
fi

SUBJECT=$(readlink -f $(which $1))
if [ $? -ne 0 ]; then
    echo "Error: test subject '$1' not found." >&2
    exit 1
fi

cd $(dirname $0)

until echo "quit/now/return 1" | $SUBJECT run-recover.r; do
    echo "Restarting ..."
done