[t/spec] Test for RT #68578

git-svn-id: http://svn.pugscode.org/pugs@28679 c213334d-75ef-0310-aa23-eaa082d1ae64

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