3 # Copyright (C) - 2012 Christian Babeux <christian.babeux@efficios.com>
4 # David Goulet <dgoulet@efficios.com>
6 # This library is free software; you can redistribute it and/or modify it under
7 # the terms of the GNU Lesser General Public License as published by the Free
8 # Software Foundation; version 2.1 of the License.
10 # This library is distributed in the hope that it will be useful, but WITHOUT
11 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
12 # FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more
15 # You should have received a copy of the GNU Lesser General Public License
16 # along with this library; if not, write to the Free Software Foundation, Inc.,
17 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
19 TEST_DESC
="Streaming - High throughput with bandwidth limits"
22 TESTDIR
=$CURDIR/..
/..
/..
25 BIN_NAME
="gen-ust-events"
26 SESSION_NAME
="high-throughput"
27 EVENT_NAME
="tp:tptest"
28 SESSIOND_CTRL_PORT
=5342
29 SESSIOND_DATA_PORT
=5343
32 TRACE_PATH
=$
(mktemp
-d)
36 source $TESTDIR/utils
/utils.sh
38 print_test_banner
"$TEST_DESC"
40 if [ ! -x "$CURDIR/$BIN_NAME" ]; then
41 BAIL_OUT
"No UST nevents binary detected."
47 ctrlportlimit
=$
(($limit/10))
48 # failsafe to have at least 1kbit/s for control (in the case where $1 < 10)
49 [ $ctrlportlimit = 0 ] && ctrlportlimit
=1
50 # if $1 < 10, we might bust the limit set here, but the
51 # parent qdisc (1:) will always limit us to the right max value
52 dataportlimit
=$
((9*${ctrlportlimit}))
55 tc qdisc add dev
$DEFAULT_IF root handle
1: htb default
15 >/dev
/null
2>&1
57 # the total bandwidth is the limit set by the user
58 tc class add dev
$DEFAULT_IF parent
1: classid
1:1 htb rate
${limit}kbit ceil
${limit}kbit
>/dev
/null
2>&1
59 # 1/10 of the bandwidth guaranteed and traffic prioritized for the control port
60 tc class add dev
$DEFAULT_IF parent
1:1 classid
1:10 htb rate
${ctrlportlimit}kbit ceil
${limit}kbit prio
1 >/dev
/null
2>&1
61 # 9/10 of the bandwidth guaranteed and can borrow up to the total bandwidth (if unused)
62 tc class add dev
$DEFAULT_IF parent
1:1 classid
1:11 htb rate
${dataportlimit}kbit ceil
${limit}kbit prio
2 >/dev
/null
2>&1
64 # filter to assign control traffic to the 1:10 class
65 tc filter add dev
$DEFAULT_IF parent
1: protocol ip u32 match ip dport
$SESSIOND_CTRL_PORT 0xffff flowid
1:10 >/dev
/null
2>&1
66 # filter to assign data traffic to the 1:11 class
67 tc filter add dev
$DEFAULT_IF parent
1: protocol ip u32 match ip dport
$SESSIOND_DATA_PORT 0xffff flowid
1:11 >/dev
/null
2>&1
69 ok $?
"Set bandwidth limits to ${limit}kbits, ${ctrlportlimit} for control and ${dataportlimit} for data"
72 function reset_bw_limit
74 tc qdisc del dev
$DEFAULT_IF root
>/dev
/null
2>&1
75 ok $?
"Reset bandwith limits"
78 function create_lttng_session_with_uri
82 # Create session with custom URI
83 $TESTDIR/..
/src
/bin
/lttng
/$LTTNG_BIN create
-U $uri $sess_name >/dev
/null
2>&1
84 ok $?
"Create session with uri $uri"
87 function enable_lttng_consumer
90 # Create session with custom URI
91 $TESTDIR/..
/src
/bin
/lttng
/$LTTNG_BIN enable-consumer
-u $uri >/dev
/null
2>&1
92 ok $?
"Enable consumer with uri $uri"
97 for i
in `seq 1 $NR_APP_ITER`; do
98 # With bandwidth limitation, unfortunately, application easily timeout
99 # due to very slow communication between the consumer and relayd making
100 # the status reply from the consumer quite slow thus delaying the
101 # registration done message.
102 LTTNG_UST_REGISTER_TIMEOUT
=-1 .
/$CURDIR/$BIN_NAME $NR_ITER & >/dev
/null
2>&1
108 while [ -n "$(pidof $BIN_NAME)" ]; do
111 pass
"Wait for applications to end"
114 function test_high_throughput
116 NETWORK_URI
="net://localhost"
117 create_lttng_session_with_uri
$SESSION_NAME $NETWORK_URI
118 enable_lttng_consumer
$NETWORK_URI
119 enable_ust_lttng_event
$SESSION_NAME $EVENT_NAME
120 start_lttng_tracing
$SESSION_NAME
123 stop_lttng_tracing
$SESSION_NAME
124 destroy_lttng_session
$SESSION_NAME
128 function validate_event_count
132 TEMP_FILE_2
=$
(mktemp
)
134 traced
=$
(babeltrace
$TRACE_PATH 2>/dev
/null |
wc -l)
135 babeltrace
$TRACE_PATH >/dev
/null
2>$TEMP_FILE_2
137 cat $TEMP_FILE_2 | cut
-f4 -d " " >$TEMP_FILE
142 let dropped
=$dropped+$line
145 let total
=$dropped+$traced
146 let wanted
=$NR_APP_ITER*$NR_ITER
148 if [ $wanted -ne $total ]; then
149 fail
"Validate trace event count"
150 diag
"Expected $wanted. Dropped $dropped. Recorded $traced. Total $total... "
153 pass
"Validate trace event count"
154 diag
"Expected $wanted. Dropped $dropped. Recorded $traced. Total $total... "
157 rm $TEMP_FILE $TEMP_FILE_2
163 function interrupt_cleanup
()
165 diag
"*** Exiting ***"
172 plan_tests
$NUM_TESTS
174 if [ "$(id -u)" == "0" ]; then
180 skip
$isroot "Root access is needed to set bandwith limits. Skipping all tests." $NUM_TESTS ||
183 # Catch sigint and try to cleanup limits
184 trap interrupt_cleanup SIGINT
186 BW_LIMITS
=(3200 1600 800 400 200 100 50 25)
187 for BW
in ${BW_LIMITS[@]};
189 diag
"Test high-throughput with bandwidth limit set to ${BW}kbits"
193 start_lttng_relayd
"-o $TRACE_PATH"