Skip to content

Commit f5a77ba

Browse files
committed
Add test for RT #119001
1 parent 76adbe5 commit f5a77ba

File tree

1 file changed

+9
-1
lines changed

1 file changed

+9
-1
lines changed

S06-other/main-usage.t

Lines changed: 9 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
use v6;
22
use Test;
33

4-
plan 26;
4+
plan 27;
55

66
use lib 't/spec/packages';
77

@@ -219,3 +219,11 @@ is_run 'multi MAIN(:$foo) { print "Scalar" }; multi MAIN(:@foo) { print "Array"
219219
:args['--foo=bar', '--foo=baz'],
220220
'correct select Array candidate from Scalar and Array candidates.';
221221

222+
# RT #119001
223+
is_run 'sub MAIN (Str $value) { print "String $value" }',
224+
{
225+
out => 'String 10',
226+
err => '',
227+
},
228+
:args[10],
229+
'passing an integer matches MAIN(Str)';

0 commit comments

Comments
 (0)