use warnings;
use File::Copy;
use File::Compare;
-use File::Slurp qw(read_dir);
+use File::Slurp qw(read_dir read_file);
sub checkPrecondition();
sub system1(@);
},
beamer_test => {
src_files => ["beamer_test.lyx"],
+ check_type => 'custom',
+ check_script => ["$perl","$test_bin/compare_exported_tex.pl"],
check => [["beamer_test.tex", "beamer_test.tex.orig"]],
commands => ["file-open beamer_test.lyx",
"buffer-begin",
workdir => "$data",
},
src_files => ["vcs_info_export.lyx"],
+ check_type => 'custom',
+ check_script => ["$perl","$test_bin/compare_exported_tex.pl"],
check => [["vcs_info_export.tex", "vcs_info_export.tex.orig"]],
command_line => ["-E", "pdflatex", "vcs_info_export.tex", "$data/vcs_info_export.lyx"],
},
sub run_tests {
my $test_dir = shift;
+ if (-e "$test_dir/skip.test") {
+ my $skip_msg = read_file("$test_dir/skip.test");
+ print "TEST SKIPPED.\n$skip_msg\n";
+ return;
+ }
+
my @expected = &addFiles($test_dir, $Tests{$test}->{check},1);
my @created = &addFiles($workdir, $Tests{$test}->{check}, 0);