#!/usr/bin/perl

use strict;
use warnings;

use lib ('.', '..');

use JSON;
use Test::More;
use PVE::API2::Ceph::OSD;

use Data::Dumper;

# NOTE: not exhausive, reduced to actually required fields!
my $tree = {
    nodes => [
	{
	    id => -3,
	    name => 'pveA',
	    children => [ 0,1,2,3 ],
	    type => 'host',
	},
	{
	    id => -5,
	    name => 'pveB',
	    children => [ 4,5,6,7 ],
	    type => 'host',
	},
	{
	    id => -7,
	    name => 'pveC',
	    children => [ 8,9,10,11 ],
	    type => 'host',
	},
    ],
};


# Check if all the grep and casts are correct
my @belong_to_B = ( 4,5 );
my @not_belong_to_B = ( -1,1,10,15 );
foreach (@belong_to_B) {
    is (
	PVE::API2::Ceph::OSD::osd_belongs_to_node($tree, 'pveB', $_),
	1,
	"OSD $_ belongs to node pveB",
    );
}
foreach (@not_belong_to_B) {
    is (
	PVE::API2::Ceph::OSD::osd_belongs_to_node($tree, 'pveB', $_),
	0,
	"OSD $_ does not belong to node pveB",
    );
}


my $double_nodes_tree = {
    nodes => [
	{
	    name => 'pveA',
	    type => 'host',
	},
	{
	    name => 'pveA',
	    type => 'host',
	}
    ]
};
eval { PVE::API2::Ceph::OSD::osd_belongs_to_node($double_nodes_tree, 'pveA') };
like($@, qr/duplicate host name found/, "Die if node occurs too often");

is (
    PVE::API2::Ceph::OSD::osd_belongs_to_node(undef),
    0,
    "Early-return false if there's no/empty node tree",
);


done_testing(@belong_to_B + @not_belong_to_B + 2);