[svn:parrot] r44321 - in trunk/t: codingstd examples perl pmc

[mikehh at svn.parrot.org]

Author: mikehh
Date: Mon Feb 22 22:08:59 2010
New Revision: 44321
URL: https://trac.parrot.org/parrot/changeset/44321

Log:
fix codetest failures - cuddled else

Modified:
   trunk/t/codingstd/c_indent.t
   trunk/t/codingstd/perlcritic.t
   trunk/t/examples/tutorial.t
   trunk/t/perl/Parrot_Test.t
   trunk/t/pmc/os.t

Modified: trunk/t/codingstd/c_indent.t
==============================================================================
--- trunk/t/codingstd/c_indent.t	Mon Feb 22 21:58:38 2010	(r44320)
+++ trunk/t/codingstd/c_indent.t	Mon Feb 22 22:08:59 2010	(r44321)
@@ -183,7 +183,7 @@
             my ($indent) = $line =~ /^(\s+)/ or next;
             $indent = length($indent);
 
-            # Ignore the indentation of the current line if the last 
+            # Ignore the indentation of the current line if the last
             # character of the was anything but a ';'.
             #
             # The indentation of the previous line is not considered.
@@ -198,7 +198,8 @@
                         . "    apparent non-2 space outdenting ($indent spaces)\n";
                     $c_failed{"$path\n"} = 1
                 }
-            } else {
+            }
+            else {
                 if ( $indent % 4 &&
                     !$state{in_comment} &&
                     $state{prev_last_char} eq ';'

Modified: trunk/t/codingstd/perlcritic.t
==============================================================================
--- trunk/t/codingstd/perlcritic.t	Mon Feb 22 21:58:38 2010	(r44320)
+++ trunk/t/codingstd/perlcritic.t	Mon Feb 22 22:08:59 2010	(r44321)
@@ -80,7 +80,8 @@
              map  { $_->path }
              grep { $_->read !~ m/use v6;/ }
              $dist->get_perl_language_files();
-} else {
+}
+else {
     @files = <@ARGV>;
 }
 

Modified: trunk/t/examples/tutorial.t
==============================================================================
--- trunk/t/examples/tutorial.t	Mon Feb 22 21:58:38 2010	(r44320)
+++ trunk/t/examples/tutorial.t	Mon Feb 22 22:08:59 2010	(r44321)
@@ -27,7 +27,7 @@
 my $manifest = maniread('MANIFEST');
 my %files;
 foreach my $file (keys %$manifest) {
-  next unless $file =~ m{examples/tutorial/.*pir$}; 
+  next unless $file =~ m{examples/tutorial/.*pir$};
   $files{$file}=undef;
 }
 
@@ -85,7 +85,7 @@
 
     ##Note extra whitespace after 3rd hello
     '21_string_ops_repeat.pir' => << 'END_EXPECTED',
-Hello Hello Hello 
+Hello Hello Hello
 END_EXPECTED
 
     '22_string_ops_length.pir' => << 'END_EXPECTED',
@@ -244,7 +244,8 @@
             @todo = (todo => $reason) if defined $reason;
         }
         example_output_is( $tutorial, $expected, @todo );
-    } else {
+    }
+    else {
         fail($tutorial);
     }
 }

Modified: trunk/t/perl/Parrot_Test.t
==============================================================================
--- trunk/t/perl/Parrot_Test.t	Mon Feb 22 21:58:38 2010	(r44320)
+++ trunk/t/perl/Parrot_Test.t	Mon Feb 22 22:08:59 2010	(r44321)
@@ -290,7 +290,8 @@
 my $location;
 if ($Test::Builder::VERSION <= eval '0.33') {
     $location = "in $0 at line $line";
-} else {
+}
+else {
     $location = "at $0 line $line";
 }
 test_out("not ok 1 - $desc # TODO foo");
@@ -300,10 +301,10 @@
 # Expected error but exited cleanly
 # Received:
 # foo
-# 
+#
 # Expected:
 # /bar/
-# 
+#
 ERR
 chomp $err;
 test_err($err);
@@ -316,7 +317,8 @@
 OUTPUT
 if($Test::Builder::VERSION == 0.84) {
     test_test(title => $desc, skip_err => 1);
-} else {
+}
+else {
     test_test($desc);
 }
 

Modified: trunk/t/pmc/os.t
==============================================================================
--- trunk/t/pmc/os.t	Mon Feb 22 21:58:38 2010	(r44320)
+++ trunk/t/pmc/os.t	Mon Feb 22 22:08:59 2010	(r44321)
@@ -238,7 +238,8 @@
         end
 .end
 CODE
-} else {
+}
+else {
   SKIP: {
     skip 'broken test TT #457', 1 if $solaris;