print "1..3\n";

use Unicode::String qw(latin1);

Unicode::String::stringify_as("hex");

$u = latin1("gjøk");

print $u->hex, "\n";

print "not " unless "$u" eq "U+0067 U+006a U+00f8 U+006b";
print "ok 1\n";

Unicode::String::stringify_as("utf8");

print $u->hex, "\n";
$str = "$u";


print "$str\n";

print "not " unless "$u" eq "gjøk";
print "ok 2\n";

eval {
  Unicode::String::stringify_as("xyzzy");
};

print $@;
print "not " unless $@;
print "ok 3\n";