view release on metacpan or  search on metacpan

t/generated/display-string.t  view on Meta::CPAN

# Test 18: bad display string utf-8 (invalid 4-byte seq)
{
    my $test_name = 'bad display string utf-8 (invalid 4-byte seq) - must fail';
    my $input = "%\"%f0%28%8c%28\"";
    
    eval { decode_item($input); };
    ok($@, $test_name) or diag("Expected failure but got success");
}

# Test 19: BOM in display string
subtest "BOM in display string" => sub {
    my $test_name = "BOM in display string";
    my $input = "%\"BOM: %ef%bb%bf\"";
    my $expected = { _type => 'displaystring', value => 'BOM: ' };
    my $canonical = $input;
    
    my $result = eval { decode_item($input); };
    
    if ($@) {
        fail($test_name);
        diag("Decode error: $@");
        diag("Input was: $input");
    } else {
        is_deeply($result, $expected, $test_name) or do {