use v5.30;
use strict;
use warnings;

use Test::More;
use lib 'scripts/vendor/TOML-Tiny-0.22/lib';
use lib 'scripts/lib';

use OLLM::CLI;

my $plan = OLLM::CLI->parse(qw(build presentation --language=en --source=talk.tex --dry-run));
is $plan->{action}, 'build', 'explicit build action';
is $plan->{target}, 'slides', 'presentation alias';
is $plan->{language}, 'en', 'new language option';
is $plan->{source}, 'talk.tex', 'explicit source';
ok $plan->{dry_run}, 'dry-run enabled';

$plan = OLLM::CLI->parse(qw(+lang=de +article -silent main.tex));
is $plan->{target}, 'script', 'legacy target alias';
is $plan->{language}, 'de', 'legacy language option';
is_deeply $plan->{latexmk_args}, ['-silent'], 'unknown minus option for latexmk';
is $plan->{source}, 'main.tex', 'legacy source operand';

$plan = OLLM::CLI->parse(qw(screen));
is $plan->{target}, 'screen', 'supplied screen target is a bare word';
ok $plan->{target_explicit}, 'bare screen target counts as explicit';

$plan = OLLM::CLI->parse(qw(debug slides));
is $plan->{debug}, 'tex', 'bare debug compatibility default';

$plan = OLLM::CLI->parse(qw(build --target=keynote --language=en));
is $plan->{target}, 'keynote',
  'explicit target option accepts a registered extension name';
ok $plan->{target_explicit}, 'extended target selection is marked explicit';

$plan = OLLM::CLI->parse(qw(build --target presentation));
is $plan->{target}, 'slides',
  'explicit target option normalizes compatibility aliases';

eval { OLLM::CLI->parse(qw(build --target=not/a/target)) };
like $@, qr/invalid target/, 'non-portable explicit target is rejected';

$plan = OLLM::CLI->parse(qw(--debug slides));
is $plan->{debug}, 'tex', 'valueless new debug option defaults to TeX';

$plan = OLLM::CLI->parse(qw(standalone main.tex));
ok $plan->{standalone}, 'standalone is recorded in the normalized plan';

for my $removed (qw(--legacy publish +verbose nosocket classpath=../tex)) {
  eval { OLLM::CLI->parse($removed, 'slides') };
  like $@, qr/removed ollmconfig\.pl build.*convertproject/,
    "$removed is rejected with a pointer to convertproject";
}

eval { OLLM::CLI->parse(qw(slides script)) };
like $@, qr/more than one document target/, 'conflicting targets rejected';

eval { OLLM::CLI->parse(qw(script -r project.rc)) };
like $@, qr/additional rc files.*controlled build configuration/,
  'two-argument latexmk rc injection is rejected by the CLI parser';

$plan = OLLM::CLI->parse(qw(
  clean --level=state --scope=unit --target=script --language=de --dry-run
));
is $plan->{action}, 'clean', 'clean is a first-class action';
is $plan->{level}, 'state', 'clean level is parsed';
is $plan->{scope}, 'unit', 'clean scope is parsed';
is $plan->{target}, 'script', 'current projection target is parsed';

$plan = OLLM::CLI->parse(qw(prune --stale-units --dry-run));
ok $plan->{stale_units}, 'explicit stale-unit pruning is parsed';

$plan = OLLM::CLI->parse(qw(report --scope=unit --format=json));
is $plan->{action}, 'report', 'report is a first-class action';
is $plan->{scope}, 'unit', 'report scope is parsed';

$plan = OLLM::CLI->parse(qw(check --target=script --language=de));
is $plan->{action}, 'check', 'check is a first-class action';
is $plan->{target}, 'script', 'check current target is parsed';

$plan = OLLM::CLI->parse(qw(+build +script));
is $plan->{target}, 'script', 'plus-prefixed command and target are accepted';

$plan = OLLM::CLI->parse(qw(--enforce+ +build +script));
ok $plan->{enforce_plus}, '--enforce+ enables mandatory prefixes';
is $plan->{action}, 'build', 'prefixed action is recognized under enforcement';
is $plan->{target}, 'script', 'prefixed target is recognized under enforcement';

$plan = OLLM::CLI->parse(qw(+enforce+ +script slides));
is $plan->{target}, 'script', '+enforce+ enables the same mode';
is $plan->{source}, 'slides', 'bare target word becomes a source under enforcement';

$plan = OLLM::CLI->parse(qw(+convertproject));
is $plan->{action}, 'convertproject', 'migration command accepts a plus prefix';

$plan = OLLM::CLI->parse(qw(newproject --profiles=taggable));
is $plan->{profiles}, 'taggable', 'newproject carries the profile set';
$plan = OLLM::CLI->parse(qw(newproject --profiles classic));
is $plan->{profiles}, 'classic', '--profiles accepts a separate value';

eval { OLLM::CLI->parse(qw(clean --level=unknown)) };
like $@, qr/invalid --level/, 'unknown clean level is rejected';

# _structure_drift compares OLLM's own structure_snapshot discovery against
# the shared Lua module's (osglecture/ARCHITECTURE.md section 12); see
# testfiles/lua-manifest.t for the corresponding end-to-end agreement check
# against a real project fixture.
{
  my @same_a = ({ physical_unit => '010-a', physical_number => '010',
    unit_scope => '', unit_role => 'content', slug => 'a' });
  my @same_b = ({ physical_unit => '010-a', physical_number => '010',
    unit_scope => '', unit_role => 'content', slug => 'a' });
  is OLLM::CLI::_structure_drift(\@same_a, \@same_b), undef,
    '_structure_drift reports no drift for identical unit lists';

  my @missing_b = ();
  like OLLM::CLI::_structure_drift(\@same_a, \@missing_b),
    qr/only in Perl: 010-a/,
    '_structure_drift reports a unit missing from the Lua side';

  my @extra_b = (@same_b, { physical_unit => '020-b', physical_number => '020',
    unit_scope => '', unit_role => 'content', slug => 'b' });
  like OLLM::CLI::_structure_drift(\@same_a, \@extra_b),
    qr/only in Lua: 020-b/,
    '_structure_drift reports a unit only found by the Lua side';

  my @wrong_role = ({ physical_unit => '010-a', physical_number => '010',
    unit_scope => '', unit_role => 'appendix', slug => 'a' });
  like OLLM::CLI::_structure_drift(\@same_a, \@wrong_role),
    qr/field mismatch: 010-a\.unit_role/,
    '_structure_drift reports a field-level mismatch';
}

done_testing;