Mercurial > hg > Others > Rakudo
view t/02-rakudo/08-slangs.t @ 0:c341f82e7ad7 default tip
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 |
line wrap: on
line source
use v6; use lib <t/packages/>; use Test; use Test::Helpers; # Tests for slang interface that aren't yet spec plan 1; is-run 「 BEGIN $?LANG.refine_slang( 'MAIN', role { token apostrophe { <[ - ' \\ ]> } }, role {}, ); my $foo\bar = "pass"; say $foo\bar; 」, :out("pass\n"), 'no crash when giving an Actions class to .refine_slang';