[lttng-tools.git] / tests / regression / tools / filtering / test_invalid_filter

#!/bin/bash
#
# Copyright (C) 2012 Christian Babeux <christian.babeux@efficios.com>
#
# SPDX-License-Identifier: GPL-2.0-only
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License, version 2 only, as
# published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
# more details.
#
# You should have received a copy of the GNU General Public License along with
# this program; if not, write to the Free Software Foundation, Inc., 51
# Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

TEST_DESC="Filtering - Invalid filters"

CURDIR=$(dirname $0)/
TESTDIR=$CURDIR/../../..
SESSION_NAME="filter-invalid"
EVENT_NAME="bogus"
ENABLE_EVENT_STDERR="/tmp/invalid-filters-stderr"
TRACE_PATH=$(mktemp -d -t tmp.test_filtering_invalid_filters_trace_path.XXXXXX)
NUM_GLOBAL_TESTS=2
NUM_UST_TESTS=138
NUM_KERNEL_TESTS=138
NUM_TESTS=$(($NUM_UST_TESTS+$NUM_KERNEL_TESTS+$NUM_GLOBAL_TESTS))

source $TESTDIR/utils/utils.sh

function enable_lttng_event_filter
{
	domain="$1"
	sess_name="$2"
	event_name="$3"
	filter="$4"

	$TESTDIR/../src/bin/lttng/$LTTNG_BIN enable-event $event_name -s $sess_name \
		$domain --filter "$filter" 2> $ENABLE_EVENT_STDERR 1> /dev/null

	# Enable must fail
	if [ $? -eq 0 ]; then
		fail "Enable lttng event with filtering and invalid filter"
		return 1
	else
		pass "Enable lttng event with filtering and invalid filter"
		return 0
	fi
}

function test_invalid_filter
{
	domain="$1"
	test_invalid_filter="$2"

	diag "Test filter expression with invalid filter"
	diag "Filter: $test_invalid_filter"

	# Create session
	create_lttng_session_ok $SESSION_NAME $TRACE_PATH

	# Apply filter
	enable_lttng_event_filter $domain $SESSION_NAME $EVENT_NAME "$test_invalid_filter"

	# Destroy session
	destroy_lttng_session_ok $SESSION_NAME
}

function test_bytecode_limit
{
	domain="$1"

	# Current bytecode limitation is 65536 bytes long.
	# Generate a huge bytecode with some perl-fu
	BYTECODE_LIMIT=`perl -e 'print "intfield" . " && 1" x5460'`

	diag "Test filter bytecode limits (64KiB)"

	# Create session
	create_lttng_session_ok $SESSION_NAME $TRACE_PATH

	# Apply filter
	enable_lttng_event_filter $domain $SESSION_NAME $EVENT_NAME "$BYTECODE_LIMIT"

	# Destroy session
	destroy_lttng_session_ok $SESSION_NAME
}

plan_tests $NUM_TESTS

print_test_banner "$TEST_DESC"

bail_out_if_no_babeltrace

OLDIFS="$IFS"
IFS=$'\n'
INVALID_FILTERS=(
		# Unsupported ops
		"intfield*1"
		"intfield/1"
		"intfield+1"
		"intfield-1"
		"1+11111-3333+1"
		"(1+2)*(55*666)"
		"1+2*55*666"
		"asdf + 1 > 1"
		"asdfas < 2332 || asdf + 1 > 1"
		"!+-+++-------+++++++++++-----!!--!44+1"
		"aaa||(gg)+(333----1)"
		"1+1"
		# Unmatched parenthesis
		"((((((((((((((intfield)))))))))))))"
		'0 || ("abc" != "def")) && (3 < 4)'
		"a->"
		"a-->a"
		"a.b.c->d.e.f+1"
		# String can\'t be root node
		"\"somestring\""
		# Unary op on string not allowed
		"!\"somestring\""
		# Comparison with string type not allowed
		"\"somestring\" > 42"
		"\"somestring\" > 42.0"
		"42 > \"somestring\""
		"42.0 > \"somestring\""
		# Logical operator with string type not allowed
		"\"somestring\" || 1"
		"1 || \"somestring\""
		"\$ctx == 0"
		"0 == \$ctx"
		# Only \$ctx is supported for now
		"\$global.value == 0"
		"0 == \$global.value"
		# Cannot compare two full star globbing patterns
		'"hello*world" == "yes*man"'
		'"hello*world" == "yesman*"'
		'"helloworld*" == "yes*man"'
		# May only use != and == operators when one of them is a full
		# star globbing pattern
		'"hello*world" < field'
		'"hello*world" <= field'
		'"hello*world" >= field'
		'"hello*world" > field'
		'"hello*world" || field'
		'"hello*world" && field'
		'field < "hello*world"'
		'field <= "hello*world"'
		'field >= "hello*world"'
		'field > "hello*world"'
		'field && "hello*world"'
		'field || "hello*world"'
		# Array expression must contain constant index
		'field[abc] == 1'
)
IFS="$OLDIFS"

start_lttng_sessiond
diag "Test UST filters"

i=0
while [ "$i" -lt "${#INVALID_FILTERS[@]}" ]; do
	echo "${INVALID_FILTERS[$i]}"
	test_invalid_filter -u "${INVALID_FILTERS[$i]}"
	let "i++"
done

test_bytecode_limit -u

check_skip_kernel_test "$NUM_KERNEL_TESTS" "Skipping kernel invalid filter tests." ||
{
	diag "Test kernel filters"
	i=0
	while [ "$i" -lt "${#INVALID_FILTERS[@]}" ]; do
		echo "${INVALID_FILTERS[$i]}"
		test_invalid_filter -k "${INVALID_FILTERS[$i]}"
		let "i++"
	done

	test_bytecode_limit -k
}
stop_lttng_sessiond

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