Subversion Repositories zfs_utils

# Test 6: Target mode simulation

print "=" x 60 . "\n";

print "Test 6: Target Mode Simulation\n";

print "=" x 60 . "\n";

print "Note: This test simulates running on the target server\n";

print "      by temporarily overriding the hostname.\n\n";

# Read the config to get the target hostname

my $target_hostname;

if (open my $cfg_fh, '<', $config_file) {

    while (my $line = <$cfg_fh>) {

        if ($line =~ /^\s*hostname:\s*['"]?([^'"]+)['"]?\s*$/) {

            # This is a bit crude, but we need to find target.hostname

            # We'll look for it after we see 'target:' section

            my $in_target = 0;

            seek($cfg_fh, 0, 0);  # Reset to beginning

            while (my $l2 = <$cfg_fh>) {

                if ($l2 =~ /^target:/) {

                    $in_target = 1;

                    next;

                }

                if ($in_target && $l2 =~ /^\s*hostname:\s*['"]?([^'"]+)['"]?\s*$/) {

                    $target_hostname = $1;

                    last;

                }

                if ($in_target && $l2 =~ /^[a-z]+:/ && $l2 !~ /^\s/) {

                    $in_target = 0;  # Exited target section

                }

            }

            last;

        }

    }

    close $cfg_fh;

}

if ($target_hostname) {

    print "Target hostname from config: $target_hostname\n";

    print "Running sneakernet with HOSTNAME=$target_hostname\n";

    print "-" x 60 . "\n\n";

    # Set environment variable to simulate target hostname

    local $ENV{HOSTNAME} = $target_hostname;

    my $target_output = `HOSTNAME=$target_hostname perl $sneakernet_script --dryrun -vvv 2>&1`;

    my $target_exit = $? >> 8;

    print "Output:\n";

    print $target_output;

    print "\n";

    print "-" x 60 . "\n";

    print "Exit code: $target_exit\n";

    # Analyze the output for target-specific behavior

    my $detected_target = $target_output =~ /target|receiving|import/i;

    my $has_receive = $target_output =~ /zfs receive/i;

    my $has_geli = $target_output =~ /geli|decrypt|mount/i;

    print "\nTarget Mode Analysis:\n";

    print "  Running as target: " . ($detected_target ? "Yes" : "No") . "\n";

    print "  Contains zfs receive: " . ($has_receive ? "Yes" : "No") . "\n";

    print "  Contains GELI operations: " . ($has_geli ? "Yes" : "No") . "\n";

    if ($target_exit == 0) {

        print "\n✓ PASS: Target mode dry-run completed successfully\n";

    } else {

        print "\n✗ FAIL: Target mode dry-run exited with error code $target_exit\n";

    }

} else {

    print "⚠ SKIP: Could not determine target hostname from config\n";

    print "        Target mode test skipped.\n";

}

print "\n";

print "=" x 60 . "\n";

print "All Tests Complete\n";

print "=" x 60 . "\n";

print "\n";