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';