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
52 lines
1.2 KiB
Text
52 lines
1.2 KiB
Text
# @TEST-EXEC: zeek -b %INPUT >output
|
|
# @TEST-EXEC: btest-diff output
|
|
|
|
type myrec: record {
|
|
a: string;
|
|
};
|
|
|
|
const mr = myrec($a = "init") &redef;
|
|
|
|
redef mr = myrec($a = "redef");
|
|
|
|
# Many fields may help ensure out-of-bounds reference failures
|
|
redef record myrec += {
|
|
d: string &optional;
|
|
e: string &optional;
|
|
f: string &optional;
|
|
g: string &optional;
|
|
h: string &optional;
|
|
i: string &optional;
|
|
j: string &optional;
|
|
k: string &optional;
|
|
l: string &optional;
|
|
m: string &optional;
|
|
n: string &optional;
|
|
o: string &optional;
|
|
p: string &optional;
|
|
q: string &default="OPTQ";
|
|
};
|
|
|
|
print mr; # original 'myrec' type with updated a value
|
|
print myrec($a = "runtime"); # check we get new defaults
|
|
|
|
local mr2 = myrec($a = "local");
|
|
print mr2;
|
|
|
|
mr2 = mr; # Copying should do the right thing
|
|
print mr2;
|
|
|
|
local mr3: myrec = mr; # Initializing should do the right thing
|
|
print mr3;
|
|
|
|
if ( mr?$q ) # the test that did not work properly
|
|
{
|
|
print mr$q; # accessed invalid memory location
|
|
}
|
|
mr$p = "newp"; # Assignment updates mr as much as needed
|
|
print mr$p;
|
|
print mr;
|
|
print mr$q;
|
|
mr$q = "our value";
|
|
print mr$q;
|
|
print mr;
|