t/codingstd/tabs.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
  11 =head1 NAME
  12
  13 t/codingstd/tabs.t - checks for tab indents in C source and headers
  14
  15 =head1 SYNOPSIS
  16
  17     # test all files
  18     % prove t/codingstd/tabs.t
  19
  20     # test specific files
  21     % perl t/codingstd/tabs.t src/foo.c include/parrot/bar.h
  22
  23 =head1 DESCRIPTION
  24
  25 Checks that files do not use tabs to indent.
  26
  27 =head1 SEE ALSO
  28
  29 L<docs/pdds/pdd07_codingstd.pod>
  30
  31 =cut
  32
  33 my $DIST = Parrot::Distribution->new;
  34 my @files = @ARGV ? <@ARGV> : $DIST->get_c_language_files();
  35 my @tabs;
  36
  37 foreach my $file (@files) {
  38
  39     # if we have command line arguments, the file is the full path
  40     # otherwise, use the relevant Parrot:: path method
  41     my $path = @ARGV ? $file : $file->path;
  42
  43     open my $fh, '<', $path
  44         or die "Cannot open '$path' for reading: $!\n";
  45
  46     my $line = 1;
  47
  48     # search each line for leading tabs
  49     while (<$fh>) {
  50         if ( $_ =~ m/^ *\t/ ) {
  51             push @tabs => "$path:$line\n";
  52         }
  53
  54         $line++;
  55     }
  56     close $fh;
  57 }
  58
  59 ## L<PDD07/Code Formatting/"Indentation must consist only of spaces">
  60 ok( !scalar(@tabs), "tabs in leading whitespace" )
  61     or
  62     diag( "Found tab in leading whitespace " . scalar(@tabs) . " instances.  Lines found:\n@tabs" );
  63
  64 # Local Variables:
  65 #   mode: cperl
  66 #   cperl-indent-level: 4
  67 #   fill-column: 100
  68 # End:
  69 # vim: expandtab shiftwidth=4: