Mirror/zeek
1
0
Fork 0
mirror of https://github.com/zeek/zeek.git synced 2025-10-02 14:48:21 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

add very basic predicate test.

Browse source
This commit is contained in:
Bernhard Amann 2011-11-21 15:36:03 -08:00
parent bfe90199bd
commit 92b3723b09
2 changed files with 73 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
testing/btest/Baseline/scripts.base.frameworks.input.predicate/out Normal file
View file

@ -0,0 +1,7 @@
VALID
VALID
VALID
VALID
VALID
VALID
VALID

66
testing/btest/scripts/base/frameworks/input/predicate.bro Normal file
View file

@ -0,0 +1,66 @@
#
# @TEST-EXEC: bro %INPUT >out
# @TEST-EXEC: btest-diff out
@TEST-START-FILE input.log
#separator \x09
#path ssh
#fields i b
#types int bool
1 T
2 T
3 F
4 F
5 F
6 F
7 T
@TEST-END-FILE
redef InputAscii::empty_field = "EMPTY";
module A;
export {
redef enum Log::ID += { LOG };
}
type idx: record {
i: int;
};
type val: record {
b: bool;
};
global servers: table[int] of val = table();
event bro_init()
{
# first read in the old stuff into the table...
Input::create_stream(A::LOG, [$source="input.log"]);
Input::add_tablefilter(A::LOG, [$name="input", $idx=idx, $val=val, $destination=servers, $want_record=F,
$pred(typ: Input::Event, left: idx, right: bool) = { return right; }
]);
Input::force_update(A::LOG);
if ( 1 in servers ) {
print "VALID";
}
if ( 2 in servers ) {
print "VALID";
}
if ( !(3 in servers) ) {
print "VALID";
}
if ( !(4 in servers) ) {
print "VALID";
}
if ( !(5 in servers) ) {
print "VALID";
}
if ( !(6 in servers) ) {
print "VALID";
}
if ( 7 in servers ) {
print "VALID";
}
}