aboutsummaryrefslogtreecommitdiffstats
path: root/lib/wx/test/wxt
diff options
context:
space:
mode:
Diffstat (limited to 'lib/wx/test/wxt')
-rwxr-xr-xlib/wx/test/wxt41
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