mirror of
https://github.com/zeek/zeek.git
synced 2025-10-09 10:08:20 +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
46 lines
725 B
Text
46 lines
725 B
Text
#
|
|
# @TEST-EXEC: zeek -b %INPUT >out
|
|
# @TEST-EXEC: btest-diff out
|
|
|
|
type myrec: record {
|
|
myfield: bool;
|
|
};
|
|
|
|
type tt: record {
|
|
a: bool;
|
|
b: string &default="Bar";
|
|
c: double &optional;
|
|
d: string &log;
|
|
m: myrec;
|
|
};
|
|
|
|
type r: record {
|
|
a: count;
|
|
b: string &default="Foo";
|
|
c: double &optional;
|
|
d: string &log;
|
|
e: any;
|
|
};
|
|
|
|
type mystring: string;
|
|
|
|
event zeek_init()
|
|
{
|
|
local x: r = [$a=42, $d="Bar", $e=tt];
|
|
print x;
|
|
local t: record_field_table;
|
|
t = record_fields(x);
|
|
print t;
|
|
print t["c"]?$value;
|
|
|
|
t = record_fields(x$e);
|
|
print t;
|
|
t = record_fields(tt);
|
|
print t;
|
|
|
|
x = [$a=42, $d="Bar", $e=mystring];
|
|
t = record_fields(x);
|
|
print t;
|
|
t = record_fields(x$e);
|
|
print t;
|
|
}
|