use strict;
use Test::More tests => 2;
use Encode;
use Encode::JavaScript::UCS;
my $name = "\x{5BAE}\x{5DDD}\x{9054}\x{5F66}";
my $escaped = encode("JavaScript-UCS", $name);
is $escaped, "\\u5bae\\u5ddd\\u9054\\u5f66";
is decode("JavaScript-UCS", $escaped), $name;