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
48 lines
1 KiB
Text
48 lines
1 KiB
Text
# @TEST-EXEC: zeek -b %INPUT >output
|
|
# @TEST-EXEC: btest-diff test.log
|
|
# @TEST-EXEC: btest-diff output
|
|
|
|
module Test;
|
|
|
|
export {
|
|
redef enum Log::ID += { LOG };
|
|
|
|
type Log: record {
|
|
s: string;
|
|
} &log;
|
|
}
|
|
|
|
event zeek_init()
|
|
{
|
|
local a = "abc\0def";
|
|
local b = escape_string(a);
|
|
local c = fmt("%s", a);
|
|
|
|
Log::create_stream(Test::LOG, [$columns=Log]);
|
|
Log::write(Test::LOG, [$s="AB\0CD\0"]);
|
|
Log::write(Test::LOG, [$s="AB\xffCD\0"]);
|
|
Log::write(Test::LOG, [$s="AB\\xffCD\0"]);
|
|
Log::write(Test::LOG, [$s=" "]);
|
|
Log::write(Test::LOG, [$s=b]);
|
|
Log::write(Test::LOG, [$s=" "]);
|
|
Log::write(Test::LOG, [$s=c]);
|
|
Log::write(Test::LOG, [$s=" "]);
|
|
Log::write(Test::LOG, [$s="foo \xc2\xae bar \\xc2\\xae baz"]);
|
|
Log::write(Test::LOG, [$s="foo\x00bar\\0baz"]);
|
|
Log::write(Test::LOG, [$s="foo \16 bar ^N baz"]);
|
|
|
|
print "AB\0CD\0";
|
|
print "AB\xffCD\0";
|
|
print "AB\\xffCD\0";
|
|
print "";
|
|
print b;
|
|
print "";
|
|
print c;
|
|
print "";
|
|
print "foo \xc2\xae bar \\xc2\\xae baz";
|
|
print "foo\x00bar\\0baz";
|
|
print "foo \16 bar ^N baz";
|
|
|
|
print "";
|
|
}
|
|
|