| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/Util/ |
| D | Facets2Legacy.pm | 34 return $in->facet_data;
43 my $facet_data = _get_facet_data(shift @_);
45 return 1 if $facet_data->{errors} && grep { $_->{fail} } @{$facet_data->{errors}};
47 if (my $control = $facet_data->{control}) {
52 return 0 if $facet_data->{amnesty} && @{$facet_data->{amnesty}};
53 return 1 if $facet_data->{assert} && !$facet_data->{assert}->{pass};
58 my $facet_data = _get_facet_data(shift @_);
59 return 1 if $facet_data->{errors} && @{$facet_data->{errors}};
60 return 0 unless $facet_data->{info} && @{$facet_data->{info}};
61 return (grep { $_->{debug} } @{$facet_data->{info}}) ? 1 : 0;
[all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/modules/Event/ |
| D | Ok.t | 32 my $facet_data = $ok->facet_data;
33 ok($facet_data->{about}, "got common facet data");
34 ok(!$facet_data->{amnesty}, "No amnesty by default");
36 $facet_data->{assert},
53 $facet_data = $ok->facet_data;
54 ok($facet_data->{about}, "got common facet data");
55 ok(!$facet_data->{amnesty}, "No amnesty by default");
57 $facet_data->{assert},
82 my $facet_data = $ok->facet_data;
83 ok($facet_data->{about}, "got common facet data");
[all …]
|
| D | Plan.t | 101 my $facet_data = $plan->facet_data;
102 ok($facet_data->{about}, "Got common facet data");
103 is($facet_data->{control}->{terminate}, undef, "no termination defined");
105 $facet_data->{plan},
116 $facet_data = $plan->facet_data;
117 ok($facet_data->{about}, "Got common facet data");
118 is($facet_data->{control}->{terminate}, undef, "no termination defined");
120 $facet_data->{plan},
131 $facet_data = $plan->facet_data;
132 ok($facet_data->{about}, "Got common facet data");
[all …]
|
| D | Exception.t | 17 my $facet_data = $exception->facet_data;
18 ok($facet_data->{about}, "Got common facet data");
21 $facet_data->{errors},
42 $facet_data = $exception->facet_data;
43 ok($facet_data->{about}, "Got common facet data");
46 $facet_data->{errors},
|
| D | Subtest.t | 33 my $facet_data = $one->facet_data;
34 ok($facet_data->{about}, "got parent facet data");
37 $facet_data->{parent},
61 $facet_data = $one->facet_data;
63 $facet_data->{parent},
|
| D | Note.t | 35 my $facet_data = $note->facet_data;
36 ok($facet_data->{about}, "Got 'about' from common");
37 ok($facet_data->{trace}, "Got 'trace' from common");
40 $facet_data->{info},
|
| D | Waiting.t | 16 my $facet_data = $waiting->facet_data;
17 ok($facet_data->{about}, "Got common facet data");
20 $facet_data->{info},
|
| D | Diag.t | 36 my $facet_data = $diag->facet_data;
37 ok($facet_data->{about}, "Got 'about' from common");
38 ok($facet_data->{trace}, "Got 'trace' from common");
41 $facet_data->{info},
|
| D | Skip.t | 14 my $facet_data = $skip->facet_data;
15 ok($facet_data->{about}, "Got basic data");
17 $facet_data->{amnesty},
|
| D | V2.t | 24 facet_data
68 $one->facet_data,
96 $events->[0]->facet_data->{info},
|
| D | Bail.t | 24 $bail->facet_data,
51 $bail->facet_data,
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/modules/ |
| D | Event.t | 65 tests facet_data => sub {
76 facet_data => undef,
80 $e->facet_data,
99 $e->facet_data,
123 $e->facet_data,
154 $e->facet_data,
183 $e->facet_data,
214 $e->facet_data,
245 $data = $e->facet_data;
278 $e->facet_data,
[all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/t/regression/ |
| D | 862-intercept_tb_todo.t | 38 @$events = grep { $_->facet_data->{assert} } @$events;
40 ok(!$events->[0]->facet_data->{amnesty}, "No amnesty for the first event, \$TODO was cleaned");
43 $events->[1]->facet_data->{amnesty},
52 $events->[2]->facet_data->{amnesty},
60 ok(!$events->[3]->facet_data->{amnesty}, "No amnesty for the fourth event, \$TODO was cleaned");
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/Event/ |
| D | Subtest.pm | 66 sub facet_data { subroutine
69 my $out = $self->SUPER::facet_data();
76 children => [map {$_->facet_data} @{$self->{+SUBEVENTS}}],
|
| D | Generic.pm | 53 sub facet_data { subroutine
55 return $self->{facet_data} || $self->SUPER::facet_data();
|
| D | Waiting.pm | 15 sub facet_data { subroutine
|
| D | Diag.pm | 19 sub facet_data { subroutine
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/behavior/ |
| D | subtest_bailout.t | 31 ok(!$events->[-1]->facet_data->{trace}->{buffered}, "Final Bail-Out is not buffered");
34 ok($events->[0]->subevents->[-2]->facet_data->{trace}->{buffered}, "Bail-Out is buffered");
37 ok($events->[0]->subevents->[0]->subevents->[-2]->facet_data->{trace}->{buffered}, "Bail-Out is buf…
|
| D | trace_stamps.t | 17 ok($events->[0]->facet_data->{trace}->{stamp}, "got stamp");
23 ok(!exists($events->[0]->facet_data->{trace}->{stamp}), "no stamp");
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test/Builder/ |
| D | TodoDiag.pm | 11 sub facet_data { subroutine
13 my $out = $self->SUPER::facet_data();
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/Hub/ |
| D | Subtest.pm | 38 my $f = $e->facet_data;
58 $f ||= $e->facet_data;
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/ |
| D | Event.pm | 164 sub facet_data { subroutine
232 my $data = $self->facet_data;
264 $f ||= $class_or_self->facet_data if blessed($class_or_self);
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/modules/Util/ |
| D | Facets2Legacy.t | 49 …ween Facets2Legacy and Fake::Event=HASH\(.*\)->facet_data\(\) \(Did you forget to override the fac…
50 "Cannot depend on legacy facet_data and Facets2Legacy"
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/ |
| D | InterceptResult.pm | 41 my $fd = dclone($blessed ? $event->facet_data : $event);
51 return $upgrade_class->new(facet_data => $fd, result_class => $class);
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/modules/API/ |
| D | InterceptResult.t | 54 is_deeply($event->facet_data, $up->facet_data, "Facet data is identical");
56 $up->facet_data->{trace}->{frame}->[2] = 43;
58 is($event->facet_data->{trace}->{frame}->[2], 42, "Did not modify the original");
|