4 # 1.) Start replication job with single disk
5 # 2.) add non-existent disk (replication fails)
6 # 3.) create disk (replication continues).
13 use lib
('.', '../..');
18 use ReplicationTestEnv
;
22 $ReplicationTestEnv::mocked_nodename
= 'node1';
32 my $replicated_volume_status = {};
34 my $mocked_remote_prepare_local_job = sub {
35 my ($ssh_info, $jobid, $vmid, $volumes, $storeid_list, $last_sync, $parent_snapname, $force) = @_;
37 my $target = $ssh_info->{node
};
39 my $last_snapshots = {};
41 return $last_snapshots if !defined($replicated_volume_status->{$target});
43 my $last_sync_snapname = PVE
::ReplicationState
::replication_snapshot_name
($jobid, $last_sync);
45 foreach my $volid (keys %{$replicated_volume_status->{$target}}) {
46 if (!grep { $_ eq $volid } @$volumes) {
47 delete $replicated_volume_status->{$target}->{$volid};
50 my $snapname = $replicated_volume_status->{$target}->{$volid};
52 $last_snapshots->{$volid}->{$snapname} = 1 if $last_sync_snapname eq $snapname;
55 return $last_snapshots;
58 my $mocked_remote_finalize_local_job = sub {
59 my ($ssh_info, $jobid, $vmid, $volumes, $last_sync) = @_;
64 my $mocked_replicate_volume = sub {
65 my ($ssh_info, $storecfg, $volid, $base_snapshot, $sync_snapname) = @_;
67 my $target = $ssh_info->{node
};
69 $replicated_volume_status->{$target}->{$volid} = $sync_snapname;
72 my $mocked_delete_job = sub {
75 delete $ReplicationTestEnv::mocked_replication_jobs-
>{$jobid};
78 my $pve_replication_config_module = Test
::MockModule-
>new('PVE::ReplicationConfig');
79 $pve_replication_config_module->mock(delete_job
=> $mocked_delete_job);
81 my $pve_replication_module = Test
::MockModule-
>new('PVE::Replication');
82 $pve_replication_module->mock(
83 remote_prepare_local_job
=> $mocked_remote_prepare_local_job,
84 remote_finalize_local_job
=> $mocked_remote_finalize_local_job,
85 replicate_volume
=> $mocked_replicate_volume);
93 $ReplicationTestEnv::mocked_replication_jobs
= {
101 $ReplicationTestEnv::mocked_vm_configs
= {
105 ide0
=> 'local-zfs:vm-900-disk-1,size=4G',
107 ide2
=> 'none,media=cdrom',
111 ReplicationTestEnv
::setup
();
113 ReplicationTestEnv
::register_mocked_volid
('local-zfs:vm-900-disk-1');
119 ReplicationTestEnv
::openlog
();
121 for (my $i = 0; $i < 15; $i++) {
122 ReplicationTestEnv
::track_jobs
($ctime);
126 # add a new, disk (but disk does not exist, so replication fails)
127 $ReplicationTestEnv::mocked_vm_configs-
>{900}->{ide1
} = 'local-zfs:vm-900-disk-2,size=4G';
128 for (my $i = 0; $i < 15; $i++) {
129 ReplicationTestEnv
::track_jobs
($ctime);
133 # register disk, so replication should succeed
134 ReplicationTestEnv
::register_mocked_volid
('local-zfs:vm-900-disk-2');
135 for (my $i = 0; $i < 15; $i++) {
136 ReplicationTestEnv
::track_jobs
($ctime);
140 # mark job for removal
141 $ReplicationTestEnv::mocked_replication_jobs-
>{job_900_to_node2
}->{remove_job
} = 'full';
142 for (my $i = 0; $i < 15; $i++) {
143 ReplicationTestEnv
::track_jobs
($ctime);
149 ReplicationTestEnv
::commit_log
();