mirror of
https://github.com/zeek/zeek.git
synced 2025-10-11 02:58:20 +00:00
463e540c9b
* origin/topic/vern/case-insensitive-patterns: use PCRE syntax instead of the beautiful new (?i ...) syntax nitlet in NEWS entry test suite update for case-insensitive patterns document use of double quotes to escape case-insensitivity bug fix for recent memory leak patch documentation updates for case-insensitive patterns d'oh there's isalpha. I looked earlier for isletter :-P fix for handling [:(lower|upper):] in case-insensitive patterns implemented /re/i for case-insensitive patterns
67 lines
2.6 KiB
Text
67 lines
2.6 KiB
Text
# @TEST-GROUP: leaks
|
|
# @TEST-REQUIRES: bro --help 2>&1 | grep -q mem-leaks
|
|
|
|
# @TEST-EXEC: HEAP_CHECK_DUMP_DIRECTORY=. HEAPCHECK=local btest-bg-run bro bro -m -b -r $TRACES/http/get.trace %INPUT
|
|
# @TEST-EXEC: btest-bg-wait 60
|
|
|
|
function test_case(msg: string, expect: bool)
|
|
{
|
|
print fmt("%s (%s)", msg, expect ? "PASS" : "FAIL");
|
|
}
|
|
|
|
event new_connection(c: connection)
|
|
{
|
|
print "new connection";
|
|
|
|
local p1: pattern = /foo|bar/;
|
|
local p2: pattern = /oob/;
|
|
local p3: pattern = /^oob/;
|
|
local p4 = /foo/;
|
|
|
|
# Type inference tests
|
|
|
|
test_case( "type inference", type_name(p4) == "pattern" );
|
|
|
|
# Operator tests
|
|
|
|
test_case( "equality operator", "foo" == p1 );
|
|
test_case( "equality operator (order of operands)", p1 == "foo" );
|
|
test_case( "inequality operator", "foobar" != p1 );
|
|
test_case( "inequality operator (order of operands)", p1 != "foobar" );
|
|
test_case( "in operator", p1 in "foobar" );
|
|
test_case( "in operator", p2 in "foobar" );
|
|
test_case( "!in operator", p3 !in "foobar" );
|
|
test_case( "& operator", p1 & p2 in "baroob" );
|
|
test_case( "& operator", p2 & p1 in "baroob" );
|
|
test_case( "| operator", p1 | p2 in "lazybarlazy" );
|
|
test_case( "| operator", p3 | p4 in "xoob" );
|
|
|
|
test_case( "/i pattern modifier", /fOO/i in "xFoObar" );
|
|
test_case( "/i pattern modifier", /fOO/i == "Foo" );
|
|
|
|
test_case( "/i double-quote escape", /"fOO"/i in "xFoObar" );
|
|
test_case( "/i double-quote escape", /"fOO"/i in "xfOObar" );
|
|
|
|
test_case( "case-sensitive pattern", /fOO/ in "xFoObar" );
|
|
test_case( "case-sensitive pattern", /fOO/ == "Foo" );
|
|
test_case( "case-sensitive pattern", /fOO/ == "fOO" );
|
|
|
|
test_case( "/i pattern disjunction", /bar/i | /bez/ == "bez" );
|
|
test_case( "/i pattern disjunction", /bar/i | /bez/ == "bEz" );
|
|
test_case( "/i pattern disjunction", /bar/i | /bez/ == "bar" );
|
|
test_case( "/i pattern disjunction", /bar/i | /bez/ == "bAr" );
|
|
|
|
test_case( "/i pattern concatenation", /bar/i & /bez/ == "barbez" );
|
|
test_case( "/i pattern concatenation", /bar/i & /bez/ == "barbEz" );
|
|
test_case( "/i pattern concatenation", /BAR/i & /bez/ == "barbEz" );
|
|
test_case( "/i pattern concatenation", /bar/i & /bez/ == "bArbez" );
|
|
test_case( "/i pattern concatenation", /BAR/i & /bez/ == "bArbez" );
|
|
test_case( "/i pattern concatenation", /bar/i & /bez/ == "bArbEz" );
|
|
|
|
test_case( "/i pattern character class", /ba[0a-c99S-Z0]/i & /bEz/ == "bArbEz" );
|
|
test_case( "/i pattern character class", /ba[0a-c99M-S0]/i & /bEz/ == "bArbEz" );
|
|
|
|
test_case( "(?i:...) pattern construct", /foo|(?i:bar)/ in "xBAry" );
|
|
test_case( "(?i:...) pattern construct", /foo|(?i:bar)/ in "xFOoy" );
|
|
test_case( "(?i:...) pattern construct", /foo|(?i:bar)/ | /foo/i in "xFOoy" );
|
|
}
|