apparmor/parser/tst/simple.pl

#!/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: simple.pl 5924 2005-12-14 19:09:04Z steve $';
my %config;
$config{'parser'} = "/sbin/subdomain_parser";
$config{'profiledir'} = "./simple_tests/";

my $help;

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'} = "$ENV{'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");
}