view release on metacpan or  search on metacpan

t/test.t  view on Meta::CPAN

package t::TestForTest;
use t::test;

sub _prepare_test_code : Tests {
    subtest 'valid input' => sub {
        my $directory = t::test::prepare_test_code('hello_world');

        ok $directory;
        ok -d $directory, 'directory exists';

        ok -f "$directory/hello_world.pl", 'hello_world.pl exists';
    };

    subtest 'valid input' => sub {
        ok exception {
            t::test::prepare_test_code('not_defined_name');
        }, 'dies when specified code is not prepared'
    };
}

sub _prepare_as_git_repository : Tests {
    my $directory = t::test::prepare_test_code('hello_world');

    t::test::prepare_as_git_repository($directory);

    ok -d "$directory/.git", '.git directory exists';
}