[perl #68578] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S06-signature/code.t

commit 7b90df932029168b1169472c623a5f015c91e54b
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Fri Oct 9 17:14:06 2009 +0000

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

diff --git a/t/spec/S06-signature/code.t b/t/spec/S06-signature/code.t
index 2ff20ee..26f8660 100644
--- a/t/spec/S06-signature/code.t
+++ b/t/spec/S06-signature/code.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 4;
+plan 6;
 
 # TODO: move this test to closure-parameters.t if it works in the future
 
@@ -28,4 +28,12 @@ sub not_returns_a_sub { 3 };
 dies_ok {tester2(not_returns_a_sub)}, 
         "can't pass thing that doesn't do Callable";
 
+is tester2({ 'block' }), 1, 'Can pass a block to a &parameter';
+
+# RT #68578
+{
+    sub rt68578( Callable &x ) {}
+    dies_ok { rt68578({ 'block' }) }, "Can't pass block that doesn't do 
Callable";
+}
+
 # vim: ft=perl6