[perl #65962] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S04-statements/loop.t

commit e88ffdae99b59cb7c743e3a60f774e173a3409ad
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sun Aug 2 20:38:23 2009 +0000

    [t/spec] Test for RT #65962
    
    git-svn-id: http://svn.pugscode.org/p...@27856 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S04-statements/loop.t b/t/spec/S04-statements/loop.t
index 86b9001..a5bd99a 100644
--- a/t/spec/S04-statements/loop.t
+++ b/t/spec/S04-statements/loop.t
@@ -11,7 +11,7 @@ loop statement tests
 
 =end kwid
 
-plan 11;
+plan 12;
 
 # basic loop
 
@@ -82,4 +82,15 @@ plan 11;
     is($loopvar, 3, "bare loop exited after 3 iterations");
 }
 
+#?rakudo skip 'RT #65962'
+{
+    my $rt65962 = 'did not loop';
+    
+    loop ( my $a = 1, my $b = 2; $a < 5; $a++, $b++ ) {
+        $rt65962 = "$a $b";
+    }
+
+    is $rt65962, '4 5', 'loop with two variables in init works';
+}
+
 # vim: ft=perl6