The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/lib";
use Opsview::REST::TestUtils;

use Test::More tests => 6;
use Test::Exception;

use Data::Dumper;

BEGIN { use_ok 'Opsview::REST::Status'; };

my @tests = (
    {
        args => [],
        die  => 'No arguments die',
    },
    {
        args => ['hostgroup', hostgroupid => 1],
        url  => '/status/hostgroup?hostgroupid=1',
    },
    {
        args => ['hostgroup', hostgroupid => [1, 2]],
        url  => '/status/hostgroup?hostgroupid=1&hostgroupid=2',
    },
    {
        args => ['host', host => 'opsview', state => [0, 1, 2]],
        url  => '/status/host?state=0&state=1&state=2&host=opsview',
    },
    {
        args => ['host', filter => 'handled', state_type => 'hard', host_state => [1, 2]],
        url  => '/status/host?host_state=1&host_state=2&filter=handled&state_type=hard',
    },
);

test_urls('Opsview::REST::Status', @tests);