#! /bin/sh -f # # %CopyrightBegin% # # Copyright Ericsson AB 2008-2009. All Rights Reserved. # # The contents of this file are subject to the Erlang Public License, # Version 1.1, (the "License"); you may not use this file except in # compliance with the License. You should have received a copy of the # Erlang Public License along with this software. If not, it can be # retrieved online at http://www.erlang.org/. # # Software distributed under the License is distributed on an "AS IS" # basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See # the License for the specific language governing rights and limitations # under the License. # # %CopyrightEnd% # # Usage: mt <args to erlang startup script> log=test_log_$$ latest=test_log_latest args=${1+"$@"} erlcmd="erl -sname test_server -smp -pa ../ebin $p $args -wx_test_verbose true -wx_test_timeout" echo "Give the following command in order to see the outcome:" echo "" echo " less test_log$$" rm "$latest" 2>/dev/null ln -s "$log" "$latest" touch "$log" ostype=`uname -s` if [ "$ostype" = "SunOS" ] ; then /usr/openwin/bin/xterm -T Testing -l -lf "$log" -e $erlcmd & else xterm -T Testing -e script -f -c "$erlcmd" "$log" & fi tail -f "$log" | egrep 'Eval|<ERROR>|NYI'