Perl Test :: Plus et la configuration des exigences de test

Question

Avec Test::More Je veux souvent avoir un module qui exécute des tests et a la capacité d'abandonner les appelants test_plan. J'ai une série de tests qui configurent une liste de plugins pour Catalyst::Test. Je ne veux pas avoir à faire mes tests pour voir s'ils existent; à la place, je veux que mon script avorte si ces plugins ne sont pas présents.

J'essayais de repérer un bug dans mon Catalyst::Authentication::Store::DBI::ButMaintained, et j'ai remarqué que ce bug est également présent dans Catalyst::Authentication::Store::DBI. Ici, il est:

eval { 
    require Catalyst::Model::DBI; 
    require Catalyst::Plugin::Session; 
    require Catalyst::Plugin::Session::State::Cookie; 
    require Catalyst::Plugin::Session::Store::File; 
    require DBD::SQLite; 
    require Test::WWW::Mechanize::Catalyst; 
} or plan skip_all => $@; 

... 

$ENV{'TESTAPP_PLUGINS'} = [ qw(
    Authentication 
    Session 
    Session::Store::File 
    Session::State::Cookie 
    Authorization::Roles 
) ]; 

Comme vous pouvez le voir, la eval/skip_all ne vérifie pas Authorization::Roles l'inclusion, mais le test dépend en vertu de celui-ci étant un plug-in.

J'ai une autre question cependant - existe-t-il un moyen plus élégant de spécifier des dépendances de test que cela? Gardez à l'esprit mon objectif est le même que les auteurs originaux. Je veux simplement passer le test, si les exigences de test n'existent pas. Idéalement, dans ce cas, je voudrais pirater Catalyst::Test pour envelopper le mécanisme de plugin pour Catalyst::Plugin::* choses, puis trouver une meilleure façon de faire le reste de ce genre de choses sans eval/skip_all.

Answer 1

Vous pouvez affecter dynamiquement le nombre de tests dans le plan en appelant:

Test::More->builder->plan(tests=>$total_tests); 

Vous pouvez utiliser qui ne calcule conditionnellement nombre de tests basés sur les besoins.

Answer 2

Mise à jour avec votre liste de plugins au besoin:

Si vous testez un tas d'exigences dans un paquet séparé, vous pouvez simplement avoir ce retour paquet faux (plutôt que la valeur traditionnelle vrai) si une dépendance est pas rencontré:

package Catalyst::Test; 

eval { 
    use Dep1; 
    use Dep2; 
    # ... 
} 

# dep check package returns true if we found all the modules 
!$@; 

# test.pl 
use Test::Requires { 
    Catalyst::Test => 0.01, # skip all tests if Catalyst::Test is not present 
}; 
use Test::More tests => 20; # call Test::More as normal. 

Quand je lance ce à l'aide d'un vérificateur dep appelé Foo, cela ne fonctionne pas avec une sortie appropriée:

 
% perl -I. foo.t 
1..0 # SKIP Foo.pm did not return a true value at (eval 4) line 2. 
# BEGIN failed--compilation aborted at (eval 4) line 2. 
# 

 
% prove -I. foo.t 
foo.pl .. skipped: Foo.pm did not return a true value at (eval 4) line 2. 
Files=1, Tests=0, 0 wallclock secs (0.02 usr 0.01 sys + 0.01 cusr 0.00 csys = 0.04 CPU) 
Result: NOTESTS