view release on metacpan or  search on metacpan

t/from-devel-stacktrace/02-bad-utf8.t  view on Meta::CPAN

    unless $] >= 5.008008;

plan skip_all => 'These tests are not relevant with Perl 5.13.8+'
    if $] >= 5.013008;

use Devel::StackTrace;

# This should be invalid UTF8
my $raw_bad = do { use bytes; chr(0xED) . chr(0xA1) . chr(0xBA) };

my $decoded = Encode::decode( 'utf8' => $raw_bad );
my $trace = foo($decoded);

my $string = eval { $trace->as_string() };

my $e = $@;
is(
    $e, '',
    'as_string() does not throw an exception'
);
like(
    $string, qr/\Q(bad utf-8)/,