The R13B03 release.OTP_R13B03

1 files changed, 41 insertions, 0 deletions

diff --git a/lib/wx/test/wxt b/lib/wx/test/wxt
new file mode 100755
index 0000000000..f94350e47b
--- /dev/null
+++ b/lib/wx/test/wxt
@@ -0,0 +1,41 @@
+#! /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'
\ No newline at end of file