Select Code to Download

use Test::More tests => 1;

...
my $maybe = round_trip($smiley);
is( $maybe, $smiley, 
    "String survives round trip including UTF8 flag" );