fix #3199: by fixing usage of strftime

[pve-storage.git] / test / prune_backups_test.pm

diff --git a/test/prune_backups_test.pm b/test/prune_backups_test.pm
index c69c4671f005a086027b1fe371756535b27204ca..a87c4b3b38908c3231407a44a4417c60cdf366ff 100644 (file)
--- a/test/prune_backups_test.pm
+++ b/test/prune_backups_test.pm
@@ -91,6 +91,23 @@ push @{$mocked_backups_lists->{threeway}}, (
        'vmid'  => 7654,
     },
 );
+push @{$mocked_backups_lists->{weekboundary}}, (
+    {
+       'volid' => "$storeid:backup/vzdump-qemu-7654-2020_12_03-12_18_21.tar.zst",
+       'ctime' => $basetime + (366-31+2)*24*60*60,
+       'vmid'  => 7654,
+    },
+    {
+       'volid' => "$storeid:backup/vzdump-qemu-7654-2020_12_04-12_18_21.tar.zst",
+       'ctime' => $basetime + (366-31+3)*24*60*60,
+       'vmid'  => 7654,
+    },
+    {
+       'volid' => "$storeid:backup/vzdump-qemu-7654-2020_12_07-12_18_21.tar.zst",
+       'ctime' => $basetime + (366-31+6)*24*60*60,
+       'vmid'  => 7654,
+    },
+);
 my $current_list;
 my $mock_plugin = Test::MockModule->new('PVE::Storage::Plugin');
 $mock_plugin->redefine(list_volumes => sub {
@@ -410,6 +427,37 @@ my $tests = [
            },
        ],
     },
+    {
+       description => 'daily=weekly=1,weekboundary',
+       keep => {
+           'keep-daily' => 1,
+           'keep-weekly' => 1,
+       },
+       list => 'weekboundary',
+       expected => [
+           {
+               'volid' => "$storeid:backup/vzdump-qemu-7654-2020_12_03-12_18_21.tar.zst",
+               'ctime' => $basetime + (366-31+2)*24*60*60,
+               'type'  => 'qemu',
+               'vmid'  => 7654,
+               'mark'  => 'remove',
+           },
+           {
+               'volid' => "$storeid:backup/vzdump-qemu-7654-2020_12_04-12_18_21.tar.zst",
+               'ctime' => $basetime + (366-31+3)*24*60*60,
+               'type'  => 'qemu',
+               'vmid'  => 7654,
+               'mark'  => 'keep',
+           },
+           {
+               'volid' => "$storeid:backup/vzdump-qemu-7654-2020_12_07-12_18_21.tar.zst",
+               'ctime' => $basetime + (366-31+6)*24*60*60,
+               'type'  => 'qemu',
+               'vmid'  => 7654,
+               'mark'  => 'keep',
+           },
+       ],
+    },
 ];
 
 plan tests => scalar @$tests;