t/03-distro-makefiles.t

   1 #!/usr/bin/env perl
   2
   3 use warnings;
   4 use strict;
   5 use Test::More;
   6 use Data::Dumper;
   7
   8 use lib('t');
   9 use FindBin;
  10 use lib "$FindBin::Bin/lib/lib/perl5";
  11
  12 unless(-d "distros") {
  13     plan( skip_all => 'need distros directory to run, please run from the project root' );
  14 }
  15
  16 use_ok("TestUtils") or BAIL_OUT("fatal error in TestUtils");
  17
  18 my $all_confs = {};
  19 my $all_keys  = {};
  20 for my $file (glob("distros/Makefile.*")) {
  21     my $conf = TestUtils::read_config($file);
  22     isnt($conf, undef, "read config from $file");
  23     $all_confs->{$file} = $conf;
  24     for my $key (keys %{$all_confs->{$file}}) {
  25         $all_keys->{$key} = 1;
  26     }
  27 }
  28
  29 for my $file (keys %{$all_confs}) {
  30     for my $key (keys %{$all_keys}) {
  31         next if $key eq 'ARCH'; # arch is debian specific
  32         next if $key eq 'CONFIG_SITE'; # CONFIG_SITE is OpenSuSE specific
  33         ok(exists($all_confs->{$file}->{$key}), "$file: $key");
  34     }
  35 }
  36
  37 done_testing();