ext/XS-APItest/t/underscore_length.t


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

use warnings;
use strict;

use Test::More tests => 4;

use XS::APItest qw(underscore_length);

$_ = "foo";
is underscore_length(), 3;

$_ = "snowman \x{2603}";
is underscore_length(), 9;

my $_ = "xyzzy";
is underscore_length(), 5;

$_ = "pile of poo \x{1f4a9}";
is underscore_length(), 13;

1;