tests/regression/tools/filtering/test_invalid_filter

   1 #!/bin/bash
   2 #
   3 # Copyright (C) - 2012 Christian Babeux <christian.babeux@efficios.com>
   4 #
   5 # This program is free software; you can redistribute it and/or modify it
   6 # under the terms of the GNU General Public License, version 2 only, as
   7 # published by the Free Software Foundation.
   8 #
   9 # This program is distributed in the hope that it will be useful, but WITHOUT
  10 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  11 # FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
  12 # more details.
  13 #
  14 # You should have received a copy of the GNU General Public License along with
  15 # this program; if not, write to the Free Software Foundation, Inc., 51
  16 # Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  17
  18 TEST_DESC="Filtering - Invalid filters"
  19
  20 CURDIR=$(dirname $0)/
  21 TESTDIR=$CURDIR/../../..
  22 LTTNG_BIN="lttng"
  23 SESSION_NAME="filter-invalid"
  24 EVENT_NAME="bogus"
  25 ENABLE_EVENT_STDERR="/tmp/invalid-filters-stderr"
  26 TRACE_PATH=$(mktemp -d)
  27 NUM_GLOBAL_TESTS=2
  28 NUM_UST_TESTS=144
  29 NUM_KERNEL_TESTS=144
  30 NUM_TESTS=$(($NUM_UST_TESTS+$NUM_KERNEL_TESTS+$NUM_GLOBAL_TESTS))
  31
  32 source $TESTDIR/utils/utils.sh
  33
  34 function enable_lttng_event_filter
  35 {
  36         domain="$1"
  37         sess_name="$2"
  38         event_name="$3"
  39         filter="$4"
  40
  41         $TESTDIR/../src/bin/lttng/$LTTNG_BIN enable-event $event_name -s $sess_name \
  42                 $domain --filter "$filter" 2> $ENABLE_EVENT_STDERR 1> /dev/null
  43
  44         # Enable must fail
  45         if [ $? -eq 0 ]; then
  46                 fail "Enable lttng event with filtering and invalid filter"
  47                 return 1
  48         else
  49                 pass "Enable lttng event with filtering and invalid filter"
  50                 return 0
  51         fi
  52 }
  53
  54 function test_invalid_filter
  55 {
  56         domain="$1"
  57         test_invalid_filter="$2"
  58
  59         diag "Test filter expression with invalid filter"
  60         diag "Filter: $test_invalid_filter"
  61
  62         # Create session
  63         create_lttng_session_ok $SESSION_NAME $TRACE_PATH
  64
  65         # Apply filter
  66         enable_lttng_event_filter $domain $SESSION_NAME $EVENT_NAME "$test_invalid_filter"
  67
  68         # Destroy session
  69         destroy_lttng_session_ok $SESSION_NAME
  70 }
  71
  72 function test_bytecode_limit
  73 {
  74         domain="$1"
  75
  76         # Current bytecode limitation is 65536 bytes long.
  77         # Generate a huge bytecode with some perl-fu
  78         BYTECODE_LIMIT=`perl -e 'print "intfield" . " && 1" x5460'`
  79
  80         diag "Test filter bytecode limits (64KiB)"
  81
  82         # Create session
  83         create_lttng_session_ok $SESSION_NAME $TRACE_PATH
  84
  85         # Apply filter
  86         enable_lttng_event_filter $domain $SESSION_NAME $EVENT_NAME "$BYTECODE_LIMIT"
  87
  88         # Destroy session
  89         destroy_lttng_session_ok $SESSION_NAME
  90 }
  91
  92 plan_tests $NUM_TESTS
  93
  94 print_test_banner "$TEST_DESC"
  95
  96 OLDIFS="$IFS"
  97 IFS=$'\n'
  98 INVALID_FILTERS=(
  99                 # Unsupported ops
 100                 "intfield*1"
 101                 "intfield/1"
 102                 "intfield+1"
 103                 "intfield-1"
 104                 "intfield>>1"
 105                 "intfield<<1"
 106                 "intfield&1"
 107                 "intfield|1"
 108                 "intfield^1"
 109                 "~intfield"
 110                 "1+11111-3333+1"
 111                 "(1+2)*(55*666)"
 112                 "1+2*55*666"
 113                 "asdf + 1 > 1"
 114                 "asdfas < 2332 || asdf + 1 > 1"
 115                 "!+-+++-------+++++++++++-----!!--!44+1"
 116                 "aaa||(gg)+(333----1)"
 117                 "1+1"
 118                 # Unmatched parenthesis
 119                 "((((((((((((((intfield)))))))))))))"
 120                 '0 || ("abc" != "def")) && (3 < 4)'
 121                 # Field dereference
 122                 "a.a.a.a.a.a.a.a.a.a.a.a.a.a.a.a.a.a.a.a"
 123                 "a->"
 124                 "a-->a"
 125                 "a->a"
 126                 "a.b.c->d.e.f+1"
 127                 "!a.f.d"
 128                 "asdf.asdfsd.sadf < 4"
 129                 "asdfasdf->asdfasdf < 2"
 130                 # String can\'t be root node
 131                 "\"somestring\""
 132                 # Unary op on string not allowed
 133                 "!\"somestring\""
 134                 # Comparison with string type not allowed
 135                 "\"somestring\" > 42"
 136                 "\"somestring\" > 42.0"
 137                 "42 > \"somestring\""
 138                 "42.0 > \"somestring\""
 139                 # Logical operator with string type not allowed
 140                 "\"somestring\" || 1"
 141                 "1 || \"somestring\""
 142                 # Nesting of binary operator not allowed
 143                 "1 | (1 | (1 | 1))"
 144                 "1 > (1 > (1 > 1))"
 145                 # Exactly one chaining level under \$ctx allowed
 146                 "\$ctx.vtid.blah == 0"
 147                 "0 == \$ctx.vtid.blah"
 148                 "\$ctx.44 == 0"
 149                 "0 == \$ctx.44"
 150                 "\$ctx == 0"
 151                 "0 == \$ctx"
 152                 # Only \$ctx is supported for now
 153                 "\$global.value == 0"
 154                 "0 == \$global.value"
 155                 # A wildcard should only appear as the last character in a string literal
 156                 "msg == \"my_event*_blah\""
 157 )
 158 IFS="$OLDIFS"
 159
 160 start_lttng_sessiond
 161 diag "Test UST filters"
 162
 163 i=0
 164 while [ "$i" -lt "${#INVALID_FILTERS[@]}" ]; do
 165         echo "${INVALID_FILTERS[$i]}"
 166         test_invalid_filter -u "${INVALID_FILTERS[$i]}"
 167         let "i++"
 168 done
 169
 170 test_bytecode_limit -u
 171
 172 if [ "$(id -u)" == "0" ]; then
 173         isroot=1
 174 else
 175         isroot=0
 176 fi
 177
 178 skip $isroot "Root access is needed. Skipping all kernel invalid filter tests." $NUM_KERNEL_TESTS ||
 179 {
 180         diag "Test kernel filters"
 181         i=0
 182         while [ "$i" -lt "${#INVALID_FILTERS[@]}" ]; do
 183                 echo "${INVALID_FILTERS[$i]}"
 184                 test_invalid_filter -k "${INVALID_FILTERS[$i]}"
 185                 let "i++"
 186         done
 187
 188         test_bytecode_limit -k
 189 }
 190 stop_lttng_sessiond
 191
 192 rm -f $ENABLE_EVENT_STDERR
 193 rm -rf $TRACE_PATH