test/replication_test6.pl

   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
  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
  22 my $pve_replication_config_module = Test::MockModule->new('PVE::ReplicationConfig');
  23 $pve_replication_config_module->mock(
  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);