Go to:
Gentoo Home
Documentation
Forums
Lists
Bugs
Planet
Store
Wiki
Get Gentoo!
Gentoo's Bugzilla – Attachment 545018 Details for
Bug 663478
dev-perl/Cairo-1.106.0 fails tests with "stack smashing detected"
Home
|
New
–
[Ex]
|
Browse
|
Search
|
Privacy Policy
|
[?]
|
Reports
|
Requests
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
CairoSurface.t.log
CairoSurface.t.script (text/plain), 865.42 KB, created by
Jonathan Lovelace
on 2018-08-25 19:40:10 UTC
(
hide
)
Description:
CairoSurface.t.log
Filename:
MIME Type:
Creator:
Jonathan Lovelace
Created:
2018-08-25 19:40:10 UTC
Size:
865.42 KB
patch
obsolete
>Script started on 2018-08-25 15:16:37-0400 > >Loading DB routines from perl5db.pl version 1.51 >Editor support available. > >Enter h or 'h h' for help, or 'man perldebug' for more help. > >1..88 >Test2::API::CODE(0x5636af781b68)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:41): >41: INIT { eval 'END { test2_set_is_end() }; 1' or die $@ } > [4mDB<1>[24m [1mo[0m[1m [0m[1mA[0m[1mu[0m[1mt[0m[1mo[0m[1mT[0m[1mr[0m[1ma[0m[1mc[0m[1me[0m[1m=[0m[1m1[0m > AutoTrace = '1' > [4mDB<2>[24m [1mc[0m >Test2::API::CODE(0x5636af781b68)((eval 14)[/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:41]:1): >1: END { test2_set_is_end() }; 1 >Test::Builder::CODE(0x5636afb0df20)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:92): >92: Test2::API::test2_load() unless Test2::API::test2_in_preload(); >Test2::API::test2_in_preload(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:159): >159: sub test2_in_preload { $INST->preload } >Test2::Util::HashBase::CODE(0x5636af785388)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Util/HashBase.pm:72): >72: $attr => sub { $_[0]->{$attr} }, >Test2::API::test2_load(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:156): >156: sub test2_load { $INST->load } >Test2::API::Instance::load(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Instance.pm:278): >278: my $self = shift; >Test2::API::Instance::load(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Instance.pm:279): >279: unless ($self->{+LOADED}) { >280: confess "Attempt to initialize Test2::API during preload" >Test2::API::Instance::load(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Instance.pm:295): >295: return $self->{+LOADED}; >main::(t/CairoSurface.t:22): unless (eval 'use Test::Number::Delta; 1;') { >main::CODE(0x5636affec748)((eval 15)[t/CairoSurface.t:22]:1): >1: use Test::Number::Delta; 1; >main::CODE(0x5636aff29c98)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:1): >1: use strict; >main::CODE(0x5636aff29c98)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:1): >1: use strict; >main::CODE(0x5636aff29c98)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:1): >1: use strict; >strict::import(/usr/lib64/perl5/5.26.1/strict.pm:61): >61: shift; >strict::import(/usr/lib64/perl5/5.26.1/strict.pm:62): >62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; >main::CODE(0x5636afff6768)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:2): >2: use warnings; >main::CODE(0x5636afff6768)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:2): >2: use warnings; >main::CODE(0x5636afff6768)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:2): >2: use warnings; >warnings::import(/usr/lib64/perl5/5.26.1/warnings.pm:293): >293: shift; >warnings::import(/usr/lib64/perl5/5.26.1/warnings.pm:295): >295: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; >warnings::import(/usr/lib64/perl5/5.26.1/warnings.pm:297): >297: if (vec($mask, $Offsets{'all'}, 1)) { >warnings::import(/usr/lib64/perl5/5.26.1/warnings.pm:303): >303: push @_, 'all' if @_==1 && ( $_[0] eq 'FATAL' || $_[0] eq 'NONFATAL' ); >warnings::import(/usr/lib64/perl5/5.26.1/warnings.pm:306): >306: ${^WARNING_BITS} = @_ ? _bits($mask, @_) : $mask | $Bits{all} ; >Test::Number::Delta::CODE(0x5636affc50e0)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:9): >9: use vars qw (@EXPORT @ISA); >Test::Number::Delta::CODE(0x5636affc50e0)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:9): >9: use vars qw (@EXPORT @ISA); >Test::Number::Delta::CODE(0x5636affc50e0)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:9): >9: use vars qw (@EXPORT @ISA); >vars::import(/usr/lib64/perl5/5.26.1/vars.pm:11): >11: my $callpack = caller; >vars::import(/usr/lib64/perl5/5.26.1/vars.pm:12): >12: my (undef, @imports) = @_; >vars::import(/usr/lib64/perl5/5.26.1/vars.pm:13): >13: my ($sym, $ch); >vars::import(/usr/lib64/perl5/5.26.1/vars.pm:14): >14: foreach (@imports) { >vars::import(/usr/lib64/perl5/5.26.1/vars.pm:15): >15: if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) { >vars::import(/usr/lib64/perl5/5.26.1/vars.pm:16): >16: if ($sym =~ /\W/) { >vars::import(/usr/lib64/perl5/5.26.1/vars.pm:28): >28: $sym = "${callpack}::$sym" unless $sym =~ /::/; >29: *$sym = >30: ( $ch eq "\$" ? \$$sym >31: : $ch eq "\@" ? \@$sym >32: : $ch eq "\%" ? \%$sym >33: : $ch eq "\*" ? \*$sym >34: : $ch eq "\&" ? \&$sym >vars::import(/usr/lib64/perl5/5.26.1/vars.pm:35): >35: : do { >vars::import(/usr/lib64/perl5/5.26.1/vars.pm:15): >15: if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) { >vars::import(/usr/lib64/perl5/5.26.1/vars.pm:16): >16: if ($sym =~ /\W/) { >vars::import(/usr/lib64/perl5/5.26.1/vars.pm:28): >28: $sym = "${callpack}::$sym" unless $sym =~ /::/; >29: *$sym = >30: ( $ch eq "\$" ? \$$sym >31: : $ch eq "\@" ? \@$sym >32: : $ch eq "\%" ? \%$sym >33: : $ch eq "\*" ? \*$sym >34: : $ch eq "\&" ? \&$sym >vars::import(/usr/lib64/perl5/5.26.1/vars.pm:35): >35: : do { >Test::Number::Delta::CODE(0x5636b002d470)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:12): >12: use Carp; >Test::Number::Delta::CODE(0x5636b002d470)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:12): >12: use Carp; >Test::Number::Delta::CODE(0x5636b002d470)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:12): >12: use Carp; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:29): >29: my $pkg = shift; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:30): >30: my $callpkg = caller($ExportLevel); >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:32): >32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:38): >38: my $exports = \@{"$pkg\::EXPORT"}; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:38): >38: my $exports = \@{"$pkg\::EXPORT"}; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:41): >41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:41): >41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:41): >41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:42): >42: return export $pkg, $callpkg, @_ >43: if $Verbose or $Debug or $fail && @$fail > 1; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:44): >44: my $export_cache = ($Cache{$pkg} ||= {}); >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:45): >45: my $args = @_ or @_ = @$exports; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:47): >47: if ($args and not %$export_cache) { >48: s/^&//, $export_cache->{$_} = 1 >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:51): >51: my $heavy; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:54): >54: if ($args or $fail) { >55: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} >56: or $fail and @$fail and $_ eq $fail->[0])) and last >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:57): >57: foreach (@_); >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:62): >62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; >63: local $SIG{__WARN__} = >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:64): >64: sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:66): >66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:66): >66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:66): >66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:66): >66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:66): >66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:66): >66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:66): >66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >Test::Number::Delta::CODE(0x5636affb4938)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:13): >13: use Test::Builder; >Test::Number::Delta::CODE(0x5636affb4938)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:13): >13: use Test::Builder; >Test::Number::Delta::CODE(0x5636affb4938)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:13): >13: use Test::Builder; >Test::Number::Delta::CODE(0x5636afff64c8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:14): >14: use Exporter; >Test::Number::Delta::CODE(0x5636afff64c8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:14): >14: use Exporter; >Test::Number::Delta::CODE(0x5636afff64c8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:14): >14: use Exporter; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:29): >29: my $pkg = shift; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:30): >30: my $callpkg = caller($ExportLevel); >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:32): >32: if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:38): >38: my $exports = \@{"$pkg\::EXPORT"}; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:38): >38: my $exports = \@{"$pkg\::EXPORT"}; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:41): >41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:41): >41: my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"}; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:42): >42: return export $pkg, $callpkg, @_ >43: if $Verbose or $Debug or $fail && @$fail > 1; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:44): >44: my $export_cache = ($Cache{$pkg} ||= {}); >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:45): >45: my $args = @_ or @_ = @$exports; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:47): >47: if ($args and not %$export_cache) { >48: s/^&//, $export_cache->{$_} = 1 >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:51): >51: my $heavy; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:54): >54: if ($args or $fail) { >55: ($heavy = (/\W/ or $args and not exists $export_cache->{$_} >56: or $fail and @$fail and $_ eq $fail->[0])) and last >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:60): >60: foreach (@_); >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:62): >62: return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; >63: local $SIG{__WARN__} = >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:64): >64: sub {require Carp; &Carp::carp} if not $SIG{__WARN__}; >Exporter::import(/usr/lib64/perl5/5.26.1/Exporter.pm:66): >66: *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; >Test::Number::Delta::CODE(0x5636affec748)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:7): >7: our $VERSION = '1.06'; >Test::Number::Delta::CODE(0x5636affec748)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:16): >16: @ISA = qw( Exporter ); >Test::Number::Delta::CODE(0x5636affec748)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:17): >17: @EXPORT = qw( delta_not_ok delta_ok delta_within delta_not_within ); >Test::Number::Delta::CODE(0x5636affec748)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:117): >117: my $Test = Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::Number::Delta::CODE(0x5636affec748)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:118): >118: my $Epsilon = 1e-6; >Test::Number::Delta::CODE(0x5636affec748)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:119): >119: my $Relative = undef; >Test::Number::Delta::CODE(0x5636affec748)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:366): >366: 1; >main::CODE(0x5636affec748)((eval 15)[t/CairoSurface.t:22]:1): >1: use Test::Number::Delta; 1; >main::CODE(0x5636affec748)((eval 15)[t/CairoSurface.t:22]:1): >1: use Test::Number::Delta; 1; >Test::Number::Delta::import(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:122): >122: my $self = shift; >Test::Number::Delta::import(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:123): >123: my $pack = caller; >Test::Number::Delta::import(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:124): >124: my $found = grep /within|relative/, @_; >Test::Number::Delta::import(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:125): >125: croak "Can't specify more than one of 'within' or 'relative'" >126: if $found > 1; >Test::Number::Delta::import(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:127): >127: if ($found) { >Test::Number::Delta::import(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:141): >141: $Test->exported_to($pack); >Test::Builder::exported_to(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:615): >615: my( $self, $pack ) = @_; >Test::Builder::exported_to(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:617): >617: if( defined $pack ) { >Test::Builder::exported_to(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:618): >618: $self->{Exported_To} = $pack; >Test::Builder::exported_to(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:620): >620: return $self->{Exported_To}; >Test::Number::Delta::import(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:142): >142: $Test->plan(@_); >Test::Builder::plan(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:446): >446: my( $self, $cmd, $arg ) = @_; >Test::Builder::plan(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:448): >448: return unless $cmd; >Test::Number::Delta::import(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:143): >143: $self->export_to_level( 1, $self, $_ ) for @EXPORT; >Exporter::export_to_level(/usr/lib64/perl5/5.26.1/Exporter.pm:81): >81: goto &{as_heavy()}; >Exporter::export_to_level(/usr/lib64/perl5/5.26.1/Exporter.pm:81): >81: goto &{as_heavy()}; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:16): >16: require Exporter::Heavy; >Exporter::Heavy::CODE(0x5636b00560b0)(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:3): >3: use strict; >Exporter::Heavy::CODE(0x5636b00560b0)(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:3): >3: use strict; >Exporter::Heavy::CODE(0x5636b00560b0)(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:3): >3: use strict; >strict::import(/usr/lib64/perl5/5.26.1/strict.pm:61): >61: shift; >strict::import(/usr/lib64/perl5/5.26.1/strict.pm:62): >62: $^H |= @_ ? &bits : all_bits | all_explicit_bits; >Exporter::Heavy::CODE(0x5636b0031c40)(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:4): >4: no strict 'refs'; >Exporter::Heavy::CODE(0x5636b0031c40)(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:4): >4: no strict 'refs'; >Exporter::Heavy::CODE(0x5636b0031c40)(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:4): >4: no strict 'refs'; >strict::unimport(/usr/lib64/perl5/5.26.1/strict.pm:66): >66: shift; >strict::unimport(/usr/lib64/perl5/5.26.1/strict.pm:68): >68: if (@_) { >strict::unimport(/usr/lib64/perl5/5.26.1/strict.pm:69): >69: $^H &= ~&bits; >strict::bits(/usr/lib64/perl5/5.26.1/strict.pm:41): >41: my $bits = 0; >strict::bits(/usr/lib64/perl5/5.26.1/strict.pm:42): >42: my @wrong; >strict::bits(/usr/lib64/perl5/5.26.1/strict.pm:43): >43: foreach my $s (@_) { >strict::bits(/usr/lib64/perl5/5.26.1/strict.pm:44): >44: if (exists $bitmask{$s}) { >strict::bits(/usr/lib64/perl5/5.26.1/strict.pm:45): >45: $^H |= $explicit_bitmask{$s}; >strict::bits(/usr/lib64/perl5/5.26.1/strict.pm:47): >47: $bits |= $bitmask{$s}; >strict::bits(/usr/lib64/perl5/5.26.1/strict.pm:53): >53: if (@wrong) { >strict::bits(/usr/lib64/perl5/5.26.1/strict.pm:57): >57: $bits; >Exporter::Heavy::CODE(0x5636b0079eb8)(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:202): >202: no warnings 'once'; >Exporter::Heavy::CODE(0x5636b0079eb8)(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:202): >202: no warnings 'once'; >Exporter::Heavy::CODE(0x5636b0079eb8)(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:202): >202: no warnings 'once'; >warnings::unimport(/usr/lib64/perl5/5.26.1/warnings.pm:311): >311: shift; >warnings::unimport(/usr/lib64/perl5/5.26.1/warnings.pm:313): >313: my $catmask ; >warnings::unimport(/usr/lib64/perl5/5.26.1/warnings.pm:314): >314: my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ; >warnings::unimport(/usr/lib64/perl5/5.26.1/warnings.pm:316): >316: if (vec($mask, $Offsets{'all'}, 1)) { >warnings::unimport(/usr/lib64/perl5/5.26.1/warnings.pm:322): >322: push @_, 'all' if !@_ || @_==1 && $_[0] eq 'FATAL'; >warnings::unimport(/usr/lib64/perl5/5.26.1/warnings.pm:324): >324: foreach my $word ( @_ ) { >warnings::unimport(/usr/lib64/perl5/5.26.1/warnings.pm:325): >325: if ($word eq 'FATAL') { >warnings::unimport(/usr/lib64/perl5/5.26.1/warnings.pm:329): >329: $mask &= ~($catmask | $DeadBits{$word} | $All); >warnings::unimport(/usr/lib64/perl5/5.26.1/warnings.pm:335): >335: ${^WARNING_BITS} = $mask ; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:7): >7: require Exporter; our $VERSION = $Exporter::VERSION; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:7): >7: require Exporter; our $VERSION = $Exporter::VERSION; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:253): >253: 1; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:19): >19: my $c = (caller(1))[3]; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:20): >20: $c =~ s/.*:://; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:21): >21: \&{"Exporter::Heavy::heavy_$c"}; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:21): >21: \&{"Exporter::Heavy::heavy_$c"}; >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:215): >215: my $pkg = shift; >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:216): >216: my $level = shift; >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:217): >217: (undef) = shift; # XXX redundant arg >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:218): >218: my $callpkg = caller($level); >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:219): >219: $pkg->export($callpkg, @_); >Exporter::export(/usr/lib64/perl5/5.26.1/Exporter.pm:25): >25: goto &{as_heavy()}; >Exporter::export(/usr/lib64/perl5/5.26.1/Exporter.pm:25): >25: goto &{as_heavy()}; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:16): >16: require Exporter::Heavy; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:19): >19: my $c = (caller(1))[3]; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:20): >20: $c =~ s/.*:://; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:21): >21: \&{"Exporter::Heavy::heavy_$c"}; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:21): >21: \&{"Exporter::Heavy::heavy_$c"}; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:42): >42: my $oldwarn = $SIG{__WARN__}; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:57): >57: }; >58: local $SIG{__DIE__} = sub { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:63): >63: }; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:65): >65: my($pkg, $callpkg, @imports) = @_; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:66): >66: my($type, $sym, $cache_is_current, $oops); >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:68): >68: $Exporter::Cache{$pkg} ||= {}); >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:67): >67: my($exports, $export_cache) = (\@{"${pkg}::EXPORT"}, >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:70): >70: if (@imports) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:71): >71: if (!%$export_cache) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:72): >72: _rebuild_cache ($pkg, $exports, $export_cache); >Exporter::Heavy::_rebuild_cache(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:29): >29: my ($pkg, $exports, $cache) = @_; >Exporter::Heavy::_rebuild_cache(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:30): >30: s/^&// foreach @$exports; >Exporter::Heavy::_rebuild_cache(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:31): >31: @{$cache}{@$exports} = (1) x @$exports; >Exporter::Heavy::_rebuild_cache(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:31): >31: @{$cache}{@$exports} = (1) x @$exports; >Exporter::Heavy::_rebuild_cache(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:32): >32: my $ok = \@{"${pkg}::EXPORT_OK"}; >Exporter::Heavy::_rebuild_cache(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:32): >32: my $ok = \@{"${pkg}::EXPORT_OK"}; >Exporter::Heavy::_rebuild_cache(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:33): >33: if (@$ok) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:73): >73: $cache_is_current = 1; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:76): >76: if (grep m{^[/!:]}, @imports) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:121): >121: my @carp; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:122): >122: foreach $sym (@imports) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:123): >123: if (!$export_cache->{$sym}) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:157): >157: if ($oops) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:167): >167: $Exporter::FailCache{$pkg} ||= {}); >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:166): >166: my($fail, $fail_cache) = (\@{"${pkg}::EXPORT_FAIL"}, >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:169): >169: if (@$fail) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:194): >194: warn "Importing into $callpkg from $pkg: ", >195: join(", ",sort @imports) if $Exporter::Verbose; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:197): >197: foreach $sym (@imports) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:199): >199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) >200: unless $sym =~ s/^(\W)//; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:199): >199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) >200: unless $sym =~ s/^(\W)//; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:199): >199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) >200: unless $sym =~ s/^(\W)//; >Exporter::export_to_level(/usr/lib64/perl5/5.26.1/Exporter.pm:81): >81: goto &{as_heavy()}; >Exporter::export_to_level(/usr/lib64/perl5/5.26.1/Exporter.pm:81): >81: goto &{as_heavy()}; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:16): >16: require Exporter::Heavy; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:19): >19: my $c = (caller(1))[3]; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:20): >20: $c =~ s/.*:://; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:21): >21: \&{"Exporter::Heavy::heavy_$c"}; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:21): >21: \&{"Exporter::Heavy::heavy_$c"}; >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:215): >215: my $pkg = shift; >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:216): >216: my $level = shift; >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:217): >217: (undef) = shift; # XXX redundant arg >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:218): >218: my $callpkg = caller($level); >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:219): >219: $pkg->export($callpkg, @_); >Exporter::export(/usr/lib64/perl5/5.26.1/Exporter.pm:25): >25: goto &{as_heavy()}; >Exporter::export(/usr/lib64/perl5/5.26.1/Exporter.pm:25): >25: goto &{as_heavy()}; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:16): >16: require Exporter::Heavy; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:19): >19: my $c = (caller(1))[3]; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:20): >20: $c =~ s/.*:://; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:21): >21: \&{"Exporter::Heavy::heavy_$c"}; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:21): >21: \&{"Exporter::Heavy::heavy_$c"}; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:42): >42: my $oldwarn = $SIG{__WARN__}; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:57): >57: }; >58: local $SIG{__DIE__} = sub { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:63): >63: }; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:65): >65: my($pkg, $callpkg, @imports) = @_; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:66): >66: my($type, $sym, $cache_is_current, $oops); >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:68): >68: $Exporter::Cache{$pkg} ||= {}); >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:67): >67: my($exports, $export_cache) = (\@{"${pkg}::EXPORT"}, >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:70): >70: if (@imports) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:71): >71: if (!%$export_cache) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:76): >76: if (grep m{^[/!:]}, @imports) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:121): >121: my @carp; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:122): >122: foreach $sym (@imports) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:123): >123: if (!$export_cache->{$sym}) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:157): >157: if ($oops) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:167): >167: $Exporter::FailCache{$pkg} ||= {}); >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:166): >166: my($fail, $fail_cache) = (\@{"${pkg}::EXPORT_FAIL"}, >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:169): >169: if (@$fail) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:194): >194: warn "Importing into $callpkg from $pkg: ", >195: join(", ",sort @imports) if $Exporter::Verbose; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:197): >197: foreach $sym (@imports) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:199): >199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) >200: unless $sym =~ s/^(\W)//; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:199): >199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) >200: unless $sym =~ s/^(\W)//; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:199): >199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) >200: unless $sym =~ s/^(\W)//; >Exporter::export_to_level(/usr/lib64/perl5/5.26.1/Exporter.pm:81): >81: goto &{as_heavy()}; >Exporter::export_to_level(/usr/lib64/perl5/5.26.1/Exporter.pm:81): >81: goto &{as_heavy()}; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:16): >16: require Exporter::Heavy; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:19): >19: my $c = (caller(1))[3]; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:20): >20: $c =~ s/.*:://; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:21): >21: \&{"Exporter::Heavy::heavy_$c"}; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:21): >21: \&{"Exporter::Heavy::heavy_$c"}; >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:215): >215: my $pkg = shift; >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:216): >216: my $level = shift; >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:217): >217: (undef) = shift; # XXX redundant arg >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:218): >218: my $callpkg = caller($level); >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:219): >219: $pkg->export($callpkg, @_); >Exporter::export(/usr/lib64/perl5/5.26.1/Exporter.pm:25): >25: goto &{as_heavy()}; >Exporter::export(/usr/lib64/perl5/5.26.1/Exporter.pm:25): >25: goto &{as_heavy()}; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:16): >16: require Exporter::Heavy; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:19): >19: my $c = (caller(1))[3]; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:20): >20: $c =~ s/.*:://; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:21): >21: \&{"Exporter::Heavy::heavy_$c"}; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:21): >21: \&{"Exporter::Heavy::heavy_$c"}; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:42): >42: my $oldwarn = $SIG{__WARN__}; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:57): >57: }; >58: local $SIG{__DIE__} = sub { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:63): >63: }; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:65): >65: my($pkg, $callpkg, @imports) = @_; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:66): >66: my($type, $sym, $cache_is_current, $oops); >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:68): >68: $Exporter::Cache{$pkg} ||= {}); >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:67): >67: my($exports, $export_cache) = (\@{"${pkg}::EXPORT"}, >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:70): >70: if (@imports) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:71): >71: if (!%$export_cache) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:76): >76: if (grep m{^[/!:]}, @imports) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:121): >121: my @carp; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:122): >122: foreach $sym (@imports) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:123): >123: if (!$export_cache->{$sym}) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:157): >157: if ($oops) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:167): >167: $Exporter::FailCache{$pkg} ||= {}); >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:166): >166: my($fail, $fail_cache) = (\@{"${pkg}::EXPORT_FAIL"}, >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:169): >169: if (@$fail) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:194): >194: warn "Importing into $callpkg from $pkg: ", >195: join(", ",sort @imports) if $Exporter::Verbose; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:197): >197: foreach $sym (@imports) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:199): >199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) >200: unless $sym =~ s/^(\W)//; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:199): >199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) >200: unless $sym =~ s/^(\W)//; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:199): >199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) >200: unless $sym =~ s/^(\W)//; >Exporter::export_to_level(/usr/lib64/perl5/5.26.1/Exporter.pm:81): >81: goto &{as_heavy()}; >Exporter::export_to_level(/usr/lib64/perl5/5.26.1/Exporter.pm:81): >81: goto &{as_heavy()}; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:16): >16: require Exporter::Heavy; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:19): >19: my $c = (caller(1))[3]; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:20): >20: $c =~ s/.*:://; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:21): >21: \&{"Exporter::Heavy::heavy_$c"}; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:21): >21: \&{"Exporter::Heavy::heavy_$c"}; >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:215): >215: my $pkg = shift; >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:216): >216: my $level = shift; >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:217): >217: (undef) = shift; # XXX redundant arg >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:218): >218: my $callpkg = caller($level); >Exporter::Heavy::heavy_export_to_level(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:219): >219: $pkg->export($callpkg, @_); >Exporter::export(/usr/lib64/perl5/5.26.1/Exporter.pm:25): >25: goto &{as_heavy()}; >Exporter::export(/usr/lib64/perl5/5.26.1/Exporter.pm:25): >25: goto &{as_heavy()}; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:16): >16: require Exporter::Heavy; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:19): >19: my $c = (caller(1))[3]; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:20): >20: $c =~ s/.*:://; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:21): >21: \&{"Exporter::Heavy::heavy_$c"}; >Exporter::as_heavy(/usr/lib64/perl5/5.26.1/Exporter.pm:21): >21: \&{"Exporter::Heavy::heavy_$c"}; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:42): >42: my $oldwarn = $SIG{__WARN__}; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:57): >57: }; >58: local $SIG{__DIE__} = sub { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:63): >63: }; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:65): >65: my($pkg, $callpkg, @imports) = @_; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:66): >66: my($type, $sym, $cache_is_current, $oops); >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:68): >68: $Exporter::Cache{$pkg} ||= {}); >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:67): >67: my($exports, $export_cache) = (\@{"${pkg}::EXPORT"}, >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:70): >70: if (@imports) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:71): >71: if (!%$export_cache) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:76): >76: if (grep m{^[/!:]}, @imports) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:121): >121: my @carp; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:122): >122: foreach $sym (@imports) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:123): >123: if (!$export_cache->{$sym}) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:157): >157: if ($oops) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:167): >167: $Exporter::FailCache{$pkg} ||= {}); >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:166): >166: my($fail, $fail_cache) = (\@{"${pkg}::EXPORT_FAIL"}, >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:169): >169: if (@$fail) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:194): >194: warn "Importing into $callpkg from $pkg: ", >195: join(", ",sort @imports) if $Exporter::Verbose; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:197): >197: foreach $sym (@imports) { >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:199): >199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) >200: unless $sym =~ s/^(\W)//; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:199): >199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) >200: unless $sym =~ s/^(\W)//; >Exporter::Heavy::heavy_export(/usr/lib64/perl5/5.26.1/Exporter/Heavy.pm:199): >199: (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) >200: unless $sym =~ s/^(\W)//; >main::((eval 15)[t/CairoSurface.t:22]:1): >1: use Test::Number::Delta; 1; >main::(t/CairoSurface.t:27): my $surf = Cairo::ImageSurface->create ('rgb24', IMG_WIDTH, IMG_HEIGHT); >main::(t/CairoSurface.t:28): isa_ok ($surf, 'Cairo::ImageSurface'); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:608): >608: my( $thing, $class, $thing_name ) = @_; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:609): >609: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:611): >611: my $whatami; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:612): >612: if( !defined $thing ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:616): >616: $whatami = 'reference'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:618): >618: local($@,$!); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:619): >619: require Scalar::Util; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:620): >620: if( Scalar::Util::blessed($thing) ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:621): >621: $whatami = 'object'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1579): >1579: my( $self, $code, %opts ) = @_; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1581): >1581: my $error; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1582): >1582: my $return; >1583: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1585): >1585: local $@; # don't set $@ in the test >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1586): >1586: local $SIG{__DIE__}; # don't trip an outside DIE handler. >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::More::CODE(0x5636b0016a20)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1588): >1588: $error = $@; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1591): >1591: die $error if $error and $opts{die_on_fail}; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1593): >1593: return wantarray ? ( $return, $error ) : $return; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:631): >631: if($error) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:640): >640: if( $whatami eq 'reference' ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:644): >644: my($diag, $name); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:645): >645: if( defined $thing_name ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:650): >650: my $my_class = ref $thing; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:651): >651: $thing_name = qq[An object of class '$my_class']; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:652): >652: $name = "$thing_name isa '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:653): >653: $diag = "The object of class '$my_class' isn't a '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:675): >675: my $ok; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:676): >676: if($rslt) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:677): >677: $ok = $tb->ok( 1, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 1 - An object of class 'Cairo::ImageSurface' isa 'Cairo::ImageSurface' >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:684): >684: return $ok; >main::(t/CairoSurface.t:29): isa_ok ($surf, 'Cairo::Surface'); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:608): >608: my( $thing, $class, $thing_name ) = @_; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:609): >609: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:611): >611: my $whatami; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:612): >612: if( !defined $thing ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:616): >616: $whatami = 'reference'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:618): >618: local($@,$!); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:619): >619: require Scalar::Util; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:620): >620: if( Scalar::Util::blessed($thing) ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:621): >621: $whatami = 'object'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1579): >1579: my( $self, $code, %opts ) = @_; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1581): >1581: my $error; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1582): >1582: my $return; >1583: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1585): >1585: local $@; # don't set $@ in the test >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1586): >1586: local $SIG{__DIE__}; # don't trip an outside DIE handler. >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::More::CODE(0x5636b007a308)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1588): >1588: $error = $@; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1591): >1591: die $error if $error and $opts{die_on_fail}; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1593): >1593: return wantarray ? ( $return, $error ) : $return; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:631): >631: if($error) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:640): >640: if( $whatami eq 'reference' ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:644): >644: my($diag, $name); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:645): >645: if( defined $thing_name ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:650): >650: my $my_class = ref $thing; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:651): >651: $thing_name = qq[An object of class '$my_class']; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:652): >652: $name = "$thing_name isa '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:653): >653: $diag = "The object of class '$my_class' isn't a '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:675): >675: my $ok; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:676): >676: if($rslt) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:677): >677: $ok = $tb->ok( 1, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 2 - An object of class 'Cairo::ImageSurface' isa 'Cairo::Surface' >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:684): >684: return $ok; >main::(t/CairoSurface.t:32): skip 'new stuff', 2 >main::(t/CairoSurface.t:33): unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 2, 0); >main::(t/CairoSurface.t:32): skip 'new stuff', 2 >main::(t/CairoSurface.t:33): unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 2, 0); >Cairo::VERSION(blib/lib/Cairo.pm:28): >28: if (scalar @_ == 2) { >Cairo::VERSION(blib/lib/Cairo.pm:31): >31: Cairo::LIB_VERSION (@_); >main::(t/CairoSurface.t:35): is ($surf->get_content, 'color'); >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:401): >401: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:403): >403: return $tb->is_eq(@_); >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:754): >754: my( $self, $got, $expect, $name ) = @_; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:756): >756: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:758): >758: local $Level = $Level + 1; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:760): >760: if( !defined $got || !defined $expect ) { >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:770): >770: release $ctx, $self->cmp_ok( $got, 'eq', $expect, $name ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:902): >902: my( $self, $got, $type, $expect, $name ) = @_; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:903): >903: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:905): >905: if ($cmp_ok_bl{$type}) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:909): >909: my ($test, $succ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:916): >916: my($pack, $file, $line) = $ctx->trace->call(); >Test2::Util::HashBase::CODE(0x5636afa29ca8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Util/HashBase.pm:72): >72: $attr => sub { $_[0]->{$attr} }, >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:919): >919: $succ = eval qq[ >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:35): >35: $test = ($got eq $expect); >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:36): >36: 1; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:924): >924: $error = $@; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:926): >926: local $Level = $Level + 1; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:927): >927: my $ok = $self->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 3 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:932): >932: = $numeric_cmps{$type} >933: ? '_unoverload_num' >934: : '_unoverload_str'; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:936): >936: $self->diag(<<"END") unless $succ; >937: An error occurred while using $type: >938: ------------------------------------ >939: $error >940: ------------------------------------ >941: END >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:943): >943: unless($ok) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:969): >969: return release $ctx, $ok; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::(t/CairoSurface.t:36): is ($surf->get_format, 'rgb24'); >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:401): >401: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:403): >403: return $tb->is_eq(@_); >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:754): >754: my( $self, $got, $expect, $name ) = @_; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:756): >756: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:758): >758: local $Level = $Level + 1; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:760): >760: if( !defined $got || !defined $expect ) { >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:770): >770: release $ctx, $self->cmp_ok( $got, 'eq', $expect, $name ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:902): >902: my( $self, $got, $type, $expect, $name ) = @_; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:903): >903: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:905): >905: if ($cmp_ok_bl{$type}) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:909): >909: my ($test, $succ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:916): >916: my($pack, $file, $line) = $ctx->trace->call(); >Test2::Util::HashBase::CODE(0x5636afa29ca8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Util/HashBase.pm:72): >72: $attr => sub { $_[0]->{$attr} }, >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:919): >919: $succ = eval qq[ >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:36): >36: 1; >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:37): >37: >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:924): >924: $error = $@; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:926): >926: local $Level = $Level + 1; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:927): >927: my $ok = $self->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 4 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:932): >932: = $numeric_cmps{$type} >933: ? '_unoverload_num' >934: : '_unoverload_str'; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:936): >936: $self->diag(<<"END") unless $succ; >937: An error occurred while using $type: >938: ------------------------------------ >939: $error >940: ------------------------------------ >941: END >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:943): >943: unless($ok) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:969): >969: return release $ctx, $ok; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::(t/CairoSurface.t:39): is ($surf->get_width, IMG_WIDTH); >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:401): >401: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:403): >403: return $tb->is_eq(@_); >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:754): >754: my( $self, $got, $expect, $name ) = @_; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:756): >756: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:758): >758: local $Level = $Level + 1; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:760): >760: if( !defined $got || !defined $expect ) { >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:770): >770: release $ctx, $self->cmp_ok( $got, 'eq', $expect, $name ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:902): >902: my( $self, $got, $type, $expect, $name ) = @_; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:903): >903: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:905): >905: if ($cmp_ok_bl{$type}) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:909): >909: my ($test, $succ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:916): >916: my($pack, $file, $line) = $ctx->trace->call(); >Test2::Util::HashBase::CODE(0x5636afa29ca8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Util/HashBase.pm:72): >72: $attr => sub { $_[0]->{$attr} }, >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:919): >919: $succ = eval qq[ >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:39): >39: >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:40): >40: >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:924): >924: $error = $@; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:926): >926: local $Level = $Level + 1; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:927): >927: my $ok = $self->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 5 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:932): >932: = $numeric_cmps{$type} >933: ? '_unoverload_num' >934: : '_unoverload_str'; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:936): >936: $self->diag(<<"END") unless $succ; >937: An error occurred while using $type: >938: ------------------------------------ >939: $error >940: ------------------------------------ >941: END >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:943): >943: unless($ok) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:969): >969: return release $ctx, $ok; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::(t/CairoSurface.t:40): is ($surf->get_height, IMG_HEIGHT); >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:401): >401: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:403): >403: return $tb->is_eq(@_); >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:754): >754: my( $self, $got, $expect, $name ) = @_; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:756): >756: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:758): >758: local $Level = $Level + 1; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:760): >760: if( !defined $got || !defined $expect ) { >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:770): >770: release $ctx, $self->cmp_ok( $got, 'eq', $expect, $name ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:902): >902: my( $self, $got, $type, $expect, $name ) = @_; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:903): >903: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:905): >905: if ($cmp_ok_bl{$type}) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:909): >909: my ($test, $succ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:916): >916: my($pack, $file, $line) = $ctx->trace->call(); >Test2::Util::HashBase::CODE(0x5636afa29ca8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Util/HashBase.pm:72): >72: $attr => sub { $_[0]->{$attr} }, >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:919): >919: $succ = eval qq[ >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:40): >40: >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:41): >41: >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:924): >924: $error = $@; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:926): >926: local $Level = $Level + 1; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:927): >927: my $ok = $self->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 6 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:932): >932: = $numeric_cmps{$type} >933: ? '_unoverload_num' >934: : '_unoverload_str'; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:936): >936: $self->diag(<<"END") unless $succ; >937: An error occurred while using $type: >938: ------------------------------------ >939: $error >940: ------------------------------------ >941: END >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:943): >943: unless($ok) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:969): >969: return release $ctx, $ok; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::(t/CairoSurface.t:43): my $data = pack ('CCCC', 0, 0, 0, 0); >main::(t/CairoSurface.t:43): my $data = pack ('CCCC', 0, 0, 0, 0); >main::(t/CairoSurface.t:44): my $surf = Cairo::ImageSurface->create_for_data ( >main::(t/CairoSurface.t:45): $data, 'argb32', 1, 1, 4); >main::(t/CairoSurface.t:46): isa_ok ($surf, 'Cairo::ImageSurface'); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:608): >608: my( $thing, $class, $thing_name ) = @_; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:609): >609: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:611): >611: my $whatami; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:612): >612: if( !defined $thing ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:616): >616: $whatami = 'reference'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:618): >618: local($@,$!); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:619): >619: require Scalar::Util; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:620): >620: if( Scalar::Util::blessed($thing) ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:621): >621: $whatami = 'object'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1579): >1579: my( $self, $code, %opts ) = @_; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1581): >1581: my $error; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1582): >1582: my $return; >1583: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1585): >1585: local $@; # don't set $@ in the test >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1586): >1586: local $SIG{__DIE__}; # don't trip an outside DIE handler. >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::More::CODE(0x5636b002e7b0)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1588): >1588: $error = $@; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1591): >1591: die $error if $error and $opts{die_on_fail}; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1593): >1593: return wantarray ? ( $return, $error ) : $return; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:631): >631: if($error) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:640): >640: if( $whatami eq 'reference' ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:644): >644: my($diag, $name); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:645): >645: if( defined $thing_name ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:650): >650: my $my_class = ref $thing; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:651): >651: $thing_name = qq[An object of class '$my_class']; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:652): >652: $name = "$thing_name isa '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:653): >653: $diag = "The object of class '$my_class' isn't a '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:675): >675: my $ok; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:676): >676: if($rslt) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:677): >677: $ok = $tb->ok( 1, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 7 - An object of class 'Cairo::ImageSurface' isa 'Cairo::ImageSurface' >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:684): >684: return $ok; >main::(t/CairoSurface.t:47): isa_ok ($surf, 'Cairo::Surface'); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:608): >608: my( $thing, $class, $thing_name ) = @_; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:609): >609: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:611): >611: my $whatami; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:612): >612: if( !defined $thing ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:616): >616: $whatami = 'reference'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:618): >618: local($@,$!); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:619): >619: require Scalar::Util; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:620): >620: if( Scalar::Util::blessed($thing) ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:621): >621: $whatami = 'object'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1579): >1579: my( $self, $code, %opts ) = @_; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1581): >1581: my $error; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1582): >1582: my $return; >1583: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1585): >1585: local $@; # don't set $@ in the test >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1586): >1586: local $SIG{__DIE__}; # don't trip an outside DIE handler. >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::More::CODE(0x5636b002dfb8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1588): >1588: $error = $@; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1591): >1591: die $error if $error and $opts{die_on_fail}; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1593): >1593: return wantarray ? ( $return, $error ) : $return; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:631): >631: if($error) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:640): >640: if( $whatami eq 'reference' ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:644): >644: my($diag, $name); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:645): >645: if( defined $thing_name ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:650): >650: my $my_class = ref $thing; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:651): >651: $thing_name = qq[An object of class '$my_class']; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:652): >652: $name = "$thing_name isa '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:653): >653: $diag = "The object of class '$my_class' isn't a '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:675): >675: my $ok; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:676): >676: if($rslt) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:677): >677: $ok = $tb->ok( 1, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 8 - An object of class 'Cairo::ImageSurface' isa 'Cairo::Surface' >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:684): >684: return $ok; >main::(t/CairoSurface.t:50): skip 'new stuff', 4 >main::(t/CairoSurface.t:51): unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 2, 0); >main::(t/CairoSurface.t:50): skip 'new stuff', 4 >main::(t/CairoSurface.t:51): unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 2, 0); >Cairo::VERSION(blib/lib/Cairo.pm:28): >28: if (scalar @_ == 2) { >Cairo::VERSION(blib/lib/Cairo.pm:31): >31: Cairo::LIB_VERSION (@_); >main::(t/CairoSurface.t:53): is ($surf->get_data, $data); >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:401): >401: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:403): >403: return $tb->is_eq(@_); >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:754): >754: my( $self, $got, $expect, $name ) = @_; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:756): >756: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:758): >758: local $Level = $Level + 1; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:760): >760: if( !defined $got || !defined $expect ) { >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:770): >770: release $ctx, $self->cmp_ok( $got, 'eq', $expect, $name ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:902): >902: my( $self, $got, $type, $expect, $name ) = @_; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:903): >903: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:905): >905: if ($cmp_ok_bl{$type}) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:909): >909: my ($test, $succ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:916): >916: my($pack, $file, $line) = $ctx->trace->call(); >Test2::Util::HashBase::CODE(0x5636afa29ca8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Util/HashBase.pm:72): >72: $attr => sub { $_[0]->{$attr} }, >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:919): >919: $succ = eval qq[ >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:53): >53: >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:54): >54: >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:924): >924: $error = $@; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:926): >926: local $Level = $Level + 1; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:927): >927: my $ok = $self->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 9 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:932): >932: = $numeric_cmps{$type} >933: ? '_unoverload_num' >934: : '_unoverload_str'; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:936): >936: $self->diag(<<"END") unless $succ; >937: An error occurred while using $type: >938: ------------------------------------ >939: $error >940: ------------------------------------ >941: END >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:943): >943: unless($ok) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:969): >969: return release $ctx, $ok; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::(t/CairoSurface.t:54): is ($surf->get_stride, 4); >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:401): >401: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:403): >403: return $tb->is_eq(@_); >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:754): >754: my( $self, $got, $expect, $name ) = @_; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:756): >756: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:758): >758: local $Level = $Level + 1; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:760): >760: if( !defined $got || !defined $expect ) { >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:770): >770: release $ctx, $self->cmp_ok( $got, 'eq', $expect, $name ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:902): >902: my( $self, $got, $type, $expect, $name ) = @_; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:903): >903: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:905): >905: if ($cmp_ok_bl{$type}) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:909): >909: my ($test, $succ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:916): >916: my($pack, $file, $line) = $ctx->trace->call(); >Test2::Util::HashBase::CODE(0x5636afa29ca8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Util/HashBase.pm:72): >72: $attr => sub { $_[0]->{$attr} }, >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:919): >919: $succ = eval qq[ >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:54): >54: >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:55): >55: >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:924): >924: $error = $@; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:926): >926: local $Level = $Level + 1; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:927): >927: my $ok = $self->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 10 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:932): >932: = $numeric_cmps{$type} >933: ? '_unoverload_num' >934: : '_unoverload_str'; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:936): >936: $self->diag(<<"END") unless $succ; >937: An error occurred while using $type: >938: ------------------------------------ >939: $error >940: ------------------------------------ >941: END >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:943): >943: unless($ok) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:969): >969: return release $ctx, $ok; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::(t/CairoSurface.t:57): my $cr = Cairo::Context->create ($surf); >main::(t/CairoSurface.t:58): $cr->set_source_rgba (1.0, 0, 0, 1.0); >main::(t/CairoSurface.t:59): $cr->rectangle (0, 0, 1, 1); >main::(t/CairoSurface.t:60): $cr->fill; >main::(t/CairoSurface.t:62): is ($surf->get_data, $data); >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:401): >401: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:403): >403: return $tb->is_eq(@_); >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:754): >754: my( $self, $got, $expect, $name ) = @_; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:756): >756: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:758): >758: local $Level = $Level + 1; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:760): >760: if( !defined $got || !defined $expect ) { >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:770): >770: release $ctx, $self->cmp_ok( $got, 'eq', $expect, $name ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:902): >902: my( $self, $got, $type, $expect, $name ) = @_; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:903): >903: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:905): >905: if ($cmp_ok_bl{$type}) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:909): >909: my ($test, $succ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:916): >916: my($pack, $file, $line) = $ctx->trace->call(); >Test2::Util::HashBase::CODE(0x5636afa29ca8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Util/HashBase.pm:72): >72: $attr => sub { $_[0]->{$attr} }, >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:919): >919: $succ = eval qq[ >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:62): >62: >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:63): >63: >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:924): >924: $error = $@; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:926): >926: local $Level = $Level + 1; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:927): >927: my $ok = $self->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 11 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:932): >932: = $numeric_cmps{$type} >933: ? '_unoverload_num' >934: : '_unoverload_str'; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:936): >936: $self->diag(<<"END") unless $succ; >937: An error occurred while using $type: >938: ------------------------------------ >939: $error >940: ------------------------------------ >941: END >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:943): >943: unless($ok) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:969): >969: return release $ctx, $ok; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::(t/CairoSurface.t:64): my $bo = $Config{byteorder}+1; >Config::FETCH(/usr/lib64/perl5/5.26.1/x86_64-linux-debug/Config.pm:67): >67: my($self, $key) = @_; >Config::FETCH(/usr/lib64/perl5/5.26.1/x86_64-linux-debug/Config.pm:70): >70: return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key); >Config::fetch_string(/usr/lib64/perl5/5.26.1/x86_64-linux-debug/Config_heavy.pl:1469): >1469: my($self, $key) = @_; >Config::fetch_string(/usr/lib64/perl5/5.26.1/x86_64-linux-debug/Config_heavy.pl:1471): >1471: return undef unless $Config_SH_expanded =~ /\n$key=\'(.*?)\'\n/s; >Config::fetch_string(/usr/lib64/perl5/5.26.1/x86_64-linux-debug/Config_heavy.pl:1473): >1473: $self->{$key} = $1 eq 'undef' ? undef : $1; >main::(t/CairoSurface.t:65): if ($bo == 1234) { >main::(t/CairoSurface.t:70): ok (1, 'Skipping get_data test; unknown endianness'); >Test::More::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:318): >318: my( $test, $name ) = @_; >Test::More::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:319): >319: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:321): >321: return $tb->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 12 - Skipping get_data test; unknown endianness >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::(t/CairoSurface.t:75): my $similar = Cairo::Surface->create_similar ($surf, 'color', IMG_WIDTH, IMG_HEIGHT); >main::(t/CairoSurface.t:76): isa_ok ($similar, 'Cairo::ImageSurface'); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:608): >608: my( $thing, $class, $thing_name ) = @_; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:609): >609: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:611): >611: my $whatami; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:612): >612: if( !defined $thing ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:616): >616: $whatami = 'reference'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:618): >618: local($@,$!); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:619): >619: require Scalar::Util; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:620): >620: if( Scalar::Util::blessed($thing) ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:621): >621: $whatami = 'object'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1579): >1579: my( $self, $code, %opts ) = @_; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1581): >1581: my $error; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1582): >1582: my $return; >1583: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1585): >1585: local $@; # don't set $@ in the test >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1586): >1586: local $SIG{__DIE__}; # don't trip an outside DIE handler. >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::More::CODE(0x5636b002e1b0)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1588): >1588: $error = $@; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1591): >1591: die $error if $error and $opts{die_on_fail}; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1593): >1593: return wantarray ? ( $return, $error ) : $return; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:631): >631: if($error) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:640): >640: if( $whatami eq 'reference' ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:644): >644: my($diag, $name); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:645): >645: if( defined $thing_name ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:650): >650: my $my_class = ref $thing; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:651): >651: $thing_name = qq[An object of class '$my_class']; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:652): >652: $name = "$thing_name isa '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:653): >653: $diag = "The object of class '$my_class' isn't a '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:675): >675: my $ok; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:676): >676: if($rslt) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:677): >677: $ok = $tb->ok( 1, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 13 - An object of class 'Cairo::ImageSurface' isa 'Cairo::ImageSurface' >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:684): >684: return $ok; >main::(t/CairoSurface.t:77): isa_ok ($similar, 'Cairo::Surface'); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:608): >608: my( $thing, $class, $thing_name ) = @_; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:609): >609: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:611): >611: my $whatami; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:612): >612: if( !defined $thing ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:616): >616: $whatami = 'reference'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:618): >618: local($@,$!); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:619): >619: require Scalar::Util; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:620): >620: if( Scalar::Util::blessed($thing) ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:621): >621: $whatami = 'object'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1579): >1579: my( $self, $code, %opts ) = @_; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1581): >1581: my $error; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1582): >1582: my $return; >1583: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1585): >1585: local $@; # don't set $@ in the test >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1586): >1586: local $SIG{__DIE__}; # don't trip an outside DIE handler. >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::More::CODE(0x5636b002c960)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1588): >1588: $error = $@; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1591): >1591: die $error if $error and $opts{die_on_fail}; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1593): >1593: return wantarray ? ( $return, $error ) : $return; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:631): >631: if($error) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:640): >640: if( $whatami eq 'reference' ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:644): >644: my($diag, $name); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:645): >645: if( defined $thing_name ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:650): >650: my $my_class = ref $thing; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:651): >651: $thing_name = qq[An object of class '$my_class']; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:652): >652: $name = "$thing_name isa '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:653): >653: $diag = "The object of class '$my_class' isn't a '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:675): >675: my $ok; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:676): >676: if($rslt) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:677): >677: $ok = $tb->ok( 1, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 14 - An object of class 'Cairo::ImageSurface' isa 'Cairo::Surface' >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:684): >684: return $ok; >main::(t/CairoSurface.t:81): my $similar = $surf->create_similar ('color', IMG_WIDTH, IMG_HEIGHT); >main::(t/CairoSurface.t:81): my $similar = $surf->create_similar ('color', IMG_WIDTH, IMG_HEIGHT); >main::(t/CairoSurface.t:82): isa_ok ($similar, 'Cairo::ImageSurface'); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:608): >608: my( $thing, $class, $thing_name ) = @_; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:609): >609: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:611): >611: my $whatami; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:612): >612: if( !defined $thing ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:616): >616: $whatami = 'reference'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:618): >618: local($@,$!); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:619): >619: require Scalar::Util; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:620): >620: if( Scalar::Util::blessed($thing) ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:621): >621: $whatami = 'object'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1579): >1579: my( $self, $code, %opts ) = @_; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1581): >1581: my $error; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1582): >1582: my $return; >1583: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1585): >1585: local $@; # don't set $@ in the test >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1586): >1586: local $SIG{__DIE__}; # don't trip an outside DIE handler. >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::More::CODE(0x5636b002eac8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1588): >1588: $error = $@; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1591): >1591: die $error if $error and $opts{die_on_fail}; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1593): >1593: return wantarray ? ( $return, $error ) : $return; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:631): >631: if($error) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:640): >640: if( $whatami eq 'reference' ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:644): >644: my($diag, $name); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:645): >645: if( defined $thing_name ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:650): >650: my $my_class = ref $thing; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:651): >651: $thing_name = qq[An object of class '$my_class']; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:652): >652: $name = "$thing_name isa '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:653): >653: $diag = "The object of class '$my_class' isn't a '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:675): >675: my $ok; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:676): >676: if($rslt) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:677): >677: $ok = $tb->ok( 1, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 15 - An object of class 'Cairo::ImageSurface' isa 'Cairo::ImageSurface' >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:684): >684: return $ok; >main::(t/CairoSurface.t:83): isa_ok ($similar, 'Cairo::Surface'); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:608): >608: my( $thing, $class, $thing_name ) = @_; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:609): >609: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:611): >611: my $whatami; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:612): >612: if( !defined $thing ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:616): >616: $whatami = 'reference'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:618): >618: local($@,$!); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:619): >619: require Scalar::Util; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:620): >620: if( Scalar::Util::blessed($thing) ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:621): >621: $whatami = 'object'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1579): >1579: my( $self, $code, %opts ) = @_; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1581): >1581: my $error; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1582): >1582: my $return; >1583: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1585): >1585: local $@; # don't set $@ in the test >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1586): >1586: local $SIG{__DIE__}; # don't trip an outside DIE handler. >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::More::CODE(0x5636b0085128)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1588): >1588: $error = $@; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1591): >1591: die $error if $error and $opts{die_on_fail}; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1593): >1593: return wantarray ? ( $return, $error ) : $return; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:631): >631: if($error) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:640): >640: if( $whatami eq 'reference' ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:644): >644: my($diag, $name); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:645): >645: if( defined $thing_name ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:650): >650: my $my_class = ref $thing; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:651): >651: $thing_name = qq[An object of class '$my_class']; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:652): >652: $name = "$thing_name isa '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:653): >653: $diag = "The object of class '$my_class' isn't a '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:675): >675: my $ok; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:676): >676: if($rslt) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:677): >677: $ok = $tb->ok( 1, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 16 - An object of class 'Cairo::ImageSurface' isa 'Cairo::Surface' >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:684): >684: return $ok; >main::(t/CairoSurface.t:85): eval { Cairo::Surface->create_similar (1, 2) }; >main::(t/CairoSurface.t:85): eval { Cairo::Surface->create_similar (1, 2) }; >main::(t/CairoSurface.t:86): like ($@, qr/Usage/); >Test::More::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:446): >446: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:448): >448: return $tb->like(@_); >Test::Builder::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:878): >878: my( $self, $thing, $regex, $name ) = @_; >Test::Builder::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:879): >879: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:881): >881: local $Level = $Level + 1; >Test::Builder::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:883): >883: release $ctx, $self->_regex_ok( $thing, $regex, '=~', $name ); >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1096): >1096: my( $self, $thing, $regex, $cmp, $name ) = @_; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1098): >1098: my $ok = 0; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1099): >1099: my $usable_regex = $self->maybe_regex($regex); >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1064): >1064: my( $self, $regex ) = @_; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1065): >1065: my $usable_regex = undef; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1067): >1067: return $usable_regex unless defined $regex; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1069): >1069: my( $re, $opts ); >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1072): >1072: if( _is_qr($regex) ) { >Test::Builder::_is_qr(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1087): >1087: my $regex = shift; >Test::Builder::_is_qr(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1091): >1091: return re::is_regexp($regex) if defined &re::is_regexp; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1073): >1073: $usable_regex = $regex; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1083): >1083: return $usable_regex; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1100): >1100: unless( defined $usable_regex ) { >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1108): >1108: my $test; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1108): >1108: my $test; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1109): >1109: my $context = $self->_caller_context; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:987): >987: my $self = shift; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:989): >989: my( $pack, $file, $line ) = $self->caller(1); >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1568): >1568: my( $self ) = @_; >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1570): >1570: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1572): >1572: my $trace = $ctx->trace; >Test2::Util::HashBase::CODE(0x5636afa29ca8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Util/HashBase.pm:72): >72: $attr => sub { $_[0]->{$attr} }, >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1573): >1573: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1574): >1574: return wantarray ? $trace->call : $trace->package; >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:991): >991: my $code = ''; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:992): >992: $code .= "#line $line $file\n" if defined $file and defined $line; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:994): >994: return $code; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1114): >1114: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1114): >1114: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1119): >1119: $test = eval $context . q{$test = $thing =~ /$usable_regex/ ? 1 : 0}; >Test::Builder::_regex_ok(t/CairoSurface.t:86): >86: like ($@, qr/Usage/); >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1122): >1122: $test = !$test if $cmp eq '!~'; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1124): >1124: local $Level = $Level + 1; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1125): >1125: $ok = $self->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 17 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1128): >1128: unless($ok) { >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1140): >1140: return $ok; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::(t/CairoSurface.t:88): eval { Cairo::Surface->create_similar (1, 2, 3, 4, 5) }; >main::(t/CairoSurface.t:88): eval { Cairo::Surface->create_similar (1, 2, 3, 4, 5) }; >main::(t/CairoSurface.t:89): like ($@, qr/Usage/); >Test::More::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:446): >446: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:448): >448: return $tb->like(@_); >Test::Builder::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:878): >878: my( $self, $thing, $regex, $name ) = @_; >Test::Builder::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:879): >879: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:881): >881: local $Level = $Level + 1; >Test::Builder::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:883): >883: release $ctx, $self->_regex_ok( $thing, $regex, '=~', $name ); >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1096): >1096: my( $self, $thing, $regex, $cmp, $name ) = @_; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1098): >1098: my $ok = 0; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1099): >1099: my $usable_regex = $self->maybe_regex($regex); >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1064): >1064: my( $self, $regex ) = @_; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1065): >1065: my $usable_regex = undef; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1067): >1067: return $usable_regex unless defined $regex; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1069): >1069: my( $re, $opts ); >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1072): >1072: if( _is_qr($regex) ) { >Test::Builder::_is_qr(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1087): >1087: my $regex = shift; >Test::Builder::_is_qr(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1091): >1091: return re::is_regexp($regex) if defined &re::is_regexp; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1073): >1073: $usable_regex = $regex; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1083): >1083: return $usable_regex; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1100): >1100: unless( defined $usable_regex ) { >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1108): >1108: my $test; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1108): >1108: my $test; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1109): >1109: my $context = $self->_caller_context; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:987): >987: my $self = shift; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:989): >989: my( $pack, $file, $line ) = $self->caller(1); >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1568): >1568: my( $self ) = @_; >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1570): >1570: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1572): >1572: my $trace = $ctx->trace; >Test2::Util::HashBase::CODE(0x5636afa29ca8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Util/HashBase.pm:72): >72: $attr => sub { $_[0]->{$attr} }, >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1573): >1573: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1574): >1574: return wantarray ? $trace->call : $trace->package; >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:991): >991: my $code = ''; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:992): >992: $code .= "#line $line $file\n" if defined $file and defined $line; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:994): >994: return $code; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1114): >1114: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1114): >1114: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1119): >1119: $test = eval $context . q{$test = $thing =~ /$usable_regex/ ? 1 : 0}; >Test::Builder::_regex_ok(t/CairoSurface.t:89): >89: like ($@, qr/Usage/); >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1122): >1122: $test = !$test if $cmp eq '!~'; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1124): >1124: local $Level = $Level + 1; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1125): >1125: $ok = $self->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 18 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1128): >1128: unless($ok) { >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1140): >1140: return $ok; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::(t/CairoSurface.t:94): skip 'content tests', 2 >main::(t/CairoSurface.t:95): unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 2, 0); >main::(t/CairoSurface.t:94): skip 'content tests', 2 >main::(t/CairoSurface.t:95): unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 2, 0); >Cairo::VERSION(blib/lib/Cairo.pm:28): >28: if (scalar @_ == 2) { >Cairo::VERSION(blib/lib/Cairo.pm:31): >31: Cairo::LIB_VERSION (@_); >main::(t/CairoSurface.t:97): my $tmp = Cairo::Surface->create_similar ($surf, 'color-alpha', IMG_WIDTH, IMG_HEIGHT); >main::(t/CairoSurface.t:98): is ($tmp->get_content, 'color-alpha'); >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:401): >401: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:403): >403: return $tb->is_eq(@_); >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:754): >754: my( $self, $got, $expect, $name ) = @_; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:756): >756: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:758): >758: local $Level = $Level + 1; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:760): >760: if( !defined $got || !defined $expect ) { >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:770): >770: release $ctx, $self->cmp_ok( $got, 'eq', $expect, $name ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:902): >902: my( $self, $got, $type, $expect, $name ) = @_; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:903): >903: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:905): >905: if ($cmp_ok_bl{$type}) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:909): >909: my ($test, $succ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:916): >916: my($pack, $file, $line) = $ctx->trace->call(); >Test2::Util::HashBase::CODE(0x5636afa29ca8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Util/HashBase.pm:72): >72: $attr => sub { $_[0]->{$attr} }, >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:919): >919: $succ = eval qq[ >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:98): >98: >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:99): >99: >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:924): >924: $error = $@; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:926): >926: local $Level = $Level + 1; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:927): >927: my $ok = $self->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 19 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:932): >932: = $numeric_cmps{$type} >933: ? '_unoverload_num' >934: : '_unoverload_str'; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:936): >936: $self->diag(<<"END") unless $succ; >937: An error occurred while using $type: >938: ------------------------------------ >939: $error >940: ------------------------------------ >941: END >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:943): >943: unless($ok) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:969): >969: return release $ctx, $ok; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::(t/CairoSurface.t:99): $tmp = Cairo::Surface->create_similar ($surf, 'color', IMG_WIDTH, IMG_HEIGHT); >main::(t/CairoSurface.t:100): is ($tmp->get_content, 'color'); >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:401): >401: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:403): >403: return $tb->is_eq(@_); >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:754): >754: my( $self, $got, $expect, $name ) = @_; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:756): >756: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:758): >758: local $Level = $Level + 1; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:760): >760: if( !defined $got || !defined $expect ) { >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:770): >770: release $ctx, $self->cmp_ok( $got, 'eq', $expect, $name ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:902): >902: my( $self, $got, $type, $expect, $name ) = @_; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:903): >903: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:905): >905: if ($cmp_ok_bl{$type}) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:909): >909: my ($test, $succ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:916): >916: my($pack, $file, $line) = $ctx->trace->call(); >Test2::Util::HashBase::CODE(0x5636afa29ca8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Util/HashBase.pm:72): >72: $attr => sub { $_[0]->{$attr} }, >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:919): >919: $succ = eval qq[ >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:100): >100: >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:101): >101: >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:924): >924: $error = $@; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:926): >926: local $Level = $Level + 1; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:927): >927: my $ok = $self->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 20 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:932): >932: = $numeric_cmps{$type} >933: ? '_unoverload_num' >934: : '_unoverload_str'; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:936): >936: $self->diag(<<"END") unless $succ; >937: An error occurred while using $type: >938: ------------------------------------ >939: $error >940: ------------------------------------ >941: END >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:943): >943: unless($ok) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:969): >969: return release $ctx, $ok; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::(t/CairoSurface.t:103): $surf->set_device_offset (23, 42); >main::(t/CairoSurface.t:106): skip 'new stuff', 2 >main::(t/CairoSurface.t:107): unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 2, 0); >main::(t/CairoSurface.t:106): skip 'new stuff', 2 >main::(t/CairoSurface.t:107): unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 2, 0); >Cairo::VERSION(blib/lib/Cairo.pm:28): >28: if (scalar @_ == 2) { >Cairo::VERSION(blib/lib/Cairo.pm:31): >31: Cairo::LIB_VERSION (@_); >main::(t/CairoSurface.t:109): is_deeply ([$surf->get_device_offset], [23, 42]); >Test::More::is_deeply(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1100): >1100: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::is_deeply(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1102): >1102: unless( @_ == 2 or @_ == 3 ) { >Test::More::is_deeply(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1115): >1115: my( $got, $expected, $name ) = @_; >Test::More::is_deeply(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1117): >1117: $tb->_unoverload_str( \$expected, \$got ); >Test::Builder::_unoverload_str(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:724): >724: my $self = shift; >Test::Builder::_unoverload_str(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:726): >726: $self->_unoverload( q[""], $_ ) for @_; >Test::Builder::_unoverload(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:711): >711: my ($self, $type, $thing) = @_; >Test::Builder::_unoverload(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:713): >713: return unless ref $$thing; >Test::Builder::_unoverload(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:714): >714: return unless blessed($$thing) || scalar $self->_try(sub{ $$thing->isa('UNIVERSAL') }); >715: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1579): >1579: my( $self, $code, %opts ) = @_; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1581): >1581: my $error; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1582): >1582: my $return; >1583: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1585): >1585: local $@; # don't set $@ in the test >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1586): >1586: local $SIG{__DIE__}; # don't trip an outside DIE handler. >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::Builder::CODE(0x5636b002eb28)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:714): >714: return unless blessed($$thing) || scalar $self->_try(sub{ $$thing->isa('UNIVERSAL') }); >715: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1588): >1588: $error = $@; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1591): >1591: die $error if $error and $opts{die_on_fail}; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1593): >1593: return wantarray ? ( $return, $error ) : $return; >Test::Builder::_unoverload(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:711): >711: my ($self, $type, $thing) = @_; >Test::Builder::_unoverload(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:713): >713: return unless ref $$thing; >Test::Builder::_unoverload(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:714): >714: return unless blessed($$thing) || scalar $self->_try(sub{ $$thing->isa('UNIVERSAL') }); >715: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1579): >1579: my( $self, $code, %opts ) = @_; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1581): >1581: my $error; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1582): >1582: my $return; >1583: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1585): >1585: local $@; # don't set $@ in the test >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1586): >1586: local $SIG{__DIE__}; # don't trip an outside DIE handler. >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::Builder::CODE(0x5636b0031c28)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:714): >714: return unless blessed($$thing) || scalar $self->_try(sub{ $$thing->isa('UNIVERSAL') }); >715: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1588): >1588: $error = $@; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1591): >1591: die $error if $error and $opts{die_on_fail}; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1593): >1593: return wantarray ? ( $return, $error ) : $return; >Test::More::is_deeply(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1119): >1119: my $ok; >Test::More::is_deeply(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1120): >1120: if( !ref $got and !ref $expected ) { # neither is a reference >Test::More::is_deeply(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1128): >1128: local @Data_Stack = (); >Test::More::is_deeply(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1129): >1129: if( _deep_check( $got, $expected ) ) { >Test::More::_deep_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1574): >1574: my( $e1, $e2 ) = @_; >Test::More::_deep_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1575): >1575: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::_deep_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1577): >1577: my $ok = 0; >Test::More::_deep_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1582): >1582: local %Refs_Seen = %Refs_Seen; >Test::More::_deep_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1585): >1585: $tb->_unoverload_str( \$e1, \$e2 ); >Test::More::_deep_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1585): >1585: $tb->_unoverload_str( \$e1, \$e2 ); >Test::Builder::_unoverload_str(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:724): >724: my $self = shift; >Test::Builder::_unoverload_str(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:726): >726: $self->_unoverload( q[""], $_ ) for @_; >Test::Builder::_unoverload(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:711): >711: my ($self, $type, $thing) = @_; >Test::Builder::_unoverload(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:713): >713: return unless ref $$thing; >Test::Builder::_unoverload(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:714): >714: return unless blessed($$thing) || scalar $self->_try(sub{ $$thing->isa('UNIVERSAL') }); >715: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1579): >1579: my( $self, $code, %opts ) = @_; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1581): >1581: my $error; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1582): >1582: my $return; >1583: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1585): >1585: local $@; # don't set $@ in the test >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1586): >1586: local $SIG{__DIE__}; # don't trip an outside DIE handler. >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::Builder::CODE(0x5636b004d188)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:714): >714: return unless blessed($$thing) || scalar $self->_try(sub{ $$thing->isa('UNIVERSAL') }); >715: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1588): >1588: $error = $@; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1591): >1591: die $error if $error and $opts{die_on_fail}; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1593): >1593: return wantarray ? ( $return, $error ) : $return; >Test::Builder::_unoverload(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:711): >711: my ($self, $type, $thing) = @_; >Test::Builder::_unoverload(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:713): >713: return unless ref $$thing; >Test::Builder::_unoverload(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:714): >714: return unless blessed($$thing) || scalar $self->_try(sub{ $$thing->isa('UNIVERSAL') }); >715: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1579): >1579: my( $self, $code, %opts ) = @_; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1581): >1581: my $error; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1582): >1582: my $return; >1583: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1585): >1585: local $@; # don't set $@ in the test >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1586): >1586: local $SIG{__DIE__}; # don't trip an outside DIE handler. >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::Builder::CODE(0x5636b002c7f8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:714): >714: return unless blessed($$thing) || scalar $self->_try(sub{ $$thing->isa('UNIVERSAL') }); >715: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1588): >1588: $error = $@; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1591): >1591: die $error if $error and $opts{die_on_fail}; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1593): >1593: return wantarray ? ( $return, $error ) : $return; >Test::More::_deep_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1588): >1588: my $same_ref = !( !ref $e1 xor !ref $e2 ); >Test::More::_deep_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1589): >1589: my $not_ref = ( !ref $e1 and !ref $e2 ); >Test::More::_deep_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1591): >1591: if( defined $e1 xor defined $e2 ) { >Test::More::_dne(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1095): >1095: return ref $_[0] eq ref $DNE; >Test::More::_dne(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1095): >1095: return ref $_[0] eq ref $DNE; >Test::More::_deep_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1609): >1609: if( $Refs_Seen{$e1} ) { >Test::More::_deep_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1613): >1613: $Refs_Seen{$e1} = "$e2"; >Test::More::_deep_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1616): >1616: my $type = _type($e1); >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1185): >1185: my $thing = shift; >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1187): >1187: return '' if !ref $thing; >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1189): >1189: for my $type (qw(Regexp ARRAY HASH REF SCALAR GLOB CODE VSTRING)) { >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1190): >1190: return $type if UNIVERSAL::isa( $thing, $type ); >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1190): >1190: return $type if UNIVERSAL::isa( $thing, $type ); >Test::More::_deep_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1617): >1617: $type = 'DIFFERENT' unless _type($e2) eq $type; >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1185): >1185: my $thing = shift; >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1187): >1187: return '' if !ref $thing; >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1189): >1189: for my $type (qw(Regexp ARRAY HASH REF SCALAR GLOB CODE VSTRING)) { >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1190): >1190: return $type if UNIVERSAL::isa( $thing, $type ); >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1190): >1190: return $type if UNIVERSAL::isa( $thing, $type ); >Test::More::_deep_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1619): >1619: if( $type eq 'DIFFERENT' ) { >Test::More::_deep_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1624): >1624: $ok = _eq_array( $e1, $e2 ); >Test::More::_eq_array(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1531): >1531: my( $a1, $a2 ) = @_; >Test::More::_eq_array(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1533): >1533: if( grep _type($_) ne 'ARRAY', $a1, $a2 ) { >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1185): >1185: my $thing = shift; >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1187): >1187: return '' if !ref $thing; >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1189): >1189: for my $type (qw(Regexp ARRAY HASH REF SCALAR GLOB CODE VSTRING)) { >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1190): >1190: return $type if UNIVERSAL::isa( $thing, $type ); >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1190): >1190: return $type if UNIVERSAL::isa( $thing, $type ); >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1185): >1185: my $thing = shift; >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1187): >1187: return '' if !ref $thing; >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1189): >1189: for my $type (qw(Regexp ARRAY HASH REF SCALAR GLOB CODE VSTRING)) { >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1190): >1190: return $type if UNIVERSAL::isa( $thing, $type ); >Test::More::_type(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1190): >1190: return $type if UNIVERSAL::isa( $thing, $type ); >Test::More::_eq_array(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1538): >1538: return 1 if $a1 eq $a2; >Test::More::_eq_array(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1540): >1540: my $ok = 1; >Test::More::_eq_array(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1541): >1541: my $max = $#$a1 > $#$a2 ? $#$a1 : $#$a2; >Test::More::_eq_array(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1542): >1542: for( 0 .. $max ) { >Test::More::_eq_array(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1543): >1543: my $e1 = $_ > $#$a1 ? $DNE : $a1->[$_]; >Test::More::_eq_array(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1544): >1544: my $e2 = $_ > $#$a2 ? $DNE : $a2->[$_]; >Test::More::_eq_array(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1546): >1546: next if _equal_nonrefs($e1, $e2); >Test::More::_equal_nonrefs(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1559): >1559: my( $e1, $e2 ) = @_; >Test::More::_equal_nonrefs(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1561): >1561: return if ref $e1 or ref $e2; >Test::More::_equal_nonrefs(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1563): >1563: if ( defined $e1 ) { >Test::More::_equal_nonrefs(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1564): >1564: return 1 if defined $e2 and $e1 eq $e2; >Test::More::_eq_array(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1543): >1543: my $e1 = $_ > $#$a1 ? $DNE : $a1->[$_]; >Test::More::_eq_array(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1544): >1544: my $e2 = $_ > $#$a2 ? $DNE : $a2->[$_]; >Test::More::_eq_array(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1546): >1546: next if _equal_nonrefs($e1, $e2); >Test::More::_equal_nonrefs(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1559): >1559: my( $e1, $e2 ) = @_; >Test::More::_equal_nonrefs(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1561): >1561: return if ref $e1 or ref $e2; >Test::More::_equal_nonrefs(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1563): >1563: if ( defined $e1 ) { >Test::More::_equal_nonrefs(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1564): >1564: return 1 if defined $e2 and $e1 eq $e2; >Test::More::_eq_array(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1555): >1555: return $ok; >Test::More::_deep_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1649): >1649: return $ok; >Test::More::is_deeply(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1130): >1130: $ok = $tb->ok( 1, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 21 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::More::is_deeply(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:1138): >1138: return $ok; >main::(t/CairoSurface.t:111): $surf->set_fallback_resolution (72, 72); >main::(t/CairoSurface.t:113): is ($surf->get_type, 'image'); >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:401): >401: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:403): >403: return $tb->is_eq(@_); >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:754): >754: my( $self, $got, $expect, $name ) = @_; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:756): >756: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:758): >758: local $Level = $Level + 1; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:760): >760: if( !defined $got || !defined $expect ) { >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:770): >770: release $ctx, $self->cmp_ok( $got, 'eq', $expect, $name ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:902): >902: my( $self, $got, $type, $expect, $name ) = @_; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:903): >903: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:905): >905: if ($cmp_ok_bl{$type}) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:909): >909: my ($test, $succ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:916): >916: my($pack, $file, $line) = $ctx->trace->call(); >Test2::Util::HashBase::CODE(0x5636afa29ca8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Util/HashBase.pm:72): >72: $attr => sub { $_[0]->{$attr} }, >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:919): >919: $succ = eval qq[ >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:113): >113: >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:114): >114: >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:924): >924: $error = $@; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:926): >926: local $Level = $Level + 1; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:927): >927: my $ok = $self->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 22 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:932): >932: = $numeric_cmps{$type} >933: ? '_unoverload_num' >934: : '_unoverload_str'; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:936): >936: $self->diag(<<"END") unless $succ; >937: An error occurred while using $type: >938: ------------------------------------ >939: $error >940: ------------------------------------ >941: END >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:943): >943: unless($ok) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:969): >969: return release $ctx, $ok; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::(t/CairoSurface.t:116): is ($surf->status, 'success'); >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:401): >401: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:403): >403: return $tb->is_eq(@_); >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:754): >754: my( $self, $got, $expect, $name ) = @_; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:756): >756: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:758): >758: local $Level = $Level + 1; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:760): >760: if( !defined $got || !defined $expect ) { >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:770): >770: release $ctx, $self->cmp_ok( $got, 'eq', $expect, $name ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:902): >902: my( $self, $got, $type, $expect, $name ) = @_; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:903): >903: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:905): >905: if ($cmp_ok_bl{$type}) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:909): >909: my ($test, $succ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:916): >916: my($pack, $file, $line) = $ctx->trace->call(); >Test2::Util::HashBase::CODE(0x5636afa29ca8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Util/HashBase.pm:72): >72: $attr => sub { $_[0]->{$attr} }, >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:919): >919: $succ = eval qq[ >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:116): >116: >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:117): >117: >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:924): >924: $error = $@; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:926): >926: local $Level = $Level + 1; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:927): >927: my $ok = $self->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 23 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:932): >932: = $numeric_cmps{$type} >933: ? '_unoverload_num' >934: : '_unoverload_str'; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:936): >936: $self->diag(<<"END") unless $succ; >937: An error occurred while using $type: >938: ------------------------------------ >939: $error >940: ------------------------------------ >941: END >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:943): >943: unless($ok) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:969): >969: return release $ctx, $ok; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::(t/CairoSurface.t:118): isa_ok ($surf->get_font_options, 'Cairo::FontOptions'); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:608): >608: my( $thing, $class, $thing_name ) = @_; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:609): >609: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:611): >611: my $whatami; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:612): >612: if( !defined $thing ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:616): >616: $whatami = 'reference'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:618): >618: local($@,$!); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:619): >619: require Scalar::Util; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:620): >620: if( Scalar::Util::blessed($thing) ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:621): >621: $whatami = 'object'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1579): >1579: my( $self, $code, %opts ) = @_; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1581): >1581: my $error; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1582): >1582: my $return; >1583: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1585): >1585: local $@; # don't set $@ in the test >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1586): >1586: local $SIG{__DIE__}; # don't trip an outside DIE handler. >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::More::CODE(0x5636b002d380)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1588): >1588: $error = $@; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1591): >1591: die $error if $error and $opts{die_on_fail}; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1593): >1593: return wantarray ? ( $return, $error ) : $return; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:631): >631: if($error) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:640): >640: if( $whatami eq 'reference' ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:644): >644: my($diag, $name); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:645): >645: if( defined $thing_name ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:650): >650: my $my_class = ref $thing; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:651): >651: $thing_name = qq[An object of class '$my_class']; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:652): >652: $name = "$thing_name isa '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:653): >653: $diag = "The object of class '$my_class' isn't a '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:675): >675: my $ok; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:676): >676: if($rslt) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:677): >677: $ok = $tb->ok( 1, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 24 - An object of class 'Cairo::FontOptions' isa 'Cairo::FontOptions' >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:684): >684: return $ok; >main::(t/CairoSurface.t:120): $surf->mark_dirty; >main::(t/CairoSurface.t:121): $surf->mark_dirty_rectangle (10, 10, 10, 10); >main::(t/CairoSurface.t:122): $surf->flush; >main::(t/CairoSurface.t:125): skip 'new stuff', 1 >main::(t/CairoSurface.t:126): unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 6, 0); >main::(t/CairoSurface.t:125): skip 'new stuff', 1 >main::(t/CairoSurface.t:126): unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 6, 0); >Cairo::VERSION(blib/lib/Cairo.pm:28): >28: if (scalar @_ == 2) { >Cairo::VERSION(blib/lib/Cairo.pm:31): >31: Cairo::LIB_VERSION (@_); >main::(t/CairoSurface.t:128): $surf->copy_page; >main::(t/CairoSurface.t:129): $surf->show_page; >main::(t/CairoSurface.t:131): like (Cairo::Format::stride_for_width ('argb32', 23), qr/\A\d+\z/); >Test::More::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:446): >446: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:448): >448: return $tb->like(@_); >Test::Builder::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:878): >878: my( $self, $thing, $regex, $name ) = @_; >Test::Builder::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:879): >879: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:881): >881: local $Level = $Level + 1; >Test::Builder::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:883): >883: release $ctx, $self->_regex_ok( $thing, $regex, '=~', $name ); >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1096): >1096: my( $self, $thing, $regex, $cmp, $name ) = @_; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1098): >1098: my $ok = 0; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1099): >1099: my $usable_regex = $self->maybe_regex($regex); >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1064): >1064: my( $self, $regex ) = @_; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1065): >1065: my $usable_regex = undef; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1067): >1067: return $usable_regex unless defined $regex; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1069): >1069: my( $re, $opts ); >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1072): >1072: if( _is_qr($regex) ) { >Test::Builder::_is_qr(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1087): >1087: my $regex = shift; >Test::Builder::_is_qr(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1091): >1091: return re::is_regexp($regex) if defined &re::is_regexp; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1073): >1073: $usable_regex = $regex; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1083): >1083: return $usable_regex; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1100): >1100: unless( defined $usable_regex ) { >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1108): >1108: my $test; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1108): >1108: my $test; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1109): >1109: my $context = $self->_caller_context; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:987): >987: my $self = shift; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:989): >989: my( $pack, $file, $line ) = $self->caller(1); >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1568): >1568: my( $self ) = @_; >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1570): >1570: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1572): >1572: my $trace = $ctx->trace; >Test2::Util::HashBase::CODE(0x5636afa29ca8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Util/HashBase.pm:72): >72: $attr => sub { $_[0]->{$attr} }, >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1573): >1573: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1574): >1574: return wantarray ? $trace->call : $trace->package; >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:991): >991: my $code = ''; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:992): >992: $code .= "#line $line $file\n" if defined $file and defined $line; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:994): >994: return $code; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1114): >1114: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1114): >1114: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1119): >1119: $test = eval $context . q{$test = $thing =~ /$usable_regex/ ? 1 : 0}; >Test::Builder::_regex_ok(t/CairoSurface.t:131): >131: like (Cairo::Format::stride_for_width ('argb32', 23), qr/\A\d+\z/); >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1122): >1122: $test = !$test if $cmp eq '!~'; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1124): >1124: local $Level = $Level + 1; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1125): >1125: $ok = $self->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 25 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1128): >1128: unless($ok) { >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1140): >1140: return $ok; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::(t/CairoSurface.t:135): skip 'new stuff', 2 >main::(t/CairoSurface.t:136): unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 8, 0); >main::(t/CairoSurface.t:135): skip 'new stuff', 2 >main::(t/CairoSurface.t:136): unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 8, 0); >Cairo::VERSION(blib/lib/Cairo.pm:28): >28: if (scalar @_ == 2) { >Cairo::VERSION(blib/lib/Cairo.pm:31): >31: Cairo::LIB_VERSION (@_); >main::(t/CairoSurface.t:138): $surf->set_fallback_resolution (72, 72); >main::(t/CairoSurface.t:139): delta_ok ([$surf->get_fallback_resolution], [72, 72]); >Test::Number::Delta::delta_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:293): >293: my ( $p, $q, $name ) = @_; >294: { >Test::Number::Delta::delta_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:295): >295: local $Test::Builder::Level = $Test::Builder::Level + 1; >Test::Number::Delta::delta_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:295): >295: local $Test::Builder::Level = $Test::Builder::Level + 1; >Test::Number::Delta::delta_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:296): >296: _delta_within( $p, $q, undef, $name ); >Test::Number::Delta::_delta_within(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:269): >269: my ( $p, $q, $epsilon, $name ) = @_; >Test::Number::Delta::_delta_within(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:270): >270: my ( $ok, $diag, @indices ) = _check( $p, $q, $epsilon, $name ); >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:151): >151: my ( $p, $q, $e, $name, @indices ) = @_; >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:152): >152: my $epsilon; >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:154): >154: if ( !defined $e ) { >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:155): >155: $epsilon = >156: $Relative >157: ? $Relative * ( abs($p) > abs($q) ? abs($p) : abs($q) ) >158: : $Epsilon; >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:164): >164: my ( $ok, $diag ) = ( 1, q{} ); # assume true >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:165): >165: if ( ref $p eq 'ARRAY' || ref $q eq 'ARRAY' ) { >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:166): >166: if ( @$p == @$q ) { >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:167): >167: for my $i ( 0 .. $#{$p} ) { >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:167): >167: for my $i ( 0 .. $#{$p} ) { >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:168): >168: my @new_indices; >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:169): >169: ( $ok, $diag, @new_indices ) = >170: _check( $p->[$i], $q->[$i], $e, $name, scalar @indices ? @indices : (), $i, ); >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:151): >151: my ( $p, $q, $e, $name, @indices ) = @_; >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:152): >152: my $epsilon; >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:154): >154: if ( !defined $e ) { >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:155): >155: $epsilon = >156: $Relative >157: ? $Relative * ( abs($p) > abs($q) ? abs($p) : abs($q) ) >158: : $Epsilon; >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:164): >164: my ( $ok, $diag ) = ( 1, q{} ); # assume true >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:165): >165: if ( ref $p eq 'ARRAY' || ref $q eq 'ARRAY' ) { >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:187): >187: $ok = $p == $q || abs( $p - $q ) < $epsilon; >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:188): >188: if ( !$ok ) { >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:194): >194: return ( $ok, $diag, scalar(@indices) ? @indices : () ); >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:171): >171: if ( not $ok ) { >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:168): >168: my @new_indices; >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:169): >169: ( $ok, $diag, @new_indices ) = >170: _check( $p->[$i], $q->[$i], $e, $name, scalar @indices ? @indices : (), $i, ); >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:151): >151: my ( $p, $q, $e, $name, @indices ) = @_; >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:152): >152: my $epsilon; >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:154): >154: if ( !defined $e ) { >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:155): >155: $epsilon = >156: $Relative >157: ? $Relative * ( abs($p) > abs($q) ? abs($p) : abs($q) ) >158: : $Epsilon; >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:164): >164: my ( $ok, $diag ) = ( 1, q{} ); # assume true >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:165): >165: if ( ref $p eq 'ARRAY' || ref $q eq 'ARRAY' ) { >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:187): >187: $ok = $p == $q || abs( $p - $q ) < $epsilon; >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:188): >188: if ( !$ok ) { >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:194): >194: return ( $ok, $diag, scalar(@indices) ? @indices : () ); >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:171): >171: if ( not $ok ) { >Test::Number::Delta::_check(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:194): >194: return ( $ok, $diag, scalar(@indices) ? @indices : () ); >Test::Number::Delta::_delta_within(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:271): >271: if (@indices) { >Test::Number::Delta::_delta_within(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Number/Delta.pm:274): >274: return $Test->ok( $ok, $name ) || $Test->diag($diag); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 26 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::(t/CairoSurface.t:141): ok (defined $surf->has_show_text_glyphs); >Test::More::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:318): >318: my( $test, $name ) = @_; >Test::More::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:319): >319: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:321): >321: return $tb->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 27 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::(t/CairoSurface.t:145): skip 'new stuff', 1 >main::(t/CairoSurface.t:146): unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 10, 0); >main::(t/CairoSurface.t:145): skip 'new stuff', 1 >main::(t/CairoSurface.t:146): unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 10, 0); >Cairo::VERSION(blib/lib/Cairo.pm:28): >28: if (scalar @_ == 2) { >Cairo::VERSION(blib/lib/Cairo.pm:31): >31: Cairo::LIB_VERSION (@_); >main::(t/CairoSurface.t:148): my $rect_surf = Cairo::Surface->create_for_rectangle ($surf, 0, 0, 10, 10); >main::(t/CairoSurface.t:149): isa_ok ($rect_surf, 'Cairo::Surface'); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:608): >608: my( $thing, $class, $thing_name ) = @_; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:609): >609: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:611): >611: my $whatami; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:612): >612: if( !defined $thing ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:616): >616: $whatami = 'reference'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:618): >618: local($@,$!); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:619): >619: require Scalar::Util; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:620): >620: if( Scalar::Util::blessed($thing) ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:621): >621: $whatami = 'object'; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1579): >1579: my( $self, $code, %opts ) = @_; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1581): >1581: my $error; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1582): >1582: my $return; >1583: { >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1584): >1584: local $!; # eval can mess up $! >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1585): >1585: local $@; # don't set $@ in the test >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1586): >1586: local $SIG{__DIE__}; # don't trip an outside DIE handler. >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1587): >1587: $return = eval { $code->() }; >Test::More::CODE(0x5636b004dc50)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:629): >629: my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } ); >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1588): >1588: $error = $@; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1591): >1591: die $error if $error and $opts{die_on_fail}; >Test::Builder::_try(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1593): >1593: return wantarray ? ( $return, $error ) : $return; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:631): >631: if($error) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:640): >640: if( $whatami eq 'reference' ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:644): >644: my($diag, $name); >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:645): >645: if( defined $thing_name ) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:650): >650: my $my_class = ref $thing; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:651): >651: $thing_name = qq[An object of class '$my_class']; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:652): >652: $name = "$thing_name isa '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:653): >653: $diag = "The object of class '$my_class' isn't a '$class'"; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:675): >675: my $ok; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:676): >676: if($rslt) { >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:677): >677: $ok = $tb->ok( 1, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 28 - An object of class 'Cairo::ImageSurface' isa 'Cairo::Surface' >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::More::isa_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:684): >684: return $ok; >main::(t/CairoSurface.t:152): $surf->finish; >main::(t/CairoSurface.t:165): skip 'png surface', 16 >main::(t/CairoSurface.t:166): unless Cairo::HAS_PNG_FUNCTIONS; >main::(t/CairoSurface.t:165): skip 'png surface', 16 >main::(t/CairoSurface.t:166): unless Cairo::HAS_PNG_FUNCTIONS; >main::(t/CairoSurface.t:168): my $surf = Cairo::ImageSurface->create ('rgb24', IMG_WIDTH, IMG_HEIGHT); >main::(t/CairoSurface.t:169): clear ($surf); >main::clear(t/CairoSurface.t:157): if (Cairo::VERSION() < Cairo::VERSION_ENCODE (1, 2, 0)) { >Cairo::VERSION(blib/lib/Cairo.pm:28): >28: if (scalar @_ == 2) { >Cairo::VERSION(blib/lib/Cairo.pm:31): >31: Cairo::LIB_VERSION (@_); >main::(t/CairoSurface.t:170): is ($surf->write_to_png ('tmp.png'), 'success'); >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:401): >401: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:403): >403: return $tb->is_eq(@_); >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:754): >754: my( $self, $got, $expect, $name ) = @_; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:756): >756: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:758): >758: local $Level = $Level + 1; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:760): >760: if( !defined $got || !defined $expect ) { >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:770): >770: release $ctx, $self->cmp_ok( $got, 'eq', $expect, $name ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:902): >902: my( $self, $got, $type, $expect, $name ) = @_; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:903): >903: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:905): >905: if ($cmp_ok_bl{$type}) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:909): >909: my ($test, $succ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:916): >916: my($pack, $file, $line) = $ctx->trace->call(); >Test2::Util::HashBase::CODE(0x5636afa29ca8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Util/HashBase.pm:72): >72: $attr => sub { $_[0]->{$attr} }, >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:919): >919: $succ = eval qq[ >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:170): >170: >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:171): >171: >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:924): >924: $error = $@; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:926): >926: local $Level = $Level + 1; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:927): >927: my $ok = $self->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 29 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:932): >932: = $numeric_cmps{$type} >933: ? '_unoverload_num' >934: : '_unoverload_str'; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:936): >936: $self->diag(<<"END") unless $succ; >937: An error occurred while using $type: >938: ------------------------------------ >939: $error >940: ------------------------------------ >941: END >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:943): >943: unless($ok) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:969): >969: return release $ctx, $ok; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::(t/CairoSurface.t:177): }, 'blub'), 'no-memory'); >main::CODE(0x5636b005efc8)(t/CairoSurface.t:173): >173: my ($closure, $data) = @_; >main::CODE(0x5636b005efc8)(t/CairoSurface.t:174): >174: is ($closure, 'blub'); >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:401): >401: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::is(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:403): >403: return $tb->is_eq(@_); >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:754): >754: my( $self, $got, $expect, $name ) = @_; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:756): >756: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:758): >758: local $Level = $Level + 1; >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:760): >760: if( !defined $got || !defined $expect ) { >Test::Builder::is_eq(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:770): >770: release $ctx, $self->cmp_ok( $got, 'eq', $expect, $name ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:902): >902: my( $self, $got, $type, $expect, $name ) = @_; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:903): >903: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:905): >905: if ($cmp_ok_bl{$type}) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:909): >909: my ($test, $succ); >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:914): >914: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:916): >916: my($pack, $file, $line) = $ctx->trace->call(); >Test2::Util::HashBase::CODE(0x5636afa29ca8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Util/HashBase.pm:72): >72: $attr => sub { $_[0]->{$attr} }, >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:919): >919: $succ = eval qq[ >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:174): >174: >Test::Builder::cmp_ok((eval in cmp_ok) t/CairoSurface.t:175): >175: >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:924): >924: $error = $@; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:926): >926: local $Level = $Level + 1; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:927): >927: my $ok = $self->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 30 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:932): >932: = $numeric_cmps{$type} >933: ? '_unoverload_num' >934: : '_unoverload_str'; >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:936): >936: $self->diag(<<"END") unless $succ; >937: An error occurred while using $type: >938: ------------------------------------ >939: $error >940: ------------------------------------ >941: END >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:943): >943: unless($ok) { >Test::Builder::cmp_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:969): >969: return release $ctx, $ok; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::CODE(0x5636b005efc8)(t/CairoSurface.t:175): >175: like ($data, qr/PNG/); >Test::More::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:446): >446: my $tb = Test::More->builder; >Test::Builder::Module::builder(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder/Module.pm:172): >172: return Test::Builder->new; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:97): >97: my($class) = shift; >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:98): >98: unless($Test) { >Test::Builder::new(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:118): >118: return $Test; >Test::More::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/More.pm:448): >448: return $tb->like(@_); >Test::Builder::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:878): >878: my( $self, $thing, $regex, $name ) = @_; >Test::Builder::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:879): >879: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:325): >325: if ($current) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:351): >351: 'Test2::EventFacet::Trace' >352: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:356): >356: my $aborted = 0; >357: $current = bless( >358: { >359: _aborted => \$aborted, >360: stack => $stack, >361: hub => $hub, >362: trace => $trace, >363: _is_canon => 1, >364: _depth => $depth, >365: errno => $errno, >366: eval_error => $eval_error, >367: child_error => $child_error, >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:368): >368: $params{on_release} ? (_on_release => [$params{on_release}]) : (), >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:373): >373: $CONTEXTS->{$hid} = $current; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:374): >374: weaken($CONTEXTS->{$hid}); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:376): >376: $_->($current) for @$INIT_CBS; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:377): >377: map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:379): >379: $params{on_init}->($current) if $params{on_init}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:381): >381: ($!, $@, $?) = ($errno, $eval_error, $child_error); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:383): >383: return $current; >Test::Builder::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:881): >881: local $Level = $Level + 1; >Test::Builder::like(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:883): >883: release $ctx, $self->_regex_ok( $thing, $regex, '=~', $name ); >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1096): >1096: my( $self, $thing, $regex, $cmp, $name ) = @_; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1098): >1098: my $ok = 0; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1099): >1099: my $usable_regex = $self->maybe_regex($regex); >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1064): >1064: my( $self, $regex ) = @_; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1065): >1065: my $usable_regex = undef; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1067): >1067: return $usable_regex unless defined $regex; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1069): >1069: my( $re, $opts ); >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1072): >1072: if( _is_qr($regex) ) { >Test::Builder::_is_qr(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1087): >1087: my $regex = shift; >Test::Builder::_is_qr(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1091): >1091: return re::is_regexp($regex) if defined &re::is_regexp; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1073): >1073: $usable_regex = $regex; >Test::Builder::maybe_regex(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1083): >1083: return $usable_regex; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1100): >1100: unless( defined $usable_regex ) { >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1108): >1108: my $test; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1108): >1108: my $test; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1109): >1109: my $context = $self->_caller_context; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:987): >987: my $self = shift; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:989): >989: my( $pack, $file, $line ) = $self->caller(1); >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1568): >1568: my( $self ) = @_; >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1570): >1570: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1572): >1572: my $trace = $ctx->trace; >Test2::Util::HashBase::CODE(0x5636afa29ca8)(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Util/HashBase.pm:72): >72: $attr => sub { $_[0]->{$attr} }, >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1573): >1573: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::caller(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1574): >1574: return wantarray ? $trace->call : $trace->package; >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::EventFacet::Trace::call(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/EventFacet/Trace.pm:69): >69: sub call { @{$_[0]->{+FRAME}} } >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:991): >991: my $code = ''; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:992): >992: $code .= "#line $line $file\n" if defined $file and defined $line; >Test::Builder::_caller_context(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:994): >994: return $code; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1114): >1114: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1114): >1114: local( $@, $!, $SIG{__DIE__} ); # isolate eval >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1119): >1119: $test = eval $context . q{$test = $thing =~ /$usable_regex/ ? 1 : 0}; >Test::Builder::_regex_ok(t/CairoSurface.t:175): >175: like ($data, qr/PNG/); >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1122): >1122: $test = !$test if $cmp eq '!~'; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1124): >1124: local $Level = $Level + 1; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1125): >1125: $ok = $self->ok( $test, $name ); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:625): >625: my( $self, $test, $name ) = @_; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:627): >627: my $ctx = $self->ctx; >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:144): >144: my $self = shift; >145: context( >Test::Builder::ctx(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:151): >151: wrapped => 1, >152: @_ >153: ); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:270): >270: my ($errno, $eval_error, $child_error) = (0 + $!, $@, $?); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:272): >272: my %params = (level => 0, wrapped => 0, @_); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:276): >276: $INST->load unless $INST->{loaded}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:278): >278: croak "context() called, but return value is ignored" >279: unless defined wantarray; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:281): >281: my $stack = $params{stack} || $STACK; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:282): >282: my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:283): >283: my $hid = $hub->{hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:284): >284: my $current = $CONTEXTS->{$hid}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:286): >286: $_->(\%params) for @$ACQUIRE_CBS; >Test::Builder::CODE(0x5636af5a5a58)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:112): >112: Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 }); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:287): >287: map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:291): >291: my $phase = ${^GLOBAL_PHASE} || 'NA'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:292): >292: my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT'; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:294): >294: my $level = 1 + $params{level}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:295): >295: my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:296): >296: unless ($pkg || $end_phase) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:301): >301: my $depth = $level; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:302): >302: $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1); >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:303): >303: $depth -= $params{wrapped}; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:304): >304: my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth; >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:306): >306: if ($current && $params{on_release} && $depth_ok) { >Test2::API::context(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:312): >312: ($!, $@, $?) = ($errno, $eval_error, $child_error) and return bless( >313: { >314: %$current, >315: _is_canon => undef, >316: errno => $errno, >317: eval_error => $eval_error, >318: child_error => $child_error, >319: _is_spawn => [$pkg, $file, $line, $sub], >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:631): >631: $test = $test ? 1 : 0; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:635): >635: $name = "$name" if defined $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:639): >639: $self->diag(<<" ERR") if 0 + $name && $name =~ /^[\d\s]+$/; >640: You named your test '$name'. You shouldn't use numbers for your test names. >641: Very confusing. >642: ERR >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:645): >645: my $trace = $ctx->{trace}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:646): >646: my $hub = $ctx->{hub}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:648): >648: my $result = { >649: ok => $test, >650: actual_ok => $test, >651: reason => '', >652: type => '', >653: (name => defined($name) ? $name : ''), >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:656): >656: $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:658): >658: my $orig_name = $name; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:660): >660: my @attrs; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:661): >661: my $subevents = delete $self->{subevents}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:662): >662: my $subtest_id = delete $self->{subtest_id}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:663): >663: my $subtest_buffered = delete $self->{subtest_buffered}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:664): >664: my $epkg = 'Test2::Event::Ok'; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:665): >665: if ($subevents) { >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:670): >670: my $e = bless { >671: trace => bless( {%$trace}, 'Test2::EventFacet::Trace'), >672: pass => $test, >673: name => $name, >674: _meta => {'Test::Builder' => $result}, >675: effective_pass => $test, >676: @attrs, >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:678): >678: $hub->send($e); >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:272): >272: my $self = shift; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:273): >273: my ($e) = @_; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:275): >275: if ($self->{+_PRE_FILTERS}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:276): >276: for (@{$self->{+_PRE_FILTERS}}) { >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:277): >277: $e = $_->{code}->($self, $e); >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:56): >56: my ($active_hub, $e) = @_; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:58): >58: my $epkg = $$epkgr; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:59): >59: my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:63): >63: my $todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:64): >64: $todo = ${"$cpkg\::TODO"} if $cpkg; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:65): >65: $todo = ${"$epkg\::TODO"} if $epkg && !$todo; >Test::Builder::CODE(0x5636afc11300)(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:67): >67: return $e unless $todo; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:278): >278: return unless $e; >Test2::Hub::send(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:282): >282: my $ipc = $self->{+IPC} || return $self->process($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:296): >296: my $self = shift; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:297): >297: my ($e) = @_; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:299): >299: if ($self->{+_FILTERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:307): >307: my $type = ref($e); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:308): >308: if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:309): >309: my $count = ++($self->{+COUNT}); >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:310): >310: $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER}; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:80): >80: my ($self, $e, $num, $f) = @_; >Test2::Formatter::TAP::write(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:83): >83: return if $self->print_optimal_pass($e, $num); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:119): >119: my ($self, $e, $num) = @_; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:121): >121: my $type = ref($e); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:124): >124: return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:127): >127: return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo}); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:130): >130: return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#')); >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:132): >132: my $ok = 'ok'; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:133): >133: $ok .= " $num" if $num && !$self->{+NO_NUMBERS}; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:134): >134: $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n"; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:136): >136: if (my $nesting = $e->{trace}->{nested}) { >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:141): >141: my $io = $self->{+HANDLES}->[OUT_STD]; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:143): >143: local($\, $,) = (undef, '') if $\ || $,; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:144): >144: print $io $ok; >ok 31 >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:145): >145: $self->{+_LAST_FH} = $io; >Test2::Formatter::TAP::print_optimal_pass(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Formatter/TAP.pm:147): >147: return 1; >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:312): >312: if ($self->{+_LISTENERS}) { >Test2::Hub::process(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/Hub.pm:316): >316: return $e; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:680): >680: $self->_ok_debug($trace, $orig_name) unless($test); >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:682): >682: $ctx->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test::Builder::ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:683): >683: return $test; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1128): >1128: unless($ok) { >Test::Builder::_regex_ok(/usr/lib64/perl5/vendor_perl/5.26.1/Test/Builder.pm:1140): >1140: return $ok; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:432): >432: $_[0]->release; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:115): >115: my ($self) = @_; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:117): >117: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:120): >120: if $self->{+_IS_SPAWN}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:123): >123: unless $self->{+_IS_CANON}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:125): >125: my $hub = $self->{+HUB}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:126): >126: my $hid = $hub->{hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:129): >129: unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:132): >132: $self->{+_IS_CANON} = undef; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:133): >133: delete $CONTEXTS->{$hid}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:135): >135: if (my $cbk = $self->{+_ON_RELEASE}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:138): >138: if (my $hcbk = $hub->{_context_release}) { >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:141): >141: $_->($self) for reverse @$ON_RELEASE; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:146): >146: ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR}; >Test2::API::Context::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:148): >148: return; >Test2::API::release(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API.pm:433): >433: return $_[1]; >Test2::API::Context::DESTROY(/usr/lib64/perl5/vendor_perl/5.26.1/Test2/API/Context.pm:60): >60: return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN}; >main::CODE(0x5636b005efc8)(t/CairoSurface.t:176): >176: die 'no-memory'; >Cairo::Surface::write_to_png_stream((eval 33)[t/CairoSurface.t:177]:1): >1: s/^([-_\w]+) .+$/$1/s >*** stack smashing detected ***: perl terminated; report to <http://bugs.gentoo.org/> > >Script done on 2018-08-25 15:16:45-0400
<b>You cannot view the attachment while viewing its details because your browser does not support IFRAMEs. <a href="attachment.cgi?id=545018">View the attachment on a separate page</a>.</b>
View Attachment As Raw
Actions:
View
Attachments on
bug 663478
:
543220
| 545018
