This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
XS::APItest::clone_with_stack(); check SI RC state
authorDavid Mitchell <davem@iabyn.com>
Fri, 17 Feb 2023 21:53:11 +0000 (21:53 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 16 Aug 2023 16:17:00 +0000 (17:17 +0100)
commitcbcef76ee0c0d03d9ee77d1dbc53fdd62469fdc8
tree18df792370add5f0af4d389964625ae5cba7f360
parentc764d96b6be325a209fe6b63d35931e03794b404
XS::APItest::clone_with_stack(); check SI RC state

In this test function, push a couple of stackinfos, one with a
ref-counted stack, and one without.
After cloning, pop the cloned stackinfos and assert that the cloned
argument stacks are also appropriately RC or non-RC.

This should probably have been done properly as some new tests rather
than a couple of asserts, but that would have involved a lot more
effort.
ext/XS-APItest/APItest.xs