Prueba :: sin código de ejecución mientras oculta rutas de biblioteca o módulos específicos
Descargar ahora

Prueba :: sin Clasificación y resumen

Prueba :: sin Etiquetas

Módulo perl perla guiones prueba Test Scripts

Prueba :: sin Descripción

Ejecutar código mientras oculta rutas de biblioteca o módulos específicos Prueba :: Sin es un módulo PERL que facilita que los scripts de prueba excluyan los módulos y / o directorios específicos de la ruta de búsqueda de Perl durante la ejecución de bloques de Code.Developer Commentsi escribió esto después de la necesidad de escribir un truco bastante feo para Un módulo CPAN diferente, para probar el código que intentaría cargar compresa :: zlib, pero necesaria para probar las rutas lógicas que solo se ejecutan cuando la compresión no está disponible. Este módulo no es para probar si el código se carga y se compila correctamente; Consulte la función Uso_OK de la prueba :: Más para eso. El módulo funciona creando un alcance léxico en el que ambos @inc y% inc están localizados, y ejecutando el bloque dado dentro de ese alcance. Los módulos (y posiblemente direcarios) se ocultarán en este momento. Los directorios que se dan se eliminan inmediatamente de @inc. Los módulos se manejan por medio de una subrutina insertada en la cabeza de @ inc. conversamente, la sintaxis se puede usar para requerir el presente de módulos específicos, lanzar una excepción a través de la matriz si el recurso de solicitud no está disponible, o agrega temporalmente caminos adicionales a @C ª. En tal caso, ninguno de los códigos en el bloque provisto se habrá ejecutado antes de la presentación de informes de los recursos faltantes. Una persona que llama también puede proporcionar parámetros a pasar al bloque de código cuando se llama. Esto es superfluo para bloques definidos en línea, pero en los casos en que el argumento de bloque es un escalar de referencia de código que se está reutilizando, esto puede ser útil. HSYNOPSIS Use la prueba :: sin; Ejecutar {eval "requieren RPC :: XML :: Cliente"; $ Client = RPC :: XML :: Cliente-> Nuevo (); OK (! $ Client-> comprimir (), "El cliente no tiene soporte de compresión"); } sin 'compress :: zlib'; # Ejecutar un bloque con parámetros ejecutados {My% args = @_; eval "requiere RPC :: XML :: Server"; $ servidor = rpc :: xml :: servidor-> nuevo (@_); es ($ servidor-> Puerto, $ args {PORT}, "Puerto configurado correctamente"); es ($ servidor-> ruta, $ args {ruta}, "STORK SET CORRECTAMENTE"); #, Etc.} sin 'compress :: zlib', 'net :: servidor', parals puerto => 9000, ruta => '/ rpc'; Requisitos: · Perl

Prueba :: sin Software relacionado