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 $@ }  DB<1> o AutoTrace=1 AutoTrace = '1'  DB<2> c 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 Script done on 2018-08-25 15:16:45-0400