t/codingstd/pccmethod_deps.t

   1 #! perl
   2 # Copyright (C) 2007-2008, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7
   8 use File::Glob;
   9 use File::Spec;
  10
  11 use Test::More;
  12
  13 my $pmc_dir  = File::Spec->catfile(qw( src pmc *.pmc ));
  14 my @pmcs     = grep { contains_pccmethod($_) } glob($pmc_dir);
  15 my $find_pmc = join( '|', map { s/\.pmc/\.dump/; quotemeta( $_ ) } @pmcs );
  16 my $find_rx  = qr/^($find_pmc) : (.*)/;
  17
  18 open( my $fh, '<', 'Makefile' ) or die "Can't read Makefile: $!\n";
  19
  20 plan( tests => scalar @pmcs );
  21
  22 while (<$fh>) {
  23     next unless /$find_rx/;
  24     my ($file, $dependencies) = ($1, $2);
  25
  26     ok( $dependencies =~ /PCCMETHOD\.pm/,
  27         "$file should mark PCCMETHOD.pm dependency in Makefile" );
  28 }
  29
  30 sub contains_pccmethod {
  31     my $file = shift;
  32     open( my $fh, '<', $file ) or die "Can't read '$file': $!\n";
  33
  34     local $_;
  35     while (<$fh>) {
  36         next unless /METHOD/;
  37         return 1;
  38     }
  39
  40     return;
  41 }
  42
  43 # Local Variables:
  44 #   mode: cperl
  45 #   cperl-indent-level: 4
  46 #   fill-column: 100
  47 # End:
  48 # vim: expandtab shiftwidth=4: