use v5.30;
use strict;
use warnings;

use Cwd qw(abs_path getcwd);
use File::Copy qw(copy);
use File::Spec;
use File::Path qw(make_path);
use File::Temp qw(tempdir);
use Test::More;

use lib 'scripts/vendor/TOML-Tiny-0.22/lib';
use lib 'scripts/lib';

use OLLM::BuildFile;
use OLLM::Config;

my $fixture = abs_path('testfiles/fixtures/project');
my $chapter = File::Spec->catdir($fixture, '020-processes');
my $manifest_path = File::Spec->catfile($fixture, 'ollmconfig.toml');
my $manifest = OLLM::Config->load_manifest($manifest_path);
my $resolved = OLLM::Config->resolve_request(
  start_dir       => $chapter,
  definitions_dir => abs_path('scripts/definitions'),
  plan => {
    action          => 'build',
    all             => 0,
    dry_run         => 1,
    latexmk_args    => [],
    non_interactive => 1,
    rebuild         => 0,
    resolve         => 0,
    source          => 'main.tex',
    target          => 'script',
  },
);

my $spec = OLLM::BuildFile->build_spec(
  resolved       => $resolved,
  manifest       => $manifest,
  unit_directory => $chapter,
);
is $spec->{job_id}, 'bs-020-script-de-processes',
  'job id follows the series identity grammar';
is $spec->{unit_role}, 'content', 'omitted role becomes content';
like $spec->{config_signature}, qr/\A[0-9a-f]{64}\z/,
  'build specification carries a deterministic configuration signature';
like $spec->{structure_signature}, qr/\A[0-9a-f]{64}\z/,
  'build specification carries the canonical project-structure signature';
is $spec->{shell_escape}, 'restricted',
  'manifest shell-escape policy reaches the build specification';
is $spec->{profile_class}, 'longform',
  'target profile class reaches the build specification';
is_deeply $spec->{applicable_unit_scopes}, ['a', 'as'],
  'target unit scopes reach the build specification';
is $spec->{document_metadata_policy}, 'enabled',
  'a supported profile plus the project document_metadata choice enables it';
is $spec->{profile}, 'book', 'the resolved document profile reaches the spec';
is $spec->{shared_tex_directory},
  abs_path(File::Spec->catdir($fixture, 'Include')),
  'shared TeX directory is resolved from the project manifest';
is $spec->{project_config_file}, 'projectconfig.tex',
  'project configuration filename reaches the build specification';
like $spec->{project_config_signature}, qr/\A[0-9a-f]{64}\z/,
  'project configuration contents are signed into the build contract';
like $spec->{build_directory},
  qr{[.]osglecture[\\/]build[\\/]020-processes[\\/]script[\\/]de\z},
  'build directory is isolated by unit, target, and language';
is $spec->{aux_directory}, $spec->{build_directory},
  'auxiliary state stays inside the isolated build directory';
is $spec->{artifact},
  File::Spec->catfile($spec->{build_directory}, "$spec->{job_id}.pdf"),
  'artifact path is explicit';

my $layout_source = OLLM::BuildFile->render_handout_layout($spec, '4 on 1');
like $layout_source, qr/\\tagpaxextract\[\Q$spec->{job_id}\E\.tagpax\]\{\Q$spec->{job_id}\E\.pdf\}/,
  'handout layout master extracts the IR from the primary artifact by basename';
like $layout_source, qr/\\tagpaxinclude\[ir=\Q$spec->{job_id}\E\.tagpax, layout=4 on 1\]/,
  'handout layout master passes the requested layout through verbatim';
like $layout_source, qr/\\usepackage\[a4paper,landscape,margin=1\.5cm\]\{geometry\}/,
  "a plain grid layout like '4 on 1' packs inherently wide slides, so it lands in landscape";
my $ruled_source = OLLM::BuildFile->render_handout_layout($spec, '2 on 1|ruled');
like $ruled_source, qr/\\usepackage\[a4paper,margin=1\.5cm\]\{geometry\}/,
  "the 'ruled' single-column layout stacks wide slides vertically, so it stays portrait";
for my $bad ('4 on 1; \input{/etc/passwd}', "4 on 1\n\\catcode`\\%=12") {
  eval { OLLM::BuildFile->render_handout_layout($spec, $bad) };
  like $@, qr/cannot be represented safely/,
    "rejects a handout layout value that is not one of tagpax's own shapes: $bad";
}
{
  my $layout_temporary = tempdir(CLEANUP => 1);
  my $layout_spec = { %$spec, build_directory => $layout_temporary };
  my $path = OLLM::BuildFile->write_handout_layout_for_spec(
    $layout_spec, '2 on 1|ruled',
  );
  is $path,
    File::Spec->catfile($layout_temporary, "$spec->{job_id}-layout.tex"),
    'handout layout master is written next to the primary artifact under its own job id';
  ok -f $path, 'handout layout master file exists';
}

# render_handout_layout_plain is the untagged fallback (osglecture profiles
# like beamer forbid \DocumentMetadata outright, or an author has tagging
# switched off): tagpax has no structure tree to import in that case, so
# this reaches for plain pdfpages nup= imposition instead.
my $plain_source = OLLM::BuildFile->render_handout_layout_plain($spec, '4 on 1');
like $plain_source, qr/\\usepackage\{pdfpages\}/,
  'the untagged fallback master loads pdfpages';
like $plain_source, qr/\\includepdf\[pages=-, nup=2x2, delta=3mm 3mm, frame=false\]\{\Q$spec->{job_id}\E\.pdf\}/,
  "'4 on 1' maps onto pdfpages' own nup=2x2 spelling, importing the primary artifact by basename";
unlike $plain_source, qr/tagpax/,
  'the untagged fallback master never mentions tagpax';
like $plain_source, qr/\\usepackage\[a4paper,landscape,margin=1\.5cm\]\{geometry\}/,
  'the untagged fallback also lands a plain grid layout in landscape';
for my $count_layout ('2 on 1', '3 on 1', '6 on 1') {
  my $source = OLLM::BuildFile->render_handout_layout_plain($spec, $count_layout);
  like $source, qr/\\includepdf\[pages=-, nup=\d+x\d+, delta=3mm 3mm, frame=false\]/,
    "'$count_layout' also maps onto a plain pdfpages nup= layout with the same gutter";
}
eval {
  OLLM::BuildFile->render_handout_layout_plain($spec, '2 on 1|ruled');
};
like $@, qr/has no untagged fallback/,
  "the 'ruled' note strip is rejected explicitly for the untagged fallback, "
    . 'not silently dropped';

my $ordinal_units = [
  { physical_unit => '010-first', unit_scope => '', unit_role => 'content' },
  { physical_unit => '011-e-first', unit_scope => '', unit_role => 'e' },
  { physical_unit => '012-e-second', unit_scope => '', unit_role => 'e' },
  { physical_unit => '020-second', unit_scope => '', unit_role => 'content' },
  { physical_unit => '090-a-one', unit_scope => '', unit_role => 'a' },
  { physical_unit => '091-a-two', unit_scope => '', unit_role => 'a' },
  { physical_unit => '099-i-all', unit_scope => '', unit_role => 'i' },
];
is(OLLM::BuildFile::_logical_ordinal($ordinal_units, '010-first', []), 1,
  'content receives the next regular ordinal');
is(OLLM::BuildFile::_logical_ordinal($ordinal_units, '011-e-first', []), '1e1',
  'first excursus is attached to its preceding content ordinal');
is(OLLM::BuildFile::_logical_ordinal($ordinal_units, '012-e-second', []), '1e2',
  'excursuses have a local sequence');
is(OLLM::BuildFile::_logical_ordinal($ordinal_units, '090-a-one', []), '3ap1',
  'first appendix continues the regular ordinal and adds its local sequence');
is(OLLM::BuildFile::_logical_ordinal($ordinal_units, '091-a-two', []), '4ap2',
  'later appendices continue both sequences');
is(OLLM::BuildFile::_logical_ordinal($ordinal_units, '099-i-all', []), '',
  'integration has no ordinal');

is $spec->{document_metadata}{path},
  abs_path(File::Spec->catfile(
    $fixture, 'Include', 'documentmetadata.tex',
  )),
  'conventional document metadata file is discovered in shared TeX';
like $spec->{document_metadata}{signature}, qr/\A[0-9a-f]{64}\z/,
  'document metadata contents are signed into the build contract';

my $slides_resolved = OLLM::Config->resolve_request(
  start_dir       => $chapter,
  definitions_dir => abs_path('scripts/definitions'),
  plan => {
    action => 'build', all => 0, dry_run => 1, latexmk_args => [],
    non_interactive => 1, rebuild => 0, resolve => 0,
    source => 'main.tex', target => 'slides',
  },
);
is $slides_resolved->{build_spec}{document_metadata_policy}, 'disabled',
  'a forbidden-metadata profile keeps the policy disabled';
ok !defined($slides_resolved->{build_spec}{document_metadata}),
  'disabled policy does not preload an existing project metadata file';

my @moved_specs;
for (1 .. 2) {
  my $moved_root = tempdir(CLEANUP => 1);
  my $moved_unit = File::Spec->catdir($moved_root, '020-processes');
  my $moved_shared = File::Spec->catdir($moved_root, 'Include');
  make_path($moved_unit, $moved_shared);
  open my $moved_source, '>',
    File::Spec->catfile($moved_unit, 'main.tex') or die $!;
  print {$moved_source} "\\documentclass{article}\n";
  close $moved_source;
  open my $moved_metadata, '>',
    File::Spec->catfile($moved_shared, 'documentmetadata.tex') or die $!;
  print {$moved_metadata}
    "\\DocumentMetadata{lang=\\OsgLectureRequestedLanguage}\n";
  close $moved_metadata;
  open my $moved_config, '>',
    File::Spec->catfile($moved_shared, 'projectconfig.tex') or die $!;
  print {$moved_config}
    "\\author<presentation>[M.~Mustermann]{Max Mustermann}\n";
  close $moved_config;

  my %moved_request = (
    %{ $resolved->{request} },
    project_root => $moved_root,
  );
  my %moved_configuration = (
    %{ $resolved->{configuration} },
    structure => OLLM::Config->structure_snapshot(
      project_root => $moved_root,
    ),
  );
  my %moved_resolved = (
    %$resolved,
    request       => \%moved_request,
    configuration => \%moved_configuration,
  );
  push @moved_specs, OLLM::BuildFile->build_spec(
    resolved       => \%moved_resolved,
    manifest       => $manifest,
    unit_directory => $moved_unit,
  );
}
is $moved_specs[0]{config_signature}, $moved_specs[1]{config_signature},
  'moving an otherwise identical project does not change its build contract';

my $content = OLLM::BuildFile->render($spec);
like $content, qr/job-id=\{bs-020-script-de-processes\}/,
  'rendered build file binds itself to the job id';
like $content, qr/profile-class=\{longform\}/,
  'rendered build file contains the target profile class';
like $content, qr/profile=\{book\}/,
  'rendered build file names the resolved document profile';
like $content, qr/applicable-unit-scopes=\{a,as\}/,
  'rendered build file contains the doctype-specific unit scopes';
like $content, qr/document-metadata-policy=\{enabled\}/,
  'rendered build file contains the effective early metadata policy';
like $content, qr/selectable-languages=\{de,en\}/,
  'rendered build file carries the resolved selectable-language order';
# Per osglecture/ARCHITECTURE.md section 12, source-directory,
# shared-tex-directory, project-config-file and bundle-preset are project
# content the class now reads itself via the shared Lua module -- they stay
# part of OLLM's internal BuildSpec (needed for signatures and discovery)
# but are deliberately absent from the rendered, TeX-facing build file.
like $spec->{source_directory}, qr/020-processes\z/,
  'BuildSpec identifies the source unit directory';
like $spec->{shared_tex_directory}, qr/Include\z/,
  'BuildSpec contains the absolute shared TeX directory';
is $spec->{project_config_file}, 'projectconfig.tex',
  'BuildSpec contains the project configuration filename';
is $spec->{bundle_preset}, 'OSG lecture/1',
  'BuildSpec contains the resolved bundle preset';
unlike $content, qr/source-directory=|shared-tex-directory=|project-config-file=|bundle-preset=/,
  'rendered build file omits project-content keys the class now reads itself';
like $content, qr/shell-escape=\{restricted\}/,
  'rendered build file records the shell-escape policy';
like $content, qr/structure-signature=\{[0-9a-f]{64}\}/,
  'rendered build file makes directory-structure changes visible to TeX';

my $outside = tempdir(CLEANUP => 1);
my $outside_unit = File::Spec->catdir($outside, '020-outside');
mkdir $outside_unit or die $!;
open my $outside_source, '>',
  File::Spec->catfile($outside_unit, 'main.tex') or die $!;
print {$outside_source} "\\documentclass{article}\n";
close $outside_source;
eval {
  OLLM::BuildFile->build_spec(
    resolved       => $resolved,
    manifest       => $manifest,
    unit_directory => $outside_unit,
  );
};
like $@, qr/series unit directory .* is outside project root/,
  'series build rejects a unit outside its canonical project root';

my $temporary = tempdir(CLEANUP => 1);
my $build_file = File::Spec->catfile(
  $temporary, "$spec->{job_id}.osgbuild.tex",
);
is(OLLM::BuildFile->write_atomic($build_file, $content), 1,
  'first build-file write replaces the target');
is(OLLM::BuildFile->write_atomic($build_file, $content), 0,
  'unchanged build file is not replaced');

my $document = File::Spec->catfile($temporary, 'integration.tex');
open my $document_handle, '>', $document or die $!;
my $manifest_file = $spec->{project_manifest};
$manifest_file =~ s{\\}{/}g;
my $job_file = $build_file;
$job_file =~ s{\\}{/}g;
print {$document_handle}
  "\\edef\\OSGLectureProjectManifestFile{\\detokenize{$manifest_file}}\n",
  "\\edef\\OSGLectureJobFile{\\detokenize{$job_file}}\n";
print {$document_handle} <<'TEX';
\documentclass{article}
\usepackage{osglecture-config}
\OsgLectureLoadBuildFileForJob
\begin{document}
\typeout{OSGTEST:doctype=\OsgLectureBuildValue{doctype}}
\typeout{OSGTEST:profile-class=\OsgLectureBuildValue{profile-class}}
\typeout{OSGTEST:language=\OsgLectureBuildValue{language}}
Configuration bridge.
\end{document}
TEX
close $document_handle;

my $old_directory = getcwd();
my $osglecture_source = File::Spec->catdir($old_directory, '..', 'osglecture');
chdir $temporary or die "cannot enter $temporary: $!";
# osglecture-config.sty is generated from osglecture.dtx (docstripped
# together with its sibling adapters/profiles dtx, which must sit next to
# it), not shipped as a loose file; unpack it here so \usepackage below
# finds it via the normal cwd search, mirroring how osglecture-modes.dtx
# is unpacked for the lifecycle test.
for my $name (qw(
  osglecture.dtx osglecture-adapters.dtx osglecture-profiles.dtx
)) {
  copy(File::Spec->catfile($osglecture_source, $name), $name)
    or die "cannot stage $name: $!";
}
my $unpack_status = system(
  'tex', '-interaction=batchmode', 'osglecture.dtx',
);
if ($unpack_status != 0) {
  BAIL_OUT('cannot unpack osglecture for the build-file test');
}
my $texinputs_separator = $^O eq 'MSWin32' ? ';' : ':';
local $ENV{TEXINPUTS} =
  abs_path($osglecture_source)
  . $texinputs_separator;
local $ENV{TEXMFVAR} = $ENV{TEXMFVAR}
  // File::Spec->catdir($temporary, 'texmf-var');
open my $tex_output, '>', File::Spec->catfile($temporary, 'lualatex.out')
  or die $!;
my $status;
{
  local *STDOUT;
  local *STDERR;
  open STDOUT, '>&', $tex_output or die $!;
  open STDERR, '>&', $tex_output or die $!;
  $status = system(
    'lualatex',
    '-interaction=nonstopmode',
    '-halt-on-error',
    "-jobname=$spec->{job_id}",
    'integration.tex',
  );
}
close $tex_output;
chdir $old_directory or die "cannot return to $old_directory: $!";
is $status, 0, 'LuaLaTeX reads the generated build file';

open my $log_handle, '<',
  File::Spec->catfile($temporary, "$spec->{job_id}.log")
  or die $!;
local $/;
my $log = <$log_handle>;
close $log_handle;
like $log, qr/OSGTEST:doctype=script/, 'LaTeX receives the document type';
like $log, qr/OSGTEST:profile-class=longform/,
  'LaTeX receives the target profile class';
like $log, qr/OSGTEST:language=de/, 'LaTeX receives the language';

done_testing;