[t] move code_blocks_as_sub_args.t to spec/

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

integration/code-blocks-as-sub-args.t

@@ -0,0 +1,23 @@
+use v6;
+
+use Test;
+
+plan 4;
+
+=begin desc
+
+Test a bug where sub args of type Sub do not get handled correctly.
+
+=end desc
+
+sub foo (Sub $code, Str $a, Str $b) { return $a.WHAT }
+
+dies_ok  {foo(-> { die "test"   }, "a", "b")}, 'pointy block is not a sub';
+lives_ok {foo( sub { die "test" }, 'a', 'b')}, 'anonymous sub as argument not executed';
+
+sub foo2 (Sub $code, Str $a, Str $b?) { return $a.WHAT }
+
+dies_ok  {foo2(-> { die "test"   }, "a", "b")}, 'pointy block is not a sub (with optional last arg)';
+lives_ok {foo2( sub { die "test" }, 'a', 'b')}, 'anonymous sub as argument not executed (with optional last arg)';
+
+# vim: ft=perl6