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
95 lines
2.6 KiB
Text
95 lines
2.6 KiB
Text
# @TEST-EXEC: zeek -b %INPUT >output
|
|
# @TEST-EXEC: btest-diff output
|
|
|
|
# The various container constructor expressions should work in table
|
|
# initialization lists (as yields).
|
|
|
|
type set_yield: set[string, count];
|
|
type vector_yield: vector of count;
|
|
type table_yield: table[string, count] of count;
|
|
type record_yield: record {
|
|
a: count;
|
|
b: string;
|
|
};
|
|
|
|
global lone_set_ctor: set_yield = set(["foo", 1], ["bar", 2]);
|
|
global lone_vector_ctor: vector_yield = vector(1, 2);
|
|
global lone_table_ctor: table_yield = table(["foo", 1] = 1, ["bar", 2] = 2);
|
|
global lone_record_ctor: record_yield = record($a=1, $b="foo");
|
|
|
|
global table_of_set: table[count] of set_yield = {
|
|
[13] = lone_set_ctor,
|
|
[5] = set(["bah", 3], ["baz", 4]),
|
|
};
|
|
|
|
global table_of_vector: table[count] of vector_yield = {
|
|
[13] = lone_vector_ctor,
|
|
[5] = vector(3, 4),
|
|
};
|
|
|
|
global table_of_table: table[count] of table_yield = {
|
|
[13] = lone_table_ctor,
|
|
[5] = table(["bah", 3] = 3, ["baz", 4] = 4),
|
|
};
|
|
|
|
global table_of_record: table[count] of record_yield = {
|
|
[13] = lone_record_ctor,
|
|
[5] = record($a=2, $b="bar"),
|
|
};
|
|
|
|
# Just copying the inline ctors used in the table initializer lists here
|
|
# for later comparisons.
|
|
global inline_set_ctor: set_yield = set(["bah", 3], ["baz", 4]);
|
|
global inline_vector_ctor: vector_yield = vector(3, 4);
|
|
global inline_table_ctor: table_yield = table(["bah", 3] = 3, ["baz", 4] = 4);
|
|
global inline_record_ctor: record_yield = record($a=2, $b="bar");
|
|
|
|
function compare_set_yield(a: set_yield, b: set_yield)
|
|
{
|
|
local s: string;
|
|
local c: count;
|
|
for ( [s, c] in a )
|
|
print [s, c] in b;
|
|
}
|
|
|
|
function compare_vector_yield(a: vector_yield, b: vector_yield)
|
|
{
|
|
local c: count;
|
|
for ( c in a )
|
|
print a[c] == b[c];
|
|
}
|
|
|
|
function compare_table_yield(a: table_yield, b: table_yield)
|
|
{
|
|
local s: string;
|
|
local c: count;
|
|
for ( [s, c] in a )
|
|
print [s, c] in b && a[s, c] == b[s, c];
|
|
}
|
|
|
|
function compare_record_yield(a: record_yield, b: record_yield)
|
|
{
|
|
print a$a == b$a && a$b == b$b;
|
|
}
|
|
|
|
print "table of set";
|
|
print table_of_set;
|
|
print "";
|
|
print "table of vector";
|
|
print table_of_vector;
|
|
print "";
|
|
print "table of table";
|
|
print table_of_table;
|
|
print "";
|
|
print "table of record";
|
|
print table_of_record;
|
|
print "";
|
|
|
|
compare_set_yield(table_of_set[13], lone_set_ctor);
|
|
compare_set_yield(table_of_set[5], inline_set_ctor);
|
|
compare_vector_yield(table_of_vector[13], lone_vector_ctor);
|
|
compare_vector_yield(table_of_vector[5], inline_vector_ctor);
|
|
compare_table_yield(table_of_table[13], lone_table_ctor);
|
|
compare_table_yield(table_of_table[5], inline_table_ctor);
|
|
compare_record_yield(table_of_record[13], lone_record_ctor);
|
|
compare_record_yield(table_of_record[5], inline_record_ctor);
|