view t/02-rakudo/10-nqp-ops.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 lib <t/packages/>;
use Test;
use Test::Helpers;
use nqp;
# Tests for nqp ops that don't fit into nqp's test suit

plan 2;

# RT#132126
lives-ok {
    nqp::p6bindattrinvres(($ := 42), Int, q|$!value|, nqp::getattr(42, Int, q|$!value|))
}, 'p6bindattrinvres with getattr of bigint does not crash';

# RT #132300
is-run 「use nqp; quietly print nqp::getlexdyn('&DEPRECATED'); print 'pass'」,
    :out<pass>, 'getlexdyn op does not segfault';