invoke perl as ${PERL}
[sliver-openvswitch.git] / tests / ofproto-macros.at
1 m4_divert_push([PREPARE_TESTS])
2 [
3 # Strips out uninteresting parts of ovs-ofctl output, as well as parts
4 # that vary from one run to another.
5 ofctl_strip () {
6     sed '
7 s/ (xid=0x[0-9a-fA-F]*)//
8 s/ duration=[0-9.]*s,//
9 s/ cookie=0x0,//
10 s/ table=0,//
11 s/ n_packets=0,//
12 s/ n_bytes=0,//
13 s/ idle_age=[0-9]*,//
14 s/ hard_age=[0-9]*,//
15 '
16 }
17
18 # parse_listening_port [SERVER]
19 #
20 # Parses the TCP or SSL port on which a server is listening from the
21 # log, given that the server was told to listen on a kernel-chosen
22 # port, file provided on stdin, and prints the port number on stdout.
23 # You should specify the listening remote as ptcp:0:127.0.0.1 or
24 # pssl:0:127.0.0.1.
25 #
26 # Here's an example of how to use this with ovsdb-server:
27 #
28 #    OVS_LOGDIR=`pwd`; export OVS_LOGDIR
29 #    ovsdb-server --log-file --remote=ptcp:0:127.0.0.1 ...
30 #    TCP_PORT=`parse_listening_port < ovsdb-server.log`
31 parse_listening_port () {
32     sed -n 's/.*0:127\.0\.0\.1: listening on port \([0-9]*\)$/\1/p'
33 }]
34 m4_divert_pop([PREPARE_TESTS])
35
36 m4_define([STRIP_XIDS], [[sed 's/ (xid=0x[0-9a-fA-F]*)//']])
37 m4_define([STRIP_DURATION], [[sed 's/\bduration=[0-9.]*s/duration=?s/']])
38 m4_define([STRIP_USED], [[sed 's/used:[0-9]\.[0-9]*/used:0.0/']])
39 m4_define([TESTABLE_LOG], [-vPATTERN:ANY:'%c|%p|%m'])
40
41 # OVS_VSWITCHD_START([vsctl-args], [vsctl-output])
42 #
43 # Creates a database and starts ovsdb-server, starts ovs-vswitchd
44 # connected to that database, calls ovs-vsctl to create a bridge named
45 # br0 with predictable settings, passing 'vsctl-args' as additional
46 # commands to ovs-vsctl.  If 'vsctl-args' causes ovs-vsctl to provide
47 # output (e.g. because it includes "create" commands) then 'vsctl-output'
48 # specifies the expected output after filtering through uuidfilt.pl.
49 m4_define([OVS_VSWITCHD_START],
50   [OVS_RUNDIR=`pwd`; export OVS_RUNDIR
51    OVS_LOGDIR=`pwd`; export OVS_LOGDIR
52    OVS_DBDIR=`pwd`; export OVS_DBDIR
53    OVS_SYSCONFDIR=`pwd`; export OVS_SYSCONFDIR
54    ON_EXIT([kill `cat ovsdb-server.pid ovs-vswitchd.pid`])
55
56    dnl Create database.
57    touch .conf.db.~lock~
58    AT_CHECK([ovsdb-tool create conf.db $abs_top_srcdir/vswitchd/vswitch.ovsschema])
59
60    dnl Start ovsdb-server.
61    AT_CHECK([ovsdb-server --detach --no-chdir --pidfile --log-file --remote=punix:$OVS_RUNDIR/db.sock], [0], [], [stderr])
62    AT_CHECK([[sed < stderr '
63 /vlog|INFO|opened log file/d
64 /ovsdb_server|INFO|ovsdb-server (Open vSwitch)/d']])
65    AT_CAPTURE_FILE([ovsdb-server.log])
66
67    dnl Initialize database.
68    AT_CHECK([ovs-vsctl --no-wait init])
69
70    dnl Start ovs-vswitchd.
71    AT_CHECK([ovs-vswitchd --detach --no-chdir --pidfile --enable-dummy --disable-system --log-file -vvconn -vofproto_dpif], [0], [], [stderr])
72    AT_CAPTURE_FILE([ovs-vswitchd.log])
73    AT_CHECK([[sed < stderr '
74 /vlog|INFO|opened log file/d
75 /vswitchd|INFO|ovs-vswitchd (Open vSwitch)/d
76 /reconnect|INFO|/d
77 /ofproto|INFO|using datapath ID/d
78 /ofproto|INFO|datapath ID changed to fedcba9876543210/d']])
79
80    dnl Add bridges, ports, etc.
81    AT_CHECK([ovs-vsctl -- add-br br0 -- set bridge br0 datapath-type=dummy other-config:datapath-id=fedcba9876543210 other-config:hwaddr=aa:55:aa:55:00:00 protocols=[[OpenFlow10,OpenFlow12,OpenFlow13]] fail-mode=secure -- $1 m4_if([$2], [], [], [| ${PERL} $srcdir/uuidfilt.pl])], [0], [$2])
82 ])
83
84 m4_divert_push([PREPARE_TESTS])
85 check_logs () {
86     sed -n "$1
87 /|WARN|/p
88 /|ERR|/p
89 /|EMER|/p" ovs-vswitchd.log ovsdb-server.log
90 }
91 m4_divert_pop([PREPARE_TESTS])
92
93 # OVS_VSWITCHD_STOP([WHITELIST])
94 #
95 # Gracefully stops ovs-vswitchd and ovsdb-server, checking their log files
96 # for messages with severity WARN or higher and signaling an error if any
97 # is present.  The optional WHITELIST may contain shell-quoted "sed"
98 # commands to delete any warnings that are actually expected, e.g.:
99 #
100 #   OVS_VSWITCHD_STOP(["/expected error/d"])
101 m4_define([OVS_VSWITCHD_STOP],
102   [AT_CHECK([check_logs $1])
103    AT_CHECK([ovs-appctl -t ovs-vswitchd exit])
104    AT_CHECK([ovs-appctl -t ovsdb-server exit])])
105
106 # ADD_OF_PORTS(BRIDGE, OF_PORT[, OF_PORT...])
107 #
108 # Creates a dummy interface with an OpenFlow port number of OF_PORT and
109 # name of p{OF_PORT}.  The dummy implementation will treat the OF_PORT
110 # as the datapath port number, which as the effect of making the
111 # OpenFlow and datapath numbers the same.
112 m4_define([ADD_OF_PORTS],
113  [ovs-vsctl m4_foreach([of_port], m4_cdr($@),
114     [ \
115     -- add-port $1 p[]of_port -- set Interface p[]of_port type=dummy ofport_request=of_port])])