Source

Perl-XS-Guide / perl5 / ext-embed-internals / docbook / examples / 0007-iterate-over-array / XSTest / t / 07-assign-string-to-ref.t

use strict;
use warnings;

use Test::More tests => 1;

use XSTest;

my $var;
XSTest::assign_string_to_ref(\$var);

# TEST
is ($var, "XSTest was here.", "assign_string_to_ref() works");