mirror of
https://gitlab.com/apparmor/apparmor.git
synced 2025-03-04 08:24:42 +01:00
90c9b5c0cd
bashisms which were in place to get around PWD not getting set correctly. Instead, fix the simple.pl script to call pwd directly. Based on feedback from PLD/Arkadiusz Miskiewicz <arekm@maven.pl>.
118 lines
2.7 KiB
Perl
Executable file
118 lines
2.7 KiB
Perl
Executable file
#!/usr/bin/perl -w
|
|
#
|
|
# A simple driver for testing the subdomain parser.
|
|
# All files in $CWD named *.sd will be tested against the parser.
|
|
#
|
|
use strict;
|
|
use Getopt::Long;
|
|
use Test::More;
|
|
|
|
my $__VERSION__='$Id$';
|
|
my %config;
|
|
$config{'parser'} = "/sbin/subdomain_parser";
|
|
$config{'profiledir'} = "./simple_tests/";
|
|
|
|
my $help;
|
|
my $pwd = `pwd`;
|
|
chomp($pwd);
|
|
|
|
GetOptions(
|
|
"help|h" => \$help,
|
|
);
|
|
|
|
sub usage {
|
|
print STDERR "$__VERSION__\n";
|
|
print STDERR "Usage $0 profile_directory\n";
|
|
print STDERR "\tTests the subdomain parser on the given profile directory\n";
|
|
print STDOUT "Bail out! Got the usage statement\n";
|
|
exit 0;
|
|
}
|
|
|
|
&usage if ($help);
|
|
read_config();
|
|
|
|
# Override config file profile location when passed on command line
|
|
if (@ARGV >= 1) {
|
|
$config{'profiledir'} = shift;
|
|
}
|
|
|
|
if ($config{'profiledir'} =~ /^\//) {
|
|
$config{'includedir'} = $config{'profiledir'};
|
|
} else {
|
|
$config{'includedir'} = "$pwd/$config{'profiledir'}";
|
|
}
|
|
|
|
sub read_config {
|
|
my $which;
|
|
|
|
if(open(CONF, "uservars.conf")) {
|
|
while(<CONF>) {
|
|
chomp;
|
|
|
|
next if /^\s*#/;
|
|
|
|
if (m/^\s*(\S+)\s*=\s*(.+)\s*$/) {
|
|
my ($key, $value) = ($1, $2);
|
|
$config{$key} = $value;
|
|
}
|
|
}
|
|
close(CONF);
|
|
}
|
|
}
|
|
|
|
sub test_profile {
|
|
my $profile = shift;
|
|
my $description = "no description for testcase";
|
|
my $expass = 1;
|
|
my $istodo = 0;
|
|
my $isdisabled = 0;
|
|
|
|
open(PARSER, "| $config{'parser'} -S -I $config{'includedir'} > /dev/null 2>&1") or die "Bail out! couldn't open parser";
|
|
|
|
open(PROFILE, $profile) or die "Bail out! couldn't open profile $profile";
|
|
while (<PROFILE>) {
|
|
if (/^#=DESCRIPTION\s*(.*)/) {
|
|
$description = $1;
|
|
} elsif (/^#=EXRESULT\s*(\w+)/) {
|
|
if ($1 eq "PASS") {
|
|
$expass = 1;
|
|
} elsif ($1 eq "FAIL") {
|
|
$expass = 0;
|
|
} else {
|
|
die "Bail out! unknown expected result '$1' in $profile";
|
|
}
|
|
} elsif (/^#=TODO\s*/) {
|
|
$istodo = 1;
|
|
} elsif (/^#=DISABLED\s*/) {
|
|
$isdisabled = 1;
|
|
} else {
|
|
print PARSER if not $isdisabled;
|
|
}
|
|
}
|
|
|
|
my $result = close(PARSER);
|
|
if ($isdisabled) {
|
|
TODO: {
|
|
local $TODO = "Disabled testcase.";
|
|
ok(0, "TODO: $profile: $description");
|
|
}
|
|
} elsif ($istodo) {
|
|
TODO: {
|
|
local $TODO = "Unfixed testcase.";
|
|
ok($expass ? $result : !$result, "TODO: $profile: $description");
|
|
}
|
|
} else {
|
|
ok($expass ? $result : !$result, "$profile: $description");
|
|
}
|
|
}
|
|
|
|
|
|
opendir(DIR, $config{'profiledir'}) or die "Bail out! can't opendir $config{'profiledir'}: $!";
|
|
my @profiles = sort grep { /\.sd$/ && -f "$config{'profiledir'}/$_" } readdir(DIR);
|
|
closedir(DIR);
|
|
|
|
plan tests => scalar(@profiles);
|
|
|
|
foreach my $profile (@profiles) {
|
|
test_profile ("$config{'profiledir'}/$profile");
|
|
}
|