]>
Commit | Line | Data |
---|---|---|
495aa710 DM |
1 | #!/usr/bin/perl |
2 | ||
3 | # Note: Try to delete replication job with target on same node | |
4 | ||
5 | use strict; | |
6 | use warnings; | |
7 | use JSON; | |
8 | ||
9 | use lib ('.', '../..'); | |
10 | ||
495aa710 DM |
11 | use Test::MockModule; |
12 | use ReplicationTestEnv; | |
13 | ||
14 | $ReplicationTestEnv::mocked_nodename = 'node1'; | |
15 | ||
16 | my $mocked_delete_job = sub { | |
17 | my ($jobid) = @_; | |
18 | ||
19 | delete $ReplicationTestEnv::mocked_replication_jobs->{$jobid}; | |
20 | }; | |
21 | ||
d092dc4f DM |
22 | my $pve_replication_config_module = Test::MockModule->new('PVE::ReplicationConfig'); |
23 | $pve_replication_config_module->mock( | |
495aa710 DM |
24 | delete_job => $mocked_delete_job); |
25 | ||
26 | my $testjob = { | |
27 | 'type' => 'local', | |
28 | 'target' => 'node1', | |
29 | 'guest' => 900, | |
30 | }; | |
31 | ||
32 | $ReplicationTestEnv::mocked_replication_jobs = { | |
33 | job_900_to_node1 => { | |
34 | remove_job => 'full', | |
35 | type => 'local', | |
36 | target => 'node1', # local node, job should be skipped | |
37 | guest => 900, | |
38 | }, | |
39 | }; | |
40 | ||
41 | $ReplicationTestEnv::mocked_vm_configs = { | |
42 | 900 => { | |
43 | node => 'node1', | |
44 | snapshots => {}, | |
45 | ide0 => 'local-zfs:vm-900-disk-1,size=4G', | |
46 | memory => 512, | |
47 | ide2 => 'none,media=cdrom', | |
48 | }, | |
49 | }; | |
50 | ||
51 | ReplicationTestEnv::setup(); | |
52 | ||
53 | ReplicationTestEnv::openlog(); | |
54 | ||
55 | my $ctime = 1000; | |
56 | for (my $i = 0; $i < 15; $i++) { | |
57 | ReplicationTestEnv::track_jobs($ctime); | |
58 | $ctime += 60; | |
59 | } | |
60 | ||
61 | ReplicationTestEnv::commit_log(); | |
62 | ||
63 | exit(0); |