Annotation of gforth/testall, revision 1.16
1.1 anton 1: #! /usr/local/bin/bash
2: #test dist on all MACHINES given in MACHINES
3: #usage: MACHINES="..." testall dirs/gforth-version.tar.gz
1.9 anton 4: if test $# = 0; then
5: echo "usage: `basename $0` gforth-xxx.tar.gz"
6: exit 1
7: fi
1.10 anton 8: test "x$MACHINES" != x ||
1.15 anton 9: MACHINES="mips aertl@fpr.zserv.tuwien.ac.at \
10: b1 b2 b3 b4 c2 \
1.10 anton 11: samhain.ifs.tuwien.ac.at calis aertl@mail.zserv.tuwien.ac.at \
1.15 anton 12: aertl@stat.zserv.tuwien.ac.at \
1.10 anton 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 \
1.16 ! anton 16: cdbook jupiter \
! 17: complang@red.a-business.co.at"
1.15 anton 18: #taken out: hpws03.infosys.tuwien.ac.at aertl@fbma.tuwien.ac.at w4.infosys.tuwien.ac.at d0 struppi pcs
1.10 anton 19: SSH_PROTOCOL=-oProtocol=1,2
1.1 anton 20: for i in $MACHINES
21: do
1.15 anton 22: if false; then
23: echo; echo $i
24: /usr/bin/ssh $SSH_PROTOCOL -x $i echo ok
25: else
1.10 anton 26: ( ssh $SSH_PROTOCOL -q -x $i "test -d xxxgforthtest||mkdir xxxgforthtest; cd xxxgforthtest; test -d $i||mkdir $i; rm -rf $i/*" >$i 2>&1; \
27: scp $SSH_PROTOCOL -p -q $1 ../testdist $i:xxxgforthtest/$i >>$i 2>&1; \
28: ssh $SSH_PROTOCOL -q -x $i "cd xxxgforthtest/$i; ./testdist `basename $1`" >>$i 2>&1; \
1.12 anton 29: echo "$i done" "`tail -1 $i`") &
1.15 anton 30: fi
1.1 anton 31: done
32: wait
33: echo all done
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>