>perl_trace;
ok $perl_trace;
note "perl trace: ", $perl_trace->to_string;
isnt index($bt->to_string, $perl_trace->to_string), -1, "whole backtrace contains perl trace";
c_trace;
ok $c_trace;
note "c trace:\n", $c_trace->to_string;
isnt index($bt->to_string, $c_trace->to_string), -1, "whole backtrace contains C trace";
m
ok $perl_trace;
note "perl trace: ", $perl_trace->to_string;
isnt index($bt->to_string, $perl_trace->to_string), -1, "whole backtrace contains perl trace";
exception" => sub {
my $bt2 = Exception::Backtrace::get_backtrace_string_pp($ex);
isnt index($bt, $bt2), -1, "pure perl trace is contained in full trace already";
};
};
subtest "j