8 use Test
::More tests
=> 10;
53 testpool
=> [100, 101, 200, 201],
56 my $pve_cluster_module = Test
::MockModule-
>new('PVE::Cluster');
57 $pve_cluster_module->mock(
63 my $pve_inotify = Test
::MockModule-
>new('PVE::INotify');
70 my $pve_api2tools = Test
::MockModule-
>new('PVE::API2Tools');
72 get_resource_pool_guest_members
=> sub {
73 return $pools->{testpool
};
79 my ($name, $test) = @_;
86 $addtest->('Test all guests', {
88 node1
=> [ 100, 101, 112, 113 ],
89 node2
=> [ 200, 201, 212, 213 ],
96 $addtest->('Test all guests with node limit', {
98 node2
=> [ 200, 201, 212, 213 ],
106 $addtest->('Test exclude', {
108 node1
=>[ 101, 112, 113 ],
109 node2
=> [ 201, 212, 213 ],
113 exclude
=> '100, 102, 200, 202',
117 $addtest->('Test exclude with node limit', {
119 node1
=>[ 101, 112, 113 ],
123 exclude
=> '100, 102, 200, 202',
128 $addtest->('Test pool members', {
130 node1
=>[ 100, 101 ],
131 node2
=> [ 200, 201 ],
138 $addtest->('Test pool members with node limit', {
140 node2
=> [ 200, 201 ],
148 $addtest->('Test selected VMIDs', {
151 node2
=> [ 201, 212 ],
154 vmid
=> '100, 201, 212',
158 $addtest->('Test selected VMIDs with node limit', {
163 vmid
=> '100, 201, 212',
168 $addtest->('Test selected VMIDs on other nodes', {
177 $addtest->('Test VMID not present in vmlist', {
180 node2
=> [ 201, 212 ],
184 vmid
=> '100, 201, 212, 7654',
189 for my $test (@{$tests}) {
190 my $testname = $test->{name
};
191 my $testdata = $test->{test
};
195 my $result = PVE
::VZDump
::get_included_guests
($testdata->{param
});
197 is_deeply
($result, $testdata->{expected
}, $testname);