xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/modules/Event/Skip.t (revision 5759b3d249badf144a6240f7eec4dcf9df003e6b)
1*5759b3d2Safresh1use Test2::Tools::Tiny;
2*5759b3d2Safresh1use strict;
3*5759b3d2Safresh1use warnings;
4*5759b3d2Safresh1
5*5759b3d2Safresh1use Test2::Event::Skip;
6*5759b3d2Safresh1use Test2::EventFacet::Trace;
7*5759b3d2Safresh1
8*5759b3d2Safresh1my $skip = Test2::Event::Skip->new(
9*5759b3d2Safresh1    trace  => Test2::EventFacet::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]),
10*5759b3d2Safresh1    name   => 'skip me',
11*5759b3d2Safresh1    reason => 'foo',
12*5759b3d2Safresh1);
13*5759b3d2Safresh1
14*5759b3d2Safresh1my $facet_data = $skip->facet_data;
15*5759b3d2Safresh1ok($facet_data->{about}, "Got basic data");
16*5759b3d2Safresh1is_deeply(
17*5759b3d2Safresh1    $facet_data->{amnesty},
18*5759b3d2Safresh1    [
19*5759b3d2Safresh1        {
20*5759b3d2Safresh1            tag       => 'skip',
21*5759b3d2Safresh1            details   => 'foo',
22*5759b3d2Safresh1            inherited => 0,
23*5759b3d2Safresh1        }
24*5759b3d2Safresh1    ],
25*5759b3d2Safresh1    "Added some amnesty for the skip",
26*5759b3d2Safresh1);
27*5759b3d2Safresh1
28*5759b3d2Safresh1is($skip->name, 'skip me', "set name");
29*5759b3d2Safresh1is($skip->reason, 'foo', "got skip reason");
30*5759b3d2Safresh1ok(!$skip->pass, "no default for pass");
31*5759b3d2Safresh1ok($skip->effective_pass, "TODO always effectively passes");
32*5759b3d2Safresh1
33*5759b3d2Safresh1is($skip->summary, "skip me (SKIP: foo)", "summary with reason");
34*5759b3d2Safresh1
35*5759b3d2Safresh1$skip->set_reason('');
36*5759b3d2Safresh1is($skip->summary, "skip me (SKIP)", "summary without reason");
37*5759b3d2Safresh1
38*5759b3d2Safresh1done_testing;
39