t/codingstd/cuddled_else.t

   1 #! perl
   2 # Copyright (C) 2006-2009, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7 use lib qw( . lib ../lib ../../lib );
   8 use Test::More tests => 1;
   9 use Parrot::Distribution;
  10 use Parrot::Test::Util::Runloop;
  11
  12 =head1 NAME
  13
  14 t/codingstd/cuddled_else.t - checks for cuddled elses in source and headers
  15
  16 =head1 SYNOPSIS
  17
  18     # test all files
  19     % prove t/codingstd/cuddled_else.t
  20
  21     # test specific files
  22     % perl t/codingstd/cuddled_else.t src/foo.c include/parrot/bar.h
  23
  24 =head1 DESCRIPTION
  25
  26 Checks that files do not use cuddled else, that is an else on the same
  27 line as the closing brace of the if part.
  28
  29 =head1 SEE ALSO
  30
  31 L<docs/pdds/pdd07_codingstd.pod>
  32
  33 =cut
  34
  35 my $DIST = Parrot::Distribution->new;
  36 my @files = @ARGV ? <@ARGV> : (
  37     $DIST->get_c_language_files(),
  38     $DIST->get_perl_language_files(),
  39 );
  40
  41
  42 Parrot::Test::Util::Runloop->testloop(
  43     name        => 'no cuddled elses',
  44     files       => [@files],
  45     per_line    => sub { $_[0] !~ /}\s*else\s*{/ },
  46     diag_prefix => 'Cuddled else found'
  47 );
  48
  49 # Local Variables:
  50 #   mode: cperl
  51 #   cperl-indent-level: 4
  52 #   fill-column: 100
  53 # End:
  54 # vim: expandtab shiftwidth=4: