Mercurial > hg > Others > Rakudo

comparison t/02-rakudo/08-slangs.t @ 0:c341f82e7ad7 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rakudo branch in cr.ie.u-ryukyu.ac.jp
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Thu, 26 Dec 2019 16:50:27 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:c341f82e7ad7
1 use v6;
2 use lib <t/packages/>;
3 use Test;
4 use Test::Helpers;
5
6 # Tests for slang interface that aren't yet spec
7
8 plan 1;
9
10 is-run ｢
11 BEGIN $?LANG.refine_slang(
12 'MAIN',
13 role { token apostrophe { <[ - ' \\ ]> } },
14 role {},
15 );
16 my $foo\bar = "pass"; say $foo\bar;
17 ｣, :out("pass\n"), 'no crash when giving an Actions class to .refine_slang';