mirror of
https://github.com/zeek/zeek.git
synced 2025-10-03 07:08:19 +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
57 lines
1.9 KiB
Text
57 lines
1.9 KiB
Text
# @TEST-EXEC: zeek -b %INPUT > output
|
|
# @TEST-EXEC: btest-diff output
|
|
|
|
@load base/utils/hash_hrw
|
|
|
|
local pool = HashHRW::Pool();
|
|
local alice = HashHRW::Site($id=0, $user_data="alice");
|
|
local bob = HashHRW::Site($id=1, $user_data="bob");
|
|
local charlie = HashHRW::Site($id=2, $user_data="charlie");
|
|
local dave = HashHRW::Site($id=3, $user_data="dave");
|
|
local eve = HashHRW::Site($id=4, $user_data="eve");
|
|
|
|
print HashHRW::add_site(pool, alice);
|
|
print HashHRW::add_site(pool, alice);
|
|
print HashHRW::add_site(pool, bob);
|
|
print HashHRW::add_site(pool, charlie);
|
|
print HashHRW::add_site(pool, dave);
|
|
print HashHRW::add_site(pool, eve);
|
|
print HashHRW::rem_site(pool, charlie);
|
|
print HashHRW::rem_site(pool, charlie);
|
|
|
|
print HashHRW::get_site(pool, "one");
|
|
print HashHRW::get_site(pool, "two");
|
|
print HashHRW::get_site(pool, "three");
|
|
print HashHRW::get_site(pool, "four");
|
|
print HashHRW::get_site(pool, "four");
|
|
print HashHRW::get_site(pool, "five");
|
|
print HashHRW::get_site(pool, "six");
|
|
print HashHRW::get_site(pool, 1);
|
|
print HashHRW::get_site(pool, 2);
|
|
print HashHRW::get_site(pool, 3);
|
|
|
|
print HashHRW::rem_site(pool, alice);
|
|
|
|
print HashHRW::get_site(pool, "one");
|
|
print HashHRW::get_site(pool, "two");
|
|
print HashHRW::get_site(pool, "three");
|
|
print HashHRW::get_site(pool, "four");
|
|
print HashHRW::get_site(pool, "four");
|
|
print HashHRW::get_site(pool, "five");
|
|
print HashHRW::get_site(pool, "six");
|
|
print HashHRW::get_site(pool, 1);
|
|
print HashHRW::get_site(pool, 2);
|
|
print HashHRW::get_site(pool, 3);
|
|
|
|
print HashHRW::add_site(pool, alice);
|
|
|
|
print HashHRW::get_site(pool, "one");
|
|
print HashHRW::get_site(pool, "two");
|
|
print HashHRW::get_site(pool, "three");
|
|
print HashHRW::get_site(pool, "four");
|
|
print HashHRW::get_site(pool, "four");
|
|
print HashHRW::get_site(pool, "five");
|
|
print HashHRW::get_site(pool, "six");
|
|
print HashHRW::get_site(pool, 1);
|
|
print HashHRW::get_site(pool, 2);
|
|
print HashHRW::get_site(pool, 3);
|