Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

28 lines (17 sloc) 0.722 kb
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 } #OK not used
throws-like {foo(-> { die "test" }, "a", "b")},
X::TypeCheck::Binding,
'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 } #OK not used
throws-like {foo2(-> { die "test" }, "a", "b")},
X::TypeCheck::Binding,
'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
Jump to Line
Something went wrong with that request. Please try again.