¿Cuánto necesito para probar los métodos generados por Moose y MooseX :: FollowPBP?

Question

Quiero comenzar estrictamente haciendo Test-Driven-Development. Sin embargo, me preguntaba cuánto debería probar los métodos generados por Moose y MooseX :: FollowPBP. Por ejemplo, tengo la siguiente clase:

package Neu::Series; 
use Moose; 
use MooseX::FollowPBP; 

use File::Find::Wanted; 

has 'file_regex' => (
    isa=>'RegexpRef', 
    is=>'rw', 
    default => sub{ 
       qr{ 
        [A-Z]  #Uppercase letter 
        [a-zA-Z]* #any letter, any number of times 
        [-]   #dash 
        (   #open capturing parenthesis 
        [0-9] 
        [0-9] 
        [0-9] 
        [0-9] 
        [a-zA-Z]? #any letter, optional 
        )   #close capturing parenthesis 
       }xms; 
      }, 
); 


has 'top_dir' => (
    isa=>'Str', 
    is=>'rw', 
); 


has 'access' =>(
    isa=>'Neu::Access', 
    is=>'ro', 
    required=>1, 

); 

1; 

Mi escritura de la prueba actual es:

use strict; 
use warnings; 
use Test::More tests => 8; 
use Neu::Access; 

BEGIN{ use_ok('Neu::Series'); } 

can_ok('Neu::Series', 'new'); 
can_ok('Neu::Series', 'set_file_regex'); 
can_ok('Neu::Series', 'get_file_regex'); 
can_ok('Neu::Series', 'set_top_dir'); 
can_ok('Neu::Series', 'get_top_dir'); 
can_ok('Neu::Series', 'get_access'); 

my $access = Neu::Access->new(dsn => 'test'); 
my $series_worker = Neu::Series->new(access => $access); 

isa_ok($series_worker, 'Neu::Series'); 

¿Es esta prueba suficiente o demasiado-mucho? (Es decir, además de las evidentes pruebas faltantes para la expresión regular).

Creo que vi una página web u otra publicación sobre esto en alguna parte, pero no he podido encontrarla hoy.

Answer 1

Me centraría en probar mi especificación. ¿Le dije a Moose lo que quería que hiciera correctamente?

Con este fin, me gustaría empezar con las siguientes pruebas:

• Compruebe que lectura/escritura atributos tienen tanto un descriptor de acceso y una mutador.
• Verifique que los atributos de solo lectura tengan un descriptor de acceso y ningún mutador.
• Pruebe cualquier tipo de restricciones y coacciones. Verifique que solo se puedan establecer valores aceptables. Si un atributo sSi espera que VII se vea como Str y forzado a Int como 7, compruebe que sí lo hace.

Answer 2

Verificación de que todos los descriptores de acceso se generaron correctamente está bien ... sin embargo, hay otras cosas que puede probar en un nivel ligeramente superior, p. Ej. ¿por qué no probar que los atributos se generaron correctamente?

use Test::Deep; 
my @attrs = Neu::Series->meta->get_all_attributes; 
cmp_deeply([ map { $_->name } @attrs ], superbagof(qw(file_regex top_dir access))); 

Answer 3

No tiene sentido probar que los accesos se generaron correctamente. Si son no, lo sabrá muy rápido, porque las pruebas reales que escriba fallarán.

Moose prueba que los accesos se generan correctamente, que las clases que usan Moose obtienen un constructor, y así sucesivamente. Uno de los puntos para usar dependencias es que pueda enfocarse en escribir y probar su aplicación, no en el código auxiliar.

Estoy de acuerdo con daotoad, es probable que valga la pena probar las restricciones y las coacciones que usted mismo escribe.

Answer 4

Gracias Dave, daotoad, Ether, Elliot y Brian. Al leer sus respuestas, comentarios y blogs, parece que hay dos puntos destacados:

(1) No es necesario realizar pruebas para asegurarse de que Moose haga lo que se supone que debe hacer. Creo que todos están de acuerdo en este punto.

(2) La prueba de los métodos generados por Moose es apropiada para establecer, probar y mantener su interfaz. La mayoría está de acuerdo en este punto.

Nuevamente, gracias a todos por su aporte.

EDIT:

Esto es sólo un resumen de la comunidad wiki. Por favor, lea las respuestas y comentarios individuales.