Subversion Repositories zfs_utils

#! /usr/bin/env perl

use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/..";
use File::Temp qw(tempfile tempdir);
use File::Copy;
use File::Basename;

# Unit test for sneakernet script
# This test runs sneakernet in dry-run mode with maximum verbosity
# to validate configuration and command generation without making changes.

print "=" x 60 . "\n";
print "Sneakernet Unit Test\n";
print "=" x 60 . "\n\n";

my $sneakernet_script = "$FindBin::Bin/sneakernet";
my $config_file = "$sneakernet_script.conf.yaml";

# Verify files exist
unless (-f $sneakernet_script) {
    die "ERROR: sneakernet script not found at: $sneakernet_script\n";
}

unless (-f $config_file) {
    die "ERROR: Configuration file not found at: $config_file\n";
}

print "Test Configuration:\n";
print "  Script: $sneakernet_script\n";
print "  Config: $config_file\n";
print "  Mode: dry-run (--dryrun)\n";
print "  Verbosity: 3 (-vvv)\n";
print "\n";

# Test 1: Version check
print "-" x 60 . "\n";
print "Test 1: Version Check\n";
print "-" x 60 . "\n";
my $version_output = `perl $sneakernet_script --version 2>&1`;
my $version_exit = $? >> 8;
print "Output: $version_output";
print "Exit code: $version_exit\n";
if ($version_exit == 0 && $version_output =~ /sneakernet v\d+\.\d+/) {
    print "✓ PASS: Version check successful\n\n";
} else {
    print "✗ FAIL: Version check failed\n\n";
}

# Test 2: Help output
print "-" x 60 . "\n";
print "Test 2: Help Output\n";
print "-" x 60 . "\n";
my $help_output = `perl $sneakernet_script --help 2>&1`;
my $help_exit = $? >> 8;
print "Output:\n$help_output";
print "Exit code: $help_exit\n";
if ($help_exit == 0 && $help_output =~ /Usage:/) {
    print "✓ PASS: Help output successful\n\n";
} else {
    print "✗ FAIL: Help output failed\n\n";
}

# Test 3: Dry-run with maximum verbosity
print "-" x 60 . "\n";
print "Test 3: Dry-run Execution (High Verbosity)\n";
print "-" x 60 . "\n";
print "Running: perl $sneakernet_script --dryrun -vvv\n";
print "-" x 60 . "\n\n";

my $dryrun_output = `perl $sneakernet_script --dryrun -vvv 2>&1`;
my $dryrun_exit = $? >> 8;

print "Output:\n";
print $dryrun_output;
print "\n";
print "-" x 60 . "\n";
print "Exit code: $dryrun_exit\n";

# Analyze the output
my $has_config = $dryrun_output =~ /config|configuration/i;
my $has_dryrun = $dryrun_output =~ /dry[-\s]?run/i;
my $has_commands = $dryrun_output =~ /zfs send|command/i;

print "\nAnalysis:\n";
print "  Contains config info: " . ($has_config ? "Yes" : "No") . "\n";
print "  Dry-run mode active: " . ($has_dryrun ? "Yes" : "No") . "\n";
print "  Generated commands: " . ($has_commands ? "Yes" : "No") . "\n";

if ($dryrun_exit == 0) {
    print "\n✓ PASS: Dry-run completed successfully\n";
} else {
    print "\n✗ FAIL: Dry-run exited with error code $dryrun_exit\n";
}

# Test 4: Check log file creation
print "\n";
print "-" x 60 . "\n";
print "Test 4: Log File Check\n";
print "-" x 60 . "\n";

my $log_file = "$sneakernet_script.log";
if (-f $log_file) {
    print "Log file found: $log_file\n";
    my $log_size = -s $log_file;
    print "Log file size: $log_size bytes\n";
    
    if ($log_size > 0) {
        print "\nLast 20 lines of log file:\n";
        print "- " x 30 . "\n";
        my @log_lines = `tail -20 $log_file 2>/dev/null`;
        print @log_lines;
        print "- " x 30 . "\n";
        print "✓ PASS: Log file created and populated\n";
    } else {
        print "✗ FAIL: Log file is empty\n";
    }
} else {
    print "✗ FAIL: Log file not found at $log_file\n";
}

# Test 5: Status file check
print "\n";
print "-" x 60 . "\n";
print "Test 5: Status File Check\n";
print "-" x 60 . "\n";

my $status_file = "$sneakernet_script.status";
if (-f $status_file) {
    print "Status file found: $status_file\n";
    my $status_size = -s $status_file;
    print "Status file size: $status_size bytes\n";
    
    if ($status_size > 0) {
        print "\nStatus file contents:\n";
        print "- " x 30 . "\n";
        open my $fh, '<', $status_file or die "Can't open status file: $!\n";
        print while <$fh>;
        close $fh;
        print "- " x 30 . "\n";
        print "✓ INFO: Status file exists (may be from previous run)\n";
    } else {
        print "✓ INFO: Status file is empty (expected in dry-run)\n";
    }
} else {
    print "✓ INFO: Status file not found (expected in dry-run)\n";
}

# Summary
print "\n";
print "=" x 60 . "\n";
print "Test Summary\n";
print "=" x 60 . "\n";
print "All tests completed. Review output above for details.\n";
print "Note: Dry-run mode ensures no actual writes were performed.\n";
print "\n";

1;