1use warnings;
2use strict;
3
4use Test::More tests => 2;
5
6use XS::APItest qw(underscore_length);
7
8$_ = "foo";
9is underscore_length(), 3;
10
11$_ = "snowman \x{2603}";
12is underscore_length(), 9;
13
141;
15