3c99391d93
In some cases the license-identification header was missing, so I added that as well. Replaced the remaining headers that specifically identified "Versions 3.13.7 and higher". Makefiles and the build system were deliberately excluded.
76 lines
2.5 KiB
Prolog
76 lines
2.5 KiB
Prolog
#!/usr/bin/perl
|
|
#*************************************************************************
|
|
# Copyright (c) 2012 UChicago Argonne LLC, as Operator of Argonne
|
|
# National Laboratory.
|
|
# SPDX-License-Identifier: EPICS
|
|
# EPICS BASE is distributed subject to a Software License Agreement found
|
|
# in file LICENSE that is included with this distribution.
|
|
#*************************************************************************
|
|
|
|
# Script to run tests on the msi program
|
|
|
|
use strict;
|
|
use Test;
|
|
|
|
BEGIN {plan tests => 12}
|
|
|
|
# Check include/substitute command model
|
|
ok(msi('-I .. ../t1-template.txt'), slurp('../t1-result.txt'));
|
|
|
|
# Substitution file, dbLoadTemplate format
|
|
ok(msi('-I.. -S ../t2-substitution.txt'), slurp('../t2-result.txt'));
|
|
|
|
# Macro scoping
|
|
ok(msi('-I. -I.. -S ../t3-substitution.txt'), slurp('../t3-result.txt'));
|
|
|
|
# Global scope (backwards compatibility check)
|
|
ok(msi('-g -I.. -S ../t4-substitution.txt'), slurp('../t4-result.txt'));
|
|
|
|
# Substitution file, regular format
|
|
ok(msi('-S ../t5-substitute.txt ../t5-template.txt'), slurp('../t5-result.txt'));
|
|
|
|
# Substitution file, pattern format
|
|
ok(msi('-S../t6-substitute.txt ../t6-template.txt'), slurp('../t6-result.txt'));
|
|
|
|
# Output option -o and verbose option -V
|
|
my $out = 't7-output.txt';
|
|
unlink $out;
|
|
msi("-I.. -V -o $out ../t1-template.txt");
|
|
ok(slurp($out), slurp('../t7-result.txt'));
|
|
|
|
# Dependency generation, include/substitute model
|
|
ok(msi('-I.. -D -o t8.txt ../t1-template.txt'), slurp('../t8-result.txt'));
|
|
|
|
# Dependency generation, dbLoadTemplate format
|
|
ok(msi('-I.. -D -ot9.txt -S ../t2-substitution.txt'), slurp('../t9-result.txt'));
|
|
|
|
# Substitution file, variable format, with 0 variable definitions
|
|
ok(msi('-I. -I.. -S ../t10-substitute.txt'), slurp('../t10-result.txt'));
|
|
|
|
# Substitution file, pattern format, with 0 pattern definitions
|
|
ok(msi('-I. -I.. -S ../t11-substitute.txt'), slurp('../t11-result.txt'));
|
|
|
|
# Substitution file, environment variable macros in template filename
|
|
my %envs = (TEST_NO => 12, PREFIX => 't');
|
|
@ENV{ keys %envs } = values %envs;
|
|
ok(msi('-I. -I.. -S ../t12-substitute.txt'), slurp('../t12-result.txt'));
|
|
delete @ENV{ keys %envs }; # Not really needed
|
|
|
|
# Test support routines
|
|
|
|
sub slurp {
|
|
my ($file) = @_;
|
|
open my $in, '<', $file
|
|
or die "Can't open file $file: $!\n";
|
|
my $contents = do { local $/; <$in> };
|
|
return $contents;
|
|
}
|
|
|
|
sub msi {
|
|
my ($args) = @_;
|
|
my $nul = $^O eq 'MSWin32' ? 'NUL' : '/dev/null';
|
|
my $msi = '@TOP@/bin/@ARCH@/msi';
|
|
$msi =~ tr(/)(\\) if $^O eq 'MSWin32';
|
|
return `$msi $args 2>$nul`;
|
|
}
|