#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 2;
use VS::RuleEngine::Constants;
use VS::RuleEngine::Runloop;
use VS::RuleEngine::Engine;
my $i = 0;
my $engine1 = VS::RuleEngine::Engine->new();
$engine1->add_hook(hook1 => "VS::RuleEngine::Hook::Perl", undef, sub { ok(++$i == 1); return KV_ABORT; });
$engine1->add_pre_hook("hook1");
my $engine2 = VS::RuleEngine::Engine->new();
$engine2->add_hook(hook1 => "VS::RuleEngine::Hook::Perl", undef, sub { ok(++$i == 2); return KV_ABORT; });
$engine2->add_pre_hook("hook1");
my $runloop = VS::RuleEngine::Runloop->new();
$runloop->add_engine($engine1);
$runloop->add_engine($engine2);
$runloop->run();