mirror of
https://github.com/zeek/zeek.git
synced 2025-10-02 06:38:20 +00:00
94 lines
2.2 KiB
Text
94 lines
2.2 KiB
Text
# @TEST-PORT: BROKER_PORT
|
|
#
|
|
# @TEST-EXEC: btest-bg-run recv "zeek -b ../recv.zeek >recv.out"
|
|
# @TEST-EXEC: btest-bg-run send "zeek -b ../send.zeek >send.out"
|
|
#
|
|
# @TEST-EXEC: btest-bg-wait 45
|
|
# @TEST-EXEC: btest-diff recv/recv.out
|
|
# @TEST-EXEC: btest-diff send/send.out
|
|
|
|
@TEST-START-FILE send.zeek
|
|
|
|
redef exit_only_after_terminate = T;
|
|
|
|
global event_count = 0;
|
|
|
|
global ping: event(msg: string, c: count);
|
|
|
|
event zeek_init()
|
|
{
|
|
Broker::subscribe("zeek/event/my_topic");
|
|
Broker::auto_publish("zeek/event/my_topic", ping);
|
|
Broker::peer("127.0.0.1", to_port(getenv("BROKER_PORT")));
|
|
}
|
|
|
|
function send_event()
|
|
{
|
|
event ping("my-message", ++event_count);
|
|
}
|
|
|
|
event Broker::peer_added(endpoint: Broker::EndpointInfo, msg: string)
|
|
{
|
|
print fmt("sender added peer: endpoint=%s msg=%s", endpoint$network$address, msg);
|
|
send_event();
|
|
}
|
|
|
|
event Broker::peer_lost(endpoint: Broker::EndpointInfo, msg: string)
|
|
{
|
|
print fmt("sender lost peer: endpoint=%s msg=%s", endpoint$network$address, msg);
|
|
terminate();
|
|
}
|
|
|
|
event pong(msg: string, n: count)
|
|
{
|
|
print fmt("sender got pong: %s, %s", msg, n);
|
|
send_event();
|
|
}
|
|
|
|
@TEST-END-FILE
|
|
|
|
|
|
@TEST-START-FILE recv.zeek
|
|
|
|
redef exit_only_after_terminate = T;
|
|
|
|
const events_to_recv = 5;
|
|
|
|
global handler: event(msg: string, c: count);
|
|
global auto_handler: event(msg: string, c: count);
|
|
|
|
global pong: event(msg: string, c: count);
|
|
|
|
event zeek_init()
|
|
{
|
|
Broker::subscribe("zeek/event/my_topic");
|
|
Broker::auto_publish("zeek/event/my_topic", pong);
|
|
Broker::listen("127.0.0.1", to_port(getenv("BROKER_PORT")));
|
|
}
|
|
|
|
event Broker::peer_added(endpoint: Broker::EndpointInfo, msg: string)
|
|
{
|
|
print fmt("receiver added peer: endpoint=%s msg=%s",
|
|
endpoint$network$address, msg);
|
|
}
|
|
|
|
event Broker::peer_lost(endpoint: Broker::EndpointInfo, msg: string)
|
|
{
|
|
print fmt("receiver lost peer: endpoint=%s msg=%s",
|
|
endpoint$network$address, msg);
|
|
}
|
|
|
|
event ping(msg: string, n: count)
|
|
{
|
|
print fmt("receiver got ping: %s, %s", msg, n);
|
|
|
|
if ( n == events_to_recv )
|
|
{
|
|
terminate();
|
|
return;
|
|
}
|
|
|
|
event pong(msg, n);
|
|
}
|
|
|
|
@TEST-END-FILE
|