[perl #65358] tests available

[kyleha]

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

commit ef7cd1378cc84c1435cf6f551c4f85719be590fa
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sun Oct 11 12:57:48 2009 +0000

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

diff --git a/t/spec/S04-statements/try.t b/t/spec/S04-statements/try.t
index 4ed7ef6..fcc4fe4 100644
--- a/t/spec/S04-statements/try.t
+++ b/t/spec/S04-statements/try.t
@@ -4,7 +4,7 @@ use Test;
 
 # L<S04/"Statement parsing"/"or try {...}">
 
-plan 15;
+plan *;
 
 {
     # simple try
@@ -83,4 +83,11 @@ plan 15;
         "return() inside a try{}-block should cause following exceptions to 
really die";
 }
 
+{
+    sub argcount { return +...@_ }
+    is argcount( try { 17 }, 23, 99 ), 3, 'try gets a block, nothing more';
+}
+
+done_testing;
+
 # vim: ft=perl6