net2o: Hex Artifact Content

Artifact 51ea0471d7b4ccf4c089faa5a2c76889dfe33cfe:

Executable file tests/dvcs-test — part of check-in [0507a7dbbe] at 2017-05-28 21:45:32 on branch trunk — Add split date mode (user: bernd size: 1585)
0000: 23 21 2f 62 69 6e 2f 62 61 73 68 0a 47 46 4f 52  #!/bin/bash.GFOR
0010: 54 48 3d 24 7b 47 46 4f 52 54 48 3a 2d 67 66 6f  TH=${GFORTH:-gfo
0020: 72 74 68 7d 0a 72 6d 20 2d 72 66 20 64 76 63 73  rth}.rm -rf dvcs
0030: 2d 74 65 73 74 2e 64 20 64 76 63 73 2d 74 65 73  -test.d dvcs-tes
0040: 74 2e 32 0a 6d 6b 64 69 72 20 2d 70 20 64 76 63  t.2.mkdir -p dvc
0050: 73 2d 74 65 73 74 2e 64 2f 2e 6e 65 74 32 6f 20  s-test.d/.net2o 
0060: 64 76 63 73 2d 74 65 73 74 2e 32 2f 2e 6e 65 74  dvcs-test.2/.net
0070: 32 6f 0a 63 64 20 64 76 63 73 2d 74 65 73 74 2e  2o.cd dvcs-test.
0080: 64 0a 63 61 74 20 3e 2e 6e 65 74 32 6f 2f 63 6f  d.cat >.net2o/co
0090: 6e 66 69 67 20 3c 3c 45 4f 46 0a 2e 6e 65 74 32  nfig <<EOF..net2
00a0: 6f 3d 22 24 50 57 44 2f 2e 6e 65 74 32 6f 22 0a  o="$PWD/.net2o".
00b0: 6b 65 79 73 3d 22 24 50 57 44 2f 2e 6e 65 74 32  keys="$PWD/.net2
00c0: 6f 2f 6b 65 79 73 22 0a 63 68 61 74 73 3d 22 24  o/keys".chats="$
00d0: 50 57 44 2f 2e 6e 65 74 32 6f 2f 63 68 61 74 73  PWD/.net2o/chats
00e0: 22 0a 6f 62 6a 65 63 74 73 3d 22 24 50 57 44 2f  ".objects="$PWD/
00f0: 2e 6e 65 74 32 6f 2f 6f 62 6a 65 63 74 73 22 0a  .net2o/objects".
0100: 64 61 74 65 3d 32 0a 68 6f 73 74 3d 22 74 65 73  date=2.host="tes
0110: 74 2d 68 6f 73 74 22 0a 70 72 69 6f 3d 31 30 0a  t-host".prio=10.
0120: 72 6f 6f 74 64 69 72 73 3d 22 24 50 57 44 22 0a  rootdirs="$PWD".
0130: 45 4f 46 0a 65 78 70 6f 72 74 20 50 41 53 53 50  EOF.export PASSP
0140: 48 52 41 53 45 3d 31 32 33 34 0a 65 78 70 6f 72  HRASE=1234.expor
0150: 74 20 4e 45 54 32 4f 5f 43 4f 4e 46 3d 24 50 57  t NET2O_CONF=$PW
0160: 44 2f 2e 6e 65 74 32 6f 2f 63 6f 6e 66 69 67 0a  D/.net2o/config.
0170: 24 47 46 4f 52 54 48 20 2e 2e 2f 6e 32 6f 20 24  $GFORTH ../n2o $
0180: 2a 20 2d 79 65 73 20 6b 65 79 67 65 6e 20 74 65  * -yes keygen te
0190: 73 74 0a 24 47 46 4f 52 54 48 20 2e 2e 2f 6e 32  st.$GFORTH ../n2
01a0: 6f 20 24 2a 20 73 63 72 69 70 74 20 74 65 73 74  o $* script test
01b0: 73 2f 64 76 63 73 2d 74 65 73 74 2e 73 32 6f 0a  s/dvcs-test.s2o.
01c0: 65 63 68 6f 0a 63 64 20 2e 2e 2f 64 76 63 73 2d  echo.cd ../dvcs-
01d0: 74 65 73 74 2e 32 0a 63 61 74 20 3e 2e 6e 65 74  test.2.cat >.net
01e0: 32 6f 2f 63 6f 6e 66 69 67 20 3c 3c 45 4f 46 0a  2o/config <<EOF.
01f0: 2e 6e 65 74 32 6f 3d 22 24 50 57 44 2f 2e 6e 65  .net2o="$PWD/.ne
0200: 74 32 6f 22 0a 6b 65 79 73 3d 22 24 50 57 44 2f  t2o".keys="$PWD/
0210: 2e 6e 65 74 32 6f 2f 6b 65 79 73 22 0a 63 68 61  .net2o/keys".cha
0220: 74 73 3d 22 24 50 57 44 2f 2e 6e 65 74 32 6f 2f  ts="$PWD/.net2o/
0230: 63 68 61 74 73 22 0a 6f 62 6a 65 63 74 73 3d 22  chats".objects="
0240: 24 50 57 44 2f 2e 6e 65 74 32 6f 2f 6f 62 6a 65  $PWD/.net2o/obje
0250: 63 74 73 22 0a 64 61 74 65 3d 32 0a 68 6f 73 74  cts".date=2.host
0260: 3d 22 74 65 73 74 2d 68 6f 73 74 32 22 0a 70 72  ="test-host2".pr
0270: 69 6f 3d 31 30 0a 72 6f 6f 74 64 69 72 73 3d 22  io=10.rootdirs="
0280: 24 50 57 44 22 0a 45 4f 46 0a 65 78 70 6f 72 74  $PWD".EOF.export
0290: 20 4e 45 54 32 4f 5f 43 4f 4e 46 3d 24 50 57 44   NET2O_CONF=$PWD
02a0: 2f 2e 6e 65 74 32 6f 2f 63 6f 6e 66 69 67 0a 24  /.net2o/config.$
02b0: 47 46 4f 52 54 48 20 2e 2e 2f 6e 32 6f 20 24 2a  GFORTH ../n2o $*
02c0: 20 2d 79 65 73 20 6b 65 79 67 65 6e 20 74 65 73   -yes keygen tes
02d0: 74 32 0a 63 64 20 2e 2e 2f 64 76 63 73 2d 74 65  t2.cd ../dvcs-te
02e0: 73 74 2e 64 0a 65 78 70 6f 72 74 20 4e 45 54 32  st.d.export NET2
02f0: 4f 5f 43 4f 4e 46 3d 24 50 57 44 2f 2e 6e 65 74  O_CONF=$PWD/.net
0300: 32 6f 2f 63 6f 6e 66 69 67 0a 24 47 46 4f 52 54  2o/config.$GFORT
0310: 48 20 2e 2e 2f 6e 32 6f 20 24 2a 20 63 6d 64 20  H ../n2o $* cmd 
0320: 3c 3c 45 4f 46 0a 6b 65 79 6c 69 73 74 0a 6b 65  <<EOF.keylist.ke
0330: 79 69 6e 20 7e 2f 74 65 73 74 32 2e 6e 32 6f 0a  yin ~/test2.n2o.
0340: 6b 65 79 6c 69 73 74 0a 62 79 65 0a 45 4f 46 0a  keylist.bye.EOF.
0350: 65 78 65 63 20 33 3e 20 3e 28 24 47 46 4f 52 54  exec 3> >($GFORT
0360: 48 20 2e 2e 2f 6e 32 6f 20 24 2a 20 63 68 61 74  H ../n2o $* chat
0370: 20 64 76 63 73 2d 74 65 73 74 29 0a 65 78 70 6f   dvcs-test).expo
0380: 72 74 20 47 46 4f 52 54 48 50 49 44 3d 24 5b 24  rt GFORTHPID=$[$
0390: 21 2b 31 5d 0a 66 75 6e 63 74 69 6f 6e 20 6b 69  !+1].function ki
03a0: 6c 6c 67 66 6f 72 74 68 20 7b 0a 20 20 20 20 6b  llgforth {.    k
03b0: 69 6c 6c 20 24 47 46 4f 52 54 48 50 49 44 0a 7d  ill $GFORTHPID.}
03c0: 0a 74 72 61 70 20 6b 69 6c 6c 67 66 6f 72 74 68  .trap killgforth
03d0: 20 45 58 49 54 0a 0a 73 6c 65 65 70 20 31 20 23   EXIT..sleep 1 #
03e0: 77 61 69 74 20 66 6f 72 20 67 66 6f 72 74 68 20  wait for gforth 
03f0: 74 6f 20 73 74 61 72 74 20 74 68 65 20 63 68 61  to start the cha
0400: 74 0a 63 64 20 2e 2e 2f 64 76 63 73 2d 74 65 73  t.cd ../dvcs-tes
0410: 74 2e 32 0a 65 78 70 6f 72 74 20 4e 45 54 32 4f  t.2.export NET2O
0420: 5f 43 4f 4e 46 3d 24 50 57 44 2f 2e 6e 65 74 32  _CONF=$PWD/.net2
0430: 6f 2f 63 6f 6e 66 69 67 0a 24 47 46 4f 52 54 48  o/config.$GFORTH
0440: 20 2e 2e 2f 6e 32 6f 20 24 2a 20 63 6d 64 20 3c   ../n2o $* cmd <
0450: 3c 45 4f 46 0a 6b 65 79 69 6e 20 7e 2f 74 65 73  <EOF.keyin ~/tes
0460: 74 2e 6e 32 6f 0a 6b 65 79 6c 69 73 74 0a 69 6e  t.n2o.keylist.in
0470: 69 74 20 64 76 63 73 2d 74 65 73 74 0a 70 75 6c  it dvcs-test.pul
0480: 6c 20 64 76 63 73 2d 74 65 73 74 40 74 65 73 74  l dvcs-test@test
0490: 0a 6c 6f 67 0a 75 70 0a 62 79 65 0a 45 4f 46 0a  .log.up.bye.EOF.
04a0: 65 63 68 6f 20 22 2f 62 79 65 22 20 3e 26 33 0a  echo "/bye" >&3.
04b0: 0a 63 64 20 2e 2e 2f 64 76 63 73 2d 74 65 73 74  .cd ../dvcs-test
04c0: 2e 64 0a 65 78 70 6f 72 74 20 4e 45 54 32 4f 5f  .d.export NET2O_
04d0: 43 4f 4e 46 3d 24 50 57 44 2f 2e 6e 65 74 32 6f  CONF=$PWD/.net2o
04e0: 2f 63 6f 6e 66 69 67 0a 24 47 46 4f 52 54 48 20  /config.$GFORTH 
04f0: 2e 2e 2f 6e 32 6f 20 24 2a 20 73 63 72 69 70 74  ../n2o $* script
0500: 20 74 65 73 74 73 2f 64 76 63 73 2d 74 65 73 74   tests/dvcs-test
0510: 32 2e 73 32 6f 0a 0a 65 78 65 63 20 33 3e 20 3e  2.s2o..exec 3> >
0520: 28 24 47 46 4f 52 54 48 20 2e 2e 2f 6e 32 6f 20  ($GFORTH ../n2o 
0530: 24 2a 20 63 68 61 74 20 64 76 63 73 2d 74 65 73  $* chat dvcs-tes
0540: 74 29 0a 65 78 70 6f 72 74 20 47 46 4f 52 54 48  t).export GFORTH
0550: 50 49 44 3d 24 5b 24 21 2b 31 5d 0a 73 6c 65 65  PID=$[$!+1].slee
0560: 70 20 31 20 23 77 61 69 74 20 66 6f 72 20 67 66  p 1 #wait for gf
0570: 6f 72 74 68 20 74 6f 20 73 74 61 72 74 20 74 68  orth to start th
0580: 65 20 63 68 61 74 0a 63 64 20 2e 2e 2f 64 76 63  e chat.cd ../dvc
0590: 73 2d 74 65 73 74 2e 32 0a 65 78 70 6f 72 74 20  s-test.2.export 
05a0: 4e 45 54 32 4f 5f 43 4f 4e 46 3d 24 50 57 44 2f  NET2O_CONF=$PWD/
05b0: 2e 6e 65 74 32 6f 2f 63 6f 6e 66 69 67 0a 24 47  .net2o/config.$G
05c0: 46 4f 52 54 48 20 2e 2e 2f 6e 32 6f 20 24 2a 20  FORTH ../n2o $* 
05d0: 63 6d 64 20 3c 3c 45 4f 46 0a 70 75 6c 6c 20 64  cmd <<EOF.pull d
05e0: 76 63 73 2d 74 65 73 74 40 74 65 73 74 0a 6c 6f  vcs-test@test.lo
05f0: 67 0a 75 70 0a 62 79 65 0a 45 4f 46 0a 65 63 68  g.up.bye.EOF.ech
0600: 6f 20 22 2f 63 68 61 74 73 22 20 3e 26 33 0a 65  o "/chats" >&3.e
0610: 63 68 6f 20 22 2f 62 79 65 22 20 3e 26 33 0a 65  cho "/bye" >&3.e
0620: 78 65 63 20 33 3e 26 2d 0a 73 6c 65 65 70 20 35  xec 3>&-.sleep 5
0630: 0a                                               .