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