use strict;
use warnings;
 
use Test::Pretty;
use Test::More;
use Test::Warn;
 
my $class;
BEGIN {
    $class = "Bowling::Scorer";
    use_ok $class;
}
 
subtest "#new" => sub {
    my $subject = $class->new;
    isa_ok $subject, $class;
};
 
subtest "#calc" => sub {
    my $subject;
    my $setup = sub { $subject = $class->new };
    my $teardown = sub { $subject = undef };
 
    subtest "when calculate 1 frame score" => sub {
        subtest "given no result" => sub {
            $setup->();
            is $subject->calc(), 0,
                "it should return 0.";
            $teardown->();
        };
 
        subtest "given 1 roll" => sub {
            $setup->();
 
            is $subject->calc("1"), 1;
 
            $teardown->();
        };
 
        subtest "given 2 roll" => sub {
            $setup->();
 
            is $subject->calc("17"), 8;
 
            $teardown->();
        };
 
        subtest "given strike" => sub {
            $setup->();
 
            my $actual;
            warning_is { $actual = $subject->calc("X"); } "Score can't be determined.";
            is $actual, undef;
 
            $teardown->();
        };
 
        subtest "given spare" => sub {
            $setup->();
 
            my $actual;
            warning_is { $actual = $subject->calc("28"); } "Score can't be determined.";
            is $actual, undef;
 
            $teardown->();
        };
 
        subtest "given miss" => sub {
            $setup->();
 
            is $subject->calc("--"), 0;
 
            $teardown->();
        };
    };
 
};
 
done_testing;

use strict;
use warnings;
 
use Test::More;
use Test::More::Hooks;
 
subtest "xxxxxxxxxxx" => sub {
    my $subject;
    before { $subject = Foo->new; };
    after  { undef $subject; };
 
    subtest "ooooooo" => sub {
        isa_ok $subject, 'Foo';
    };
 
    subtest "ooooooo" => sub {
        can_ok $subject, 'bar';
    };
};
 
done_testing;

subtest "foo_method" => sub {
    my $subject = Bar->new;

    subtest "A context" => sub {
        subtest "given xxx arguments" => sub {
            my $actual = $subject->foo_method;
            is $actual, $expect, "actual is expect";
        };
    };

    subtest "B context" => sub {
        subtest "given xxx arguments" => sub {
            $subject->baz_method;
            my $actual = $subject->foo_method;
            is $actual, $expect, "actual is expect";
        };
    };

    ....
};

my $mock = Test::MockObject->new;
...

subtest "foo_method" => sub {
    my $actual = SubjectClass->new->foo_method($mock);
};

subtest "bar_method" => sub {
    my $actual = SubjectClass->new->bar_method($mock);
};

subtest "foo_method" => sub {
    subtest "A context" => sub {
        my $subject;
        my $setup = sub { $subject = Bar->new };
        my $teardown = sub { $subject = undef };

        subtest "given xxxx arguments" => sub {
            $setup->();

            my $actual = $subject->foo_method;
            is $actual, $expect, "actual is expect";

            $teardown->();
        };
    };

    subtest "B context" => sub {
        my $subject;
        my $setup = sub { $subject = Bar->new };
        my $teardown = sub { $subject = undef };

        subtest "given xxxx arguments" => sub {
            $setup->();

            $subject->baz_method;
            my $actual = $subject->foo_method;
            is $actual, $expect, "actual is expect";

           $teardown->();
        };
    };

    ....
};

subtest "A context" => sub {
    my $subject;
    my $setup = sub { $subject = Bar->new };
    my $teardown = sub { $subject = undef };

    subtest "foo_method" => sub {
        subtest "given xxxx arguments" => sub {
            $setup->();

            my $actual = $subject->foo_method;
            is $actual, $expect, "actual is expect";

            $teardown->();
        };
    };

    subtest "baz_method" => sub {
        subtest "given xxxx arguments" => sub {
            $setup->();

            my $actual = $subject->baz_method;
            is $actual, $expect, "actual is expect";

            $teardown->();
        };
    };

    ....
};

subtest "B context" => sub {
    ....
};