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     diff () {
  51         command diff --strip-trailing-cr "$@"
  52     }
  53
  54     kill () {
  55         case "$1" in
  56             -0)
  57                 shift
  58                 for i in $*; do
  59                     # tasklist will always have return code 0.
  60                     # If pid does exist, there will be a line with the pid.
  61                     if tasklist //fi "PID eq $i" | grep $i; then
  62                         :
  63                     else
  64                         return 1
  65                     fi
  66                 done
  67                 return 0
  68                 ;;
  69             -[1-9]*)
  70                 shift
  71                 for i in $*; do
  72                     taskkill //F //PID $i
  73                 done
  74                 ;;
  75             [1-9][1-9]*)
  76                 for i in $*; do
  77                     taskkill //F //PID $i
  78                 done
  79                 ;;
  80         esac
  81     }
  82 fi
  83 ]
  84 m4_divert_pop([PREPARE_TESTS])
  85
  86 m4_define([OVS_WAIT],
  87   [AT_CHECK(
  88      [ovs_wait_cond () { $1
  89 }
  90 ovs_wait], [0], [ignore], [ignore], [$2])])
  91 m4_define([OVS_WAIT_UNTIL], [OVS_WAIT([$1], [$2])])
  92 m4_define([OVS_WAIT_WHILE],
  93   [OVS_WAIT([if $1; then return 1; else return 0; fi], [$2])])
  94
  95 dnl OVS_APP_EXIT_AND_WAIT(DAEMON)
  96 dnl
  97 dnl Ask the daemon named DAEMON to exit, via ovs-appctl, and then waits for it
  98 dnl to exit.
  99 m4_define([OVS_APP_EXIT_AND_WAIT],
 100   [ovs-appctl -t $1 exit
 101    OVS_WAIT_WHILE([test -e $1.pid])])
 102
 103 dnl ON_EXIT([COMMANDS])
 104 dnl
 105 dnl Adds the shell COMMANDS to a collection executed when the current test
 106 dnl completes, as a cleanup action.  (The most common use is to kill a
 107 dnl daemon started by the test.  This is important to prevent tests that
 108 dnl start daemons from hanging at exit.)
 109 m4_define([ON_EXIT], [trap '. ./cleanup' 0; cat >>cleanup <<'EOF'
 110 $1
 111 EOF
 112 ])
 113
 114 m4_include([tests/ovsdb-macros.at])
 115 m4_include([tests/ofproto-macros.at])
 116
 117 m4_include([tests/bfd.at])
 118 m4_include([tests/cfm.at])
 119 m4_include([tests/lacp.at])
 120 m4_include([tests/library.at])
 121 m4_include([tests/heap.at])
 122 m4_include([tests/bundle.at])
 123 m4_include([tests/classifier.at])
 124 m4_include([tests/check-structs.at])
 125 m4_include([tests/daemon.at])
 126 m4_include([tests/daemon-py.at])
 127 m4_include([tests/ofp-actions.at])
 128 m4_include([tests/ofp-print.at])
 129 m4_include([tests/ofp-util.at])
 130 m4_include([tests/ofp-errors.at])
 131 m4_include([tests/ovs-ofctl.at])
 132 m4_include([tests/odp.at])
 133 m4_include([tests/multipath.at])
 134 m4_include([tests/learn.at])
 135 m4_include([tests/vconn.at])
 136 m4_include([tests/file_name.at])
 137 m4_include([tests/aes128.at])
 138 m4_include([tests/unixctl-py.at])
 139 m4_include([tests/uuid.at])
 140 m4_include([tests/json.at])
 141 m4_include([tests/jsonrpc.at])
 142 m4_include([tests/jsonrpc-py.at])
 143 m4_include([tests/tunnel.at])
 144 m4_include([tests/lockfile.at])
 145 m4_include([tests/reconnect.at])
 146 m4_include([tests/ovs-vswitchd.at])
 147 m4_include([tests/ofproto.at])
 148 m4_include([tests/ofproto-dpif.at])
 149 m4_include([tests/vlan-splinters.at])
 150 m4_include([tests/ovsdb.at])
 151 m4_include([tests/ovs-vsctl.at])
 152 m4_include([tests/ovs-monitor-ipsec.at])
 153 m4_include([tests/ovs-xapi-sync.at])
 154 m4_include([tests/interface-reconfigure.at])
 155 m4_include([tests/stp.at])
 156 m4_include([tests/vlog.at])
 157 m4_include([tests/vtep-ctl.at])