tests/testsuite.at

   1 AT_INIT
   2
   3 AT_COPYRIGHT([Copyright (c) 2009, 2010, 2011, 2012, 2013 Nicira, Inc.
   4
   5 Licensed under the Apache License, Version 2.0 (the "License");
   6 you may not use this file except in compliance with the License.
   7 You may obtain a copy of the License at:
   8
   9     http://www.apache.org/licenses/LICENSE-2.0
  10
  11 Unless required by applicable law or agreed to in writing, software
  12 distributed under the License is distributed on an "AS IS" BASIS,
  13 WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  14 See the License for the specific language governing permissions and
  15 limitations under the License.])
  16
  17 AT_TESTED([ovs-vswitchd])
  18 AT_TESTED([ovs-vsctl])
  19 AT_TESTED([perl])
  20
  21 m4_divert_push([PREPARE_TESTS])
  22 [
  23 ovs_wait () {
  24     # First try a quick sleep, so that the test completes very quickly
  25     # in the normal case.  POSIX doesn't require fractional times to
  26     # work, so this might not work.
  27     sleep 0.1
  28     ovs_wait_cond && exit 0
  29     # Then wait up to 10 seconds.
  30     for d in 0 1 2 3 4 5 6 7 8 9; do
  31         sleep 1
  32         ovs_wait_cond && exit 0
  33     done
  34     exit 1
  35 }
  36
  37 # Prints the integers from $1 to $2, increasing by $3 (default 1) on stdout.
  38 seq () {
  39     while test $1 -le $2; do
  40         echo $1
  41         set `expr $1 + ${3-1}` $2 $3
  42     done
  43 }
  44
  45 if test "$IS_WIN32" = "yes"; then
  46     pwd () {
  47         command pwd -W "$@"
  48     }
  49
  50     kill () {
  51         case "$1" in
  52             -0)
  53                 shift
  54                 for i in $*; do
  55                     # tasklist will always have return code 0.
  56                     # If pid does exist, there will be a line with the pid.
  57                     if tasklist //fi "PID eq $i" | grep $i; then
  58                         :
  59                     else
  60                         return 1
  61                     fi
  62                 done
  63                 return 0
  64                 ;;
  65             -[1-9]*)
  66                 shift
  67                 for i in $*; do
  68                     taskkill //F //PID $i
  69                 done
  70                 ;;
  71             [1-9][1-9]*)
  72                 for i in $*; do
  73                     taskkill //F //PID $i
  74                 done
  75                 ;;
  76         esac
  77     }
  78 fi
  79 ]
  80 m4_divert_pop([PREPARE_TESTS])
  81
  82 m4_define([OVS_WAIT],
  83   [AT_CHECK(
  84      [ovs_wait_cond () { $1
  85 }
  86 ovs_wait], [0], [ignore], [ignore], [$2])])
  87 m4_define([OVS_WAIT_UNTIL], [OVS_WAIT([$1], [$2])])
  88 m4_define([OVS_WAIT_WHILE],
  89   [OVS_WAIT([if $1; then return 1; else return 0; fi], [$2])])
  90
  91 dnl OVS_APP_EXIT_AND_WAIT(DAEMON)
  92 dnl
  93 dnl Ask the daemon named DAEMON to exit, via ovs-appctl, and then waits for it
  94 dnl to exit.
  95 m4_define([OVS_APP_EXIT_AND_WAIT],
  96   [ovs-appctl -t $1 exit
  97    OVS_WAIT_WHILE([test -e $1.pid])])
  98
  99 dnl ON_EXIT([COMMANDS])
 100 dnl
 101 dnl Adds the shell COMMANDS to a collection executed when the current test
 102 dnl completes, as a cleanup action.  (The most common use is to kill a
 103 dnl daemon started by the test.  This is important to prevent tests that
 104 dnl start daemons from hanging at exit.)
 105 m4_define([ON_EXIT], [trap '. ./cleanup' 0; cat >>cleanup <<'EOF'
 106 $1
 107 EOF
 108 ])
 109
 110 m4_include([tests/ovsdb-macros.at])
 111 m4_include([tests/ofproto-macros.at])
 112
 113 m4_include([tests/bfd.at])
 114 m4_include([tests/cfm.at])
 115 m4_include([tests/lacp.at])
 116 m4_include([tests/library.at])
 117 m4_include([tests/heap.at])
 118 m4_include([tests/bundle.at])
 119 m4_include([tests/classifier.at])
 120 m4_include([tests/check-structs.at])
 121 m4_include([tests/daemon.at])
 122 m4_include([tests/daemon-py.at])
 123 m4_include([tests/ofp-actions.at])
 124 m4_include([tests/ofp-print.at])
 125 m4_include([tests/ofp-util.at])
 126 m4_include([tests/ofp-errors.at])
 127 m4_include([tests/ovs-ofctl.at])
 128 m4_include([tests/odp.at])
 129 m4_include([tests/multipath.at])
 130 m4_include([tests/learn.at])
 131 m4_include([tests/vconn.at])
 132 m4_include([tests/file_name.at])
 133 m4_include([tests/aes128.at])
 134 m4_include([tests/unixctl-py.at])
 135 m4_include([tests/uuid.at])
 136 m4_include([tests/json.at])
 137 m4_include([tests/jsonrpc.at])
 138 m4_include([tests/jsonrpc-py.at])
 139 m4_include([tests/tunnel.at])
 140 m4_include([tests/lockfile.at])
 141 m4_include([tests/reconnect.at])
 142 m4_include([tests/ovs-vswitchd.at])
 143 m4_include([tests/ofproto.at])
 144 m4_include([tests/ofproto-dpif.at])
 145 m4_include([tests/vlan-splinters.at])
 146 m4_include([tests/ovsdb.at])
 147 m4_include([tests/ovs-vsctl.at])
 148 m4_include([tests/ovs-monitor-ipsec.at])
 149 m4_include([tests/ovs-xapi-sync.at])
 150 m4_include([tests/interface-reconfigure.at])
 151 m4_include([tests/stp.at])
 152 m4_include([tests/vlog.at])
 153 m4_include([tests/vtep-ctl.at])