use utf8;
    use 5.18.0;
    use Test::More;
    use Test::utf8;
    use JSON::XS;

    BEGIN {
        # damn it
        my $builder = Test::Builder->new;
        foreach (qw/output failure_output todo_output/) {
            binmode $builder->$_, ':encoding(UTF-8)';
        }
    }

    foreach my $string ( 'Deliver «French Bread»', '日本国' ) {
        my $hashref = { value => $string };
        is_sane_utf8 $string, "String: $string";
        my $json = encode_json($hashref);
        is_sane_utf8 $json, "JSON: $json";
        say STDERR $json;
    }
    diag ord('»');

    done_testing;

##</code><code>##

    utf8.t .. 
    ok 1 - String: Deliver «French Bread»
    not ok 2 - JSON: {"value":"Deliver «French Bread»"}

    #   Failed test 'JSON: {"value":"Deliver «French Bread»"}'
    #   at utf8.t line 17.
    # Found dodgy chars "<c2><ab>" at char 18
    # String not flagged as utf8...was it meant to be?
    # Probably originally a LEFT-POINTING DOUBLE ANGLE QUOTATION MARK char - codepoint 171 (dec), ab (hex)
    {"value":"Deliver «French Bread»"}    
    ok 3 - String: &#26085;&#26412;&#22269;
    ok 4 - JSON: {"value":"æ&#151;¥æ&#156;¬å&#155;½"}
    1..4
    {"value":"&#26085;&#26412;&#22269;"}
    # 187