ACIL FM

Nama	Ukuran	Aksi
TAP	-	Open
Bail.t	1.68 MB	View DL Edit
Diag.t	1.3 MB	View DL Edit
Encoding.t	659 B	View DL Edit
Exception.t	1.21 MB	View DL Edit
Fail.t	1.16 MB	View DL Edit
Generic.t	3.72 MB	View DL Edit
Note.t	1.24 MB	View DL Edit
Ok.t	4.34 MB	View DL Edit
Pass.t	1.18 MB	View DL Edit
Plan.t	4.33 MB	View DL Edit
Skip.t	926 B	View DL Edit
Subtest.t	1.45 MB	View DL Edit
V2.t	2.52 MB	View DL Edit
Waiting.t	630 B	View DL Edit

Edit file: /usr/share/doc/perl-Test-Simple/t/Test2/modules/Event/Plan.t

use strict;
use warnings;

use Test2::Tools::Tiny;
use Test2::Event::Plan;
use Test2::EventFacet::Trace;

my $plan = Test2::Event::Plan->new(
    trace => Test2::EventFacet::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]),
    max => 100,
);

is($plan->summary, "Plan is 100 assertions", "simple summary");
is_deeply( [$plan->sets_plan], [100, '', undef], "Got plan details");

ok(!$plan->global, "regular plan is not a global event");
is($plan->terminate, undef, "No terminate for normal plan");

$plan->set_max(0);
$plan->set_directive('SKIP');
$plan->set_reason('foo');
is($plan->terminate, 0, "Terminate 0 on skip_all");

is($plan->summary, "Plan is 'SKIP', foo", "skip summary");
is_deeply( [$plan->sets_plan], [0, 'SKIP', 'foo'], "Got skip details");

$plan->set_max(0);
$plan->set_directive('NO PLAN');
$plan->set_reason(undef);
is($plan->summary, "Plan is 'NO PLAN'", "NO PLAN summary");
is_deeply( [$plan->sets_plan], [0, 'NO PLAN', undef], "Got 'NO PLAN' details");
is($plan->terminate, undef, "No terminate for no_plan");
$plan->set_max(100);
$plan->set_directive(undef);

$plan = Test2::Event::Plan->new(
    trace => Test2::EventFacet::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]),
    max => 0,
    directive => 'skip_all',
);
is($plan->directive, 'SKIP', "Change skip_all to SKIP");

$plan = Test2::Event::Plan->new(
    trace => Test2::EventFacet::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]),
    max => 0,
    directive => 'no_plan',
);
is($plan->directive, 'NO PLAN', "Change no_plan to 'NO PLAN'");
ok(!$plan->global, "NO PLAN is not global");

like(
    exception {
        $plan = Test2::Event::Plan->new(
            trace     => Test2::EventFacet::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]),
            max       => 0,
            directive => 'foo',
        );
    },
    qr/'foo' is not a valid plan directive/,
    "Invalid Directive"
);

like(
    exception {
        $plan = Test2::Event::Plan->new(
            trace  => Test2::EventFacet::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]),
            max    => 0,
            reason => 'foo',
        );
    },
    qr/Cannot have a reason without a directive!/,
    "Reason without directive"
);

like(
    exception {
        $plan = Test2::Event::Plan->new(
            trace  => Test2::EventFacet::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]),
        );
    },
    qr/No number of tests specified/,
    "Nothing to do"
);

like(
    exception {
        $plan = Test2::Event::Plan->new(
            trace  => Test2::EventFacet::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]),
            max => 'skip',
        );
    },
    qr/Plan test count 'skip' does not appear to be a valid positive integer/,
    "Max must be an integer"
);

$plan = Test2::Event::Plan->new(
    trace => Test2::EventFacet::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]),
    max => 100,
);

my $facet_data = $plan->facet_data;
ok($facet_data->{about}, "Got common facet data");
is($facet_data->{control}->{terminate}, undef, "no termination defined");
is_deeply(
    $facet_data->{plan},
    {count => 100},
    "Set the count"
);

$plan = Test2::Event::Plan->new(
    trace => Test2::EventFacet::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]),
    max => 0,
    directive => 'NO PLAN',
);

$facet_data = $plan->facet_data;
ok($facet_data->{about}, "Got common facet data");
is($facet_data->{control}->{terminate}, undef, "no termination defined");
is_deeply(
    $facet_data->{plan},
    {count => 0, none => 1},
    "No plan"
);

$plan = Test2::Event::Plan->new(
    trace => Test2::EventFacet::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]),
    max => 0,
    directive => 'SKIP',
);

$facet_data = $plan->facet_data;
ok($facet_data->{about}, "Got common facet data");
is($facet_data->{control}->{terminate}, 0, "terminate with 0");
is_deeply(
    $facet_data->{plan},
    {count => 0, skip => 1},
    "Skip, no reason"
);

$plan = Test2::Event::Plan->new(
    trace => Test2::EventFacet::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]),
    max => 0,
    directive => 'SKIP',
    reason => 'because',
);

done_testing;

Batal