#########################

use Test::More tests => 2;
BEGIN { use_ok('HTML::GenerateUtil') };
use HTML::GenerateUtil qw(:consts escape_uri);
use Encode;
use strict;

# $\d variables start off magic until first used
#  or SvGETMAGIC called, but Test::More uses at
#  least 1. It's all messy in XS land

$_ = "test";
s/()()()()()(.*)/escape_uri($6)/e;
is($_, "test");