[svn:parrot] r18370 - trunk/t/codingstd

[bernhard]

Author: bernhard
Date: Tue May  1 06:43:26 2007
New Revision: 18370

Modified:
   trunk/t/codingstd/c_indent.t

Log:
[t]
Let @files contain plain strings, that is pathes to files.
Add comment WRT to r18369.


Modified: trunk/t/codingstd/c_indent.t
==============================================================================
--- trunk/t/codingstd/c_indent.t        (original)
+++ trunk/t/codingstd/c_indent.t        Tue May  1 06:43:26 2007
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006, The Perl Foundation.
+# Copyright (C) 2006-2007, The Perl Foundation.
 # $Id$
 
 use strict;
@@ -32,11 +32,11 @@
 
 =cut
 
-my $DIST = Parrot::Distribution->new;
-my @files = @ARGV ? @ARGV : $DIST->get_c_language_files();
+my $DIST = Parrot::Distribution->new();
+my @files = @ARGV ? @ARGV : map { $_->path() } $DIST->get_c_language_files();
 
 #foreach my $file ( @files ) {
-#    print $file->path(), "\n";
+#    print $file, "\n";
 #}
 #exit;
 
@@ -48,9 +48,8 @@
     my ( @pp_indent, @c_indent );
     my ( %pp_failed, %c_failed );
 
-    foreach my $file (@_) {
+    foreach my $path (@_) {
         my @source;
-        my $path = @ARGV ? $file : $file->path();
         open my $fh, '<', $path
             or die "Can not open '$path' for reading!\n";
         @source = <$fh>;
@@ -170,6 +169,12 @@
             my ($indent) = /^(\s+)/ or next;
             $indent = length($indent);
 
+            # Ignore the indentation of the current line if that
+            # previous line's last character was anything but a ;.
+            #
+            # The indentation of the previous line is not considered.
+            # Check sanity by verifying that the indentation of the current 
line
+            # is divisible by four. 
             if ($indent % 4 && !$in_comment && $prev_last_char eq ';')
             {
                 push @c_indent => "$path:$line\n"