3 # Some of the tests can only be applied once the whole include logic is moved
4 # into one single method. Right now parts of it, (all, exclude) are in the
5 # PVE::VZDump->exec_backup() method.
12 use Test
::More tests
=> 9;
57 testpool
=> [100, 101, 200, 201],
60 my $pve_cluster_module = Test
::MockModule-
>new('PVE::Cluster');
61 $pve_cluster_module->mock(
67 my $pve_inotify = Test
::MockModule-
>new('PVE::INotify');
74 my $pve_api2tools = Test
::MockModule-
>new('PVE::API2Tools');
76 get_resource_pool_guest_members
=> sub {
77 return $pools->{testpool
};
83 my ($name, $test) = @_;
90 $addtest->('Test all guests', {
92 node1
=> [ 100, 101, 112, 113 ],
93 node2
=> [ 200, 201, 212, 213 ],
100 $addtest->('Test all guests with node limit', {
102 node2
=> [ 200, 201, 212, 213 ],
110 $addtest->('Test exclude', {
112 node1
=>[ 101, 112, 113 ],
113 node2
=> [ 201, 212, 213 ],
117 exclude
=> '100, 102, 200, 202',
121 $addtest->('Test exclude with node limit', {
123 node1
=>[ 101, 112, 113 ],
127 exclude
=> '100, 102, 200, 202',
132 $addtest->('Test pool members', {
134 node1
=>[ 100, 101 ],
135 node2
=> [ 200, 201 ],
142 $addtest->('Test pool members with node limit', {
144 node2
=> [ 200, 201 ],
152 $addtest->('Test selected VMIDs', {
155 node2
=> [ 201, 212 ],
158 vmid
=> '100, 201, 212',
162 $addtest->('Test selected VMIDs with node limit', {
167 vmid
=> '100, 201, 212',
172 $addtest->('Test selected VMIDs on other nodes', {
182 for my $test (@{$tests}) {
183 my $testname = $test->{name
};
184 my $testdata = $test->{test
};
188 my $result = PVE
::VZDump
::get_included_guests
($testdata->{param
});
190 is_deeply
($result, $testdata->{expected
}, $testname);