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 Data::Dumper;
  12
  13 use Test::MockModule;
  14 use ReplicationTestEnv;
  15
  16 $ReplicationTestEnv::mocked_nodename = 'node1';
  17
  18 my $mocked_delete_job = sub {
  19     my ($jobid) = @_;
  20
  21     delete $ReplicationTestEnv::mocked_replication_jobs->{$jobid};
  22 };
  23
  24 my $pve_replication_config_module = Test::MockModule->new('PVE::ReplicationConfig');
  25 $pve_replication_config_module->mock(
  26     delete_job => $mocked_delete_job);
  27
  28 my $testjob = {
  29     'type'  => 'local',
  30     'target' => 'node1',
  31     'guest' => 900,
  32 };
  33
  34 $ReplicationTestEnv::mocked_replication_jobs = {
  35     job_900_to_node1 => {
  36         remove_job => 'full',
  37         type  => 'local',
  38         target => 'node1', # local node, job should be skipped
  39         guest => 900,
  40     },
  41 };
  42
  43 $ReplicationTestEnv::mocked_vm_configs = {
  44     900 => {
  45         node => 'node1',
  46         snapshots => {},
  47         ide0 => 'local-zfs:vm-900-disk-1,size=4G',
  48         memory => 512,
  49         ide2 => 'none,media=cdrom',
  50     },
  51 };
  52
  53 ReplicationTestEnv::setup();
  54
  55 ReplicationTestEnv::openlog();
  56
  57 my $ctime = 1000;
  58 for (my $i = 0; $i < 15; $i++) {
  59     ReplicationTestEnv::track_jobs($ctime);
  60     $ctime += 60;
  61 }
  62
  63 ReplicationTestEnv::commit_log();
  64
  65 exit(0);