view release on metacpan or  search on metacpan

t/25inject.t  view on Meta::CPAN

my $testDists = RepoTest->TestDists;

my $parfile = 'Test-Kit-0.02-any_arch-any_version.par';
my @test_kit = grep /\Q$parfile\E/, @$testDists;
ok(scalar(@test_kit) == 1, 'found exactly one Test-Kit dist for testing');
my $dependencies = {
  $parfile => {
    'Test::More' => '0',
    'base' => '2.11',
    'namespace::clean' => '0.08',
    'Test::Differences' => '0',
  },
};

diag("test injection and removal via parrepo");
ok(!RepoTest->RunParrepo('inject', '-f', $test_kit[0]), "parrepo didn't complain about injection");
RepoTest::TestKit->check_injection($parfile);
RepoTest::TestKit->check_symlinks();
RepoTest::TestKit->check_dependencies($dependencies);
ok(!RepoTest->RunParrepo('remove', '-f', $parfile), 'no error from remove');
RepoTest::TestKit->check_removal($parfile);

t/35inject_nosymlinks.t  view on Meta::CPAN

my $parfile = 'Test-Kit-0.02-any_arch-any_version.par';
my @test_kit = grep /\Q$parfile\E/, @$testDists;
ok(scalar(@test_kit) == 1, 'found exactly one Test-Kit dist for testing');

my $dependencies = {                                                           
  $parfile => {                                                                
    'Test::More' => '0',                                                       
    'base' => '2.11',                                                          
    'namespace::clean' => '0.08',                                              
    'Test::Differences' => '0',                                                
  },                                                                           
};                                                                             
                                                                               
diag("test injection and removal via parrepo");                                
ok(!RepoTest->RunParrepo('inject', '-f', $test_kit[0]), "parrepo didn't complain about injection");
RepoTest::TestKit->check_injection($parfile);
RepoTest::TestKit->check_symlinks();
RepoTest::TestKit->check_dependencies($dependencies);
ok(!RepoTest->RunParrepo('remove', '-f', $parfile), 'no error from remove');
RepoTest::TestKit->check_removal($parfile);

t/40inject_convert_nosymlinks.t  view on Meta::CPAN

my $parfile = 'Test-Kit-0.02-any_arch-any_version.par';
my @test_kit = grep /\Q$parfile\E/, @$testDists;
ok(scalar(@test_kit) == 1, 'found exactly one Test-Kit dist for testing');

my $dependencies = {
  $parfile => {
    'Test::More' => '0',
    'base' => '2.11',
    'namespace::clean' => '0.08',
    'Test::Differences' => '0',
  },
};

diag("test injection and removal via parrepo");
ok(!RepoTest->RunParrepo('inject', '-f', $test_kit[0]), "parrepo didn't complain about injection");
RepoTest::TestKit->check_injection($parfile);
RepoTest::TestKit->check_symlinks();
RepoTest::TestKit->check_dependencies($dependencies);
ok(!RepoTest->RunParrepo('remove', '-f', $parfile), 'no error from remove');
RepoTest::TestKit->check_removal($parfile);