Subversion Repositories zfs_utils

#!/usr/bin/env perl

# Test script for snapShotReport function
# This validates the report generation logic for various scenarios

use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/..";
use ZFS_Utils qw(snapShotReport $verboseLoggingLevel);

# Enable verbose logging for testing
$ZFS_Utils::verboseLoggingLevel = 4;
$ZFS_Utils::displayLogsOnConsole = 0;  # Suppress log output for cleaner test display

print "=" x 70 . "\n";
print "Testing snapShotReport function\n";
print "=" x 70 . "\n\n";

# Test 1: UNCHANGED - no changes between original and current
print "Test 1: UNCHANGED scenario\n";
print "-" x 70 . "\n";
my $original1 = [
    'pool/data@2025-12-18',
    'pool/data/child@2025-12-18',
];
my $current1 = [
    'pool/data@2025-12-18',
    'pool/data/child@2025-12-18',
];
my $report1 = snapShotReport('pool/data', $original1, $current1);
print "Report:\n";
foreach my $line (@$report1) {
    print "  $line\n";
}
print "\n";

# Test 2: ADDED - new dataset with no original
print "Test 2: ADDED scenario\n";
print "-" x 70 . "\n";
my $original2 = [];
my $current2 = [
    'pool/backup@2025-12-19',
];
my $report2 = snapShotReport('pool/backup', $original2, $current2);
print "Report:\n";
foreach my $line (@$report2) {
    print "  $line\n";
}
print "\n";

# Test 3: Changed - snapshots added between original and current
print "Test 3: Changed scenario (snapshots added)\n";
print "-" x 70 . "\n";
my $original3 = [
    'pool/data@2025-12-15',
];
my $current3 = [
    'pool/data@2025-12-15',
    'pool/data@2025-12-16',
    'pool/data@2025-12-17',
    'pool/data@2025-12-18',
];
my $report3 = snapShotReport('pool/data', $original3, $current3);
print "Report:\n";
foreach my $line (@$report3) {
    print "  $line\n";
}
print "\n";

# Test 4: CONSISTENT - parent and all children changed in same way
print "Test 4: CONSISTENT scenario (parent and children all changed)\n";
print "-" x 70 . "\n";
my $original4 = [
    'pool/data@2025-12-15',
    'pool/data/child@2025-12-15',
    'pool/data/child/grandchild@2025-12-15',
];
my $current4 = [
    'pool/data@2025-12-15',
    'pool/data@2025-12-16',
    'pool/data@2025-12-17',
    'pool/data@2025-12-18',
    'pool/data/child@2025-12-15',
    'pool/data/child@2025-12-16',
    'pool/data/child@2025-12-17',
    'pool/data/child@2025-12-18',
    'pool/data/child/grandchild@2025-12-15',
    'pool/data/child/grandchild@2025-12-16',
    'pool/data/child/grandchild@2025-12-17',
    'pool/data/child/grandchild@2025-12-18',
];
my $report4 = snapShotReport('pool/data', $original4, $current4);
print "Report:\n";
foreach my $line (@$report4) {
    print "  $line\n";
}
print "\n";

# Test 5: Mixed - parent and children have different changes
print "Test 5: Mixed scenario (inconsistent changes)\n";
print "-" x 70 . "\n";
my $original5 = [
    'pool/data@2025-12-15',
    'pool/data/child@2025-12-15',
];
my $current5 = [
    'pool/data@2025-12-15',
    'pool/data@2025-12-16',
    'pool/data@2025-12-18',  # Parent has 2 new snapshots
    'pool/data/child@2025-12-15',
    'pool/data/child@2025-12-18',  # Child has 1 new snapshot (different pattern)
];
my $report5 = snapShotReport('pool/data', $original5, $current5);
print "Report:\n";
foreach my $line (@$report5) {
    print "  $line\n";
}
print "\n";

# Test 6: CONSISTENT UNCHANGED - parent and all children unchanged
print "Test 6: CONSISTENT UNCHANGED scenario\n";
print "-" x 70 . "\n";
my $original6 = [
    'pool/data@2025-12-18',
    'pool/data/child@2025-12-18',
    'pool/data/child/grandchild@2025-12-18',
];
my $current6 = [
    'pool/data@2025-12-18',
    'pool/data/child@2025-12-18',
    'pool/data/child/grandchild@2025-12-18',
];
my $report6 = snapShotReport('pool/data', $original6, $current6);
print "Report:\n";
foreach my $line (@$report6) {
    print "  $line\n";
}
print "\n";

# Test 7: CONSISTENT ADDED - parent and all children are new
print "Test 7: CONSISTENT ADDED scenario\n";
print "-" x 70 . "\n";
my $original7 = [];
my $current7 = [
    'pool/newdata@2025-12-19',
    'pool/newdata/child@2025-12-19',
];
my $report7 = snapShotReport('pool/newdata', $original7, $current7);
print "Report:\n";
foreach my $line (@$report7) {
    print "  $line\n";
}
print "\n";

# Test 8: Complex with timestamps
print "Test 8: Complex scenario with timestamps\n";
print "-" x 70 . "\n";
my $original8 = [
    'pool/data@2025-12-18_10:00:00',
];
my $current8 = [
    'pool/data@2025-12-18_10:00:00',
    'pool/data@2025-12-18_11:00:00',
    'pool/data@2025-12-18_12:00:00',
    'pool/data@2025-12-18_13:00:00',
    'pool/data@2025-12-18_14:00:00',
    'pool/data@2025-12-18_15:00:00',
];
my $report8 = snapShotReport('pool/data', $original8, $current8);
print "Report:\n";
foreach my $line (@$report8) {
    print "  $line\n";
}
print "\n";

print "=" x 70 . "\n";
print "All tests completed\n";
print "=" x 70 . "\n";