xref: /openbsd-src/gnu/usr.bin/perl/ext/XS-APItest/t/underscore_length.t (revision b8851fcc53cbe24fd20b090f26dd149e353f6174)

use warnings;
use strict;

use Test::More tests => 2;

use XS::APItest qw(underscore_length);

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

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

1;