lasker-2.2.3/tests/setup.exp

   1 #!/usr/bin/expect -f
   2 # simple test setup script for lasker
   3 # Andrew Tridgell <lasker@tridgell.net>
   4
   5 if {$argc < 3} {
   6     send_user "Usage: setup.exp HOSTNAME USERNAME PASSWORD\n"
   7     exit
   8 }
   9
  10 set host [lrange $argv 0 0]
  11 set user [lrange $argv 1 1]
  12 set pass [lrange $argv 2 2]
  13
  14 set timeout -1
  15 match_max 100000
  16
  17 spawn telnet $host 5000
  18 expect "\rlogin: "
  19 send "admin\r"
  20 expect "Press return to enter the FICS"
  21 send "\r"
  22 expect "fics% "
  23
  24 send "addplayer admin none The Admin\r"
  25 expect "Added: "
  26 expect "fics% "
  27
  28 send "asetpass admin $pass\r"
  29 expect "has changed your password"
  30 expect "fics% "
  31
  32 # login again
  33 spawn telnet $host 5000
  34 expect "\rlogin: "
  35 send "$user\r"
  36 expect "password: "
  37 send "$pass\r"
  38 expect "fics% "
  39
  40 send "who\r"
  41 expect "$user"
  42 expect "players displayed"
  43 expect "indicates system administrator."
  44 expect "fics% "
  45
  46 send "aconfig\r"
  47 expect "fics% "
  48
  49 send "aconfig SERVER_LOCATION test location\r"
  50 expect "fics% "
  51
  52 send "aconfig SERVER_HOSTNAME test\r"
  53 expect "fics% "
  54
  55 send "aconfig HEAD_ADMIN_EMAIL nobody@samba.org\r"
  56 expect "fics% "
  57
  58 send "aconfig\r"
  59 expect "fics% "
  60
  61 send "quit\r"
  62 expect "Thank you"