mirror of
https://github.com/zeek/zeek.git
synced 2025-10-02 14:48:21 +00:00
789cb376fd
This also installs symlinks from "zeek" and "bro-config" to a wrapper script that prints a deprecation warning. The btests pass, but this is still WIP. broctl renaming is still missing. #239
38 lines
950 B
Text
38 lines
950 B
Text
# @TEST-EXEC: zeek -b %INPUT >output
|
|
# @TEST-EXEC: btest-diff output
|
|
|
|
# This test checks whether records with complex fields (tables, sets, vectors)
|
|
# can be used as table/set indices.
|
|
|
|
type MetaData: record {
|
|
a: count;
|
|
tags_v: vector of count;
|
|
tags_t: table[string] of count;
|
|
tags_s: set[string];
|
|
};
|
|
|
|
global ip_data: table[addr] of set[MetaData] = table();
|
|
|
|
global t1_t: table[string] of count = { ["one"] = 1, ["two"] = 2 };
|
|
global t2_t: table[string] of count = { ["four"] = 4, ["five"] = 5 };
|
|
|
|
global t1_v: vector of count = vector();
|
|
global t2_v: vector of count = vector();
|
|
t1_v[0] = 0;
|
|
t1_v[1] = 1;
|
|
t2_v[2] = 2;
|
|
t2_v[3] = 3;
|
|
|
|
local m: MetaData = [$a=4, $tags_v=t1_v, $tags_t=t1_t, $tags_s=set("a", "b")];
|
|
local n: MetaData = [$a=13, $tags_v=t2_v, $tags_t=t2_t, $tags_s=set("c", "d")];
|
|
|
|
if ( 1.2.3.4 !in ip_data )
|
|
ip_data[1.2.3.4] = set(m);
|
|
else
|
|
add ip_data[1.2.3.4][m];
|
|
|
|
print ip_data;
|
|
|
|
add ip_data[1.2.3.4][n];
|
|
|
|
print ip_data[1.2.3.4];
|