File:  [gforth] / gforth / testall
Revision 1.15: download - view: text, annotated - select for diffs
Fri Aug 8 13:28:48 2003 UTC (20 years, 8 months ago) by anton
Branches: MAIN
CVS tags: v0-6-2, HEAD
minor fixes in testdist and testall
documentation changes

    1: #! /usr/local/bin/bash
    2: #test dist on all MACHINES given in MACHINES
    3: #usage: MACHINES="..." testall dirs/gforth-version.tar.gz
    4: if test $# = 0; then
    5:   echo "usage: `basename $0` gforth-xxx.tar.gz"
    6:   exit 1
    7: fi
    8: test "x$MACHINES" != x || 
    9: MACHINES="mips aertl@fpr.zserv.tuwien.ac.at \
   10: b1 b2 b3 b4 c2 \
   11: samhain.ifs.tuwien.ac.at calis aertl@mail.zserv.tuwien.ac.at \
   12: aertl@stat.zserv.tuwien.ac.at \
   13: rlwinm.ifs.tuwien.ac.at fmadd.ifs.tuwien.ac.at lfsux.ifs.tuwien.ac.at \
   14: s4addq.ifs.tuwien.ac.at \
   15: 128.130.204.24 128.130.204.25 128.130.204.26 \
   16: cdbook jupiter"
   17: #taken out: hpws03.infosys.tuwien.ac.at aertl@fbma.tuwien.ac.at w4.infosys.tuwien.ac.at d0 struppi pcs
   18: SSH_PROTOCOL=-oProtocol=1,2
   19: for i in $MACHINES
   20: do
   21:   if false; then
   22:     echo; echo $i
   23:     /usr/bin/ssh $SSH_PROTOCOL -x $i echo ok
   24:   else
   25:     ( ssh $SSH_PROTOCOL -q -x $i "test -d xxxgforthtest||mkdir xxxgforthtest; cd xxxgforthtest; test -d $i||mkdir $i; rm -rf $i/*" >$i 2>&1; \
   26:       scp $SSH_PROTOCOL -p -q $1 ../testdist $i:xxxgforthtest/$i >>$i 2>&1; \
   27:       ssh $SSH_PROTOCOL -q -x $i "cd xxxgforthtest/$i; ./testdist `basename $1`" >>$i 2>&1; \
   28:       echo "$i done" "`tail -1 $i`") &
   29:   fi
   30: done
   31: wait
   32: echo all done

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>