From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

GAAS / Perl-API-0.01 / t / sv.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

              
#!perl -w
use Test qw(plan ok);
plan tests => 4;
use Perl::API;
$a = "abc";
ok(SvCUR($a), 3);
ok(SvLEN($a), 4);
SvCUR_set($a, 1);
ok($a, "a");
SvCUR_set($a, 4);
ok($a, "abc\0");