#!/usr/bin/env perl

# Revision History:
# 2026-10-16 Claude v1.0.0 sysinfo_client must find its libraries when launched through a symlink (cron.daily) from another directory

use strict;
use warnings;
use Test::More;
use File::Temp qw(tempdir);
use Cwd qw(abs_path getcwd);

my $real = abs_path('./unix/sysinfo_client');
my $dir = tempdir(CLEANUP => 1);
my $link = "$dir/sysinfo_client";
plan skip_all => 'symlinks not supported' unless eval { symlink($real, $link) };

my $startDir = getcwd();
chdir($dir) or die "chdir: $!";
my $out = `perl $link --version 2>&1`;
my $rc = $? >> 8;
chdir($startDir);

is($rc, 0, 'launch through a symlink from another directory exits 0');
unlike($out, qr/Can't locate/, 'no missing-module error through a symlink');
like($out, qr/v\d+\.\d+\.\d+/, 'version printed through a symlink');

done_testing();