Subversion Repositories zfs_utils

#! /usr/bin/env perl

use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin";
use lib "$FindBin::Bin/.."; # ensure module path

use ZFS_Utils qw(runCmd loadConfig logMsg makeReplicateCommands $logFileName $displayLogsOnConsole);

# Test script for ZFS_Utils (dry-run safe)

$displayLogsOnConsole = 1;
$logFileName = '/tmp/zfs_utils_test.log';
unlink $logFileName if -f $logFileName;

print "Running ZFS_Utils smoke tests (dry-run safe)\n";

# 1) runCmd in scalar context
my $echo_out = runCmd('printf', 'hello_from_runCmd');
print "runCmd scalar output: [$echo_out]\n";

# 2) runCmd in list context
my @ls = runCmd('printf', "line1\nline2\n");
print "runCmd list output: ". join('|', @ls) ."\n";

# 3) loadConfig using a temporary YAML file
my $tmp_yaml = '/tmp/test_zfs_utils.conf.yaml';
open my $yh, '>', $tmp_yaml or die "Cannot write $tmp_yaml: $!";
print $yh "transport:\n  mount_point: /tmp/mount_point_test\n  dryrun: 1\n";
print $yh "datasets:\n  demo:\n    source: pool\n    target: backup\n";
close $yh;

my $loaded = loadConfig($tmp_yaml, { default_key => 'default_value' });
print "Loaded config keys: ". join(', ', sort keys %$loaded) ."\n";
print "transport.mount_point = " . ($loaded->{transport}{mount_point} // '(undef)') ."\n";

# 4) makeReplicateCommands - sample snapshot lines
my @snaplines = (
  'tank/home@2025-12-01-1d extra',
  'tank/home@2025-12-07-1d extra',
  'tank/data@2025-11-01-7d',
);
my @status = ('tank/home@2025-11-30-1d');
my @newstatus;
my $cmds = makeReplicateCommands(\@snaplines, \@status, \@newstatus);
print "Generated replicate commands:\n";
for my $fs (sort keys %$cmds) {
  print "  $fs => $cmds->{$fs}\n";
}
print "New status entries: ". join(', ', @newstatus) ."\n";

# 5) logMsg test
logMsg("Test log entry from test_zfs_utils.pl");
print "Log file written to $logFileName (if enabled).\n";

print "Smoke tests complete.\n";

# Clean up temporary YAML
unlink $tmp_yaml;

1;