test.pl

#!/usr/bin/perl
# (The MIT License)
#
# Copyright (c) 2022-2024 Yegor Bugayenko
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the 'Software'), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
#
# The above copyright notice and this permission notice shall be included in all
# copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
# SOFTWARE.

package eolang;

use strict;
use warnings;
use File::Temp qw/ tempdir /;

# Read file content.
sub readfile {
  my ($path) = @_;
  open(my $h, '<', $path) or die('Cannot open file: ' . $path);
  my $content; { local $/; $content = <$h>; }
  return $content;
}

# Save content to file.
sub savefile {
  my ($path, $content) = @_;
  open(my $f, '>', $path) or error('Cannot open file for writing: ' . $path);
  print $f $content;
  close($f);
}

# Checks whether replace happens for \phiq.
sub replaces_phiq {
  my ($doc, $phiq) = @_;
  my $home = tempdir(CLEANUP => 1);
  my $src = $home . '/main.tex';
  my $target = $home . '/new.tex';
  savefile($src, $doc);
  `mkdir -p $home/_eolang/main`;
  savefile($home . '/_eolang/main/A1B2C3-phiq.tex', $phiq);
  my $stdout = `perl ./eolang.pl '$src' '$target' 2>&1`;
  print $stdout;
  my $after = readfile($target);
  if (index($after, '\\input') eq -1) {
    print "Didn't inject \\phiq:\n";
    print "---\n";
    print $after;
    print "\n---\n";
    exit(1);
  }
  print "OK!\n\n";
}

# Checks whether replace happens for \begin{phiquation}.
sub replaces_verbatim {
  my ($kind, $doc, $verbatim) = @_;
  my $home = tempdir(CLEANUP => 1);
  my $src = $home . '/main.tex';
  my $target = $home . '/new.tex';
  savefile($src, $doc);
  `mkdir -p $home/_eolang/main`;
  savefile($home . '/_eolang/main/A1B2C3-' . $kind . '.tex', $verbatim);
  my $stdout = `perl ./eolang.pl '$src' '$target' 2>&1`;
  print $stdout;
  my $after = readfile($target);
  if (index($after, '\\input') eq -1) {
    print "Didn't replace \\begin{$kind}:\n";
    print "---\n";
    print $after;
    print "\n---\n";
    exit(1);
  }
  print "OK!\n\n";
}

replaces_phiq('Hello, $@$!', '@');
replaces_phiq('Hello, $y_2$!', 'y_2');
replaces_phiq('Hello, $P\'$!', 'P\'');
replaces_phiq('Hello, $@$ and $^$!', '^');
replaces_phiq('Hello, $abc -> @  $!', '  abc -> @ ');
replaces_phiq('Hello, $[[]]$!', '[[]] ');
replaces_phiq('Hello, $\\a -> b$!', '\\a -> b');
replaces_phiq('Hello, $-> []$!', ' -> [] ');
replaces_phiq('Hello, \\phiq  {  [[ \alpha-> ]] }!', '  [[ \alpha -> ]] ');
replaces_phiq('Hello, \\phiq{  abc -> $}!', '  abc -> $ ');
replaces_phiq('Hello, \\phiq{ abc -> @, \\alpha -> []}!', 'abc -> @, \\alpha -> []');

replaces_verbatim('phiquation', "Hello, \n\\begin{phiquation}\n  a -> \@\n\\end{phiquation}\n", "  a -> \@\n");
replaces_verbatim('sodg', "Hello, \n\\begin{sodg}\nv1\nv2\n  v3\n\\end{sodg}\n", "v1\nv2\n  v3\n");

print "SUCCESS\n";

1;