#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 14;

use M3::ServerView::View;

# Empty
my @matchers = M3::ServerView::View::_build_matchers();
is(scalar @matchers, 0);

# Empty
@matchers = M3::ServerView::View::_build_matchers({});
is(scalar @matchers, 0);

# Key must match
@matchers = M3::ServerView::View::_build_matchers({
    foo => 1,
});
is(scalar @matchers, 1);
ok($matchers[0]->({ foo => 1}));
ok($matchers[0]->({ foo => 1}));
ok(!$matchers[0]->({ foo => 2}));
ok(!$matchers[0]->({ bar => 1}));

@matchers = M3::ServerView::View::_build_matchers({
    foo => "bar",
});
is(scalar @matchers, 1);
ok($matchers[0]->({ foo => "bar"}));
ok(!$matchers[0]->({ foo => "baz"}));

@matchers = M3::ServerView::View::_build_matchers({
    foo => [ "<" => "42" ],
});
is(scalar @matchers, 1);
ok($matchers[0]->({foo => 40}));
ok(!$matchers[0]->({foo => 42}));
ok(!$matchers[0]->({foo => 43}));