Test :: zonder Run Code tijdens het verbergen van bibliotheekpaden of specifieke modules
Download nu

Test :: zonder Rangschikking & Samenvatting

Test :: zonder Tags

Perl-module perl scripts test Testscripts

Test :: zonder Beschrijving

Voer de code uit tijdens het verbergen van bibliotheekpaden of specifieke modules Test :: zonder is een PERL-module die het gemakkelijk maakt voor testscripts om specifieke modules en / of mappen uit te sluiten van het PERL-zoekpad tijdens de uitvoering van blokken code.Developer Commentsi schreef dit nadat u een eerlijk lelijke hack hebt geschreven Een andere CPAN-module, om code te testen die het kompres zou proberen te laden :: ZLIB, maar nodig om de logische paden te testen die alleen uitvoeren wanneer compressie niet beschikbaar is. Deze module is niet voor het testen of codelast en compileert correct; Zie de gebruik_OK-functie van de test :: daarvoor. De module werkt door een lexicale reikwijdte te creëren waarin zowel @inc en% INC zijn gelokaliseerd en het gegeven blok binnen die reikwijdte uitvoeren. De modules (en mogelijk direncories) die moeten worden verborgen, worden op dit moment gespecificeerd. Mappen die worden gegeven, worden onmiddellijk verwijderd van @INC. Modules worden afgehandeld door middel van een subroutine die aan het hoofd van @ Inc.Congevrely is geplaatst, de syntaxis kan worden gebruikt om het heden van specifieke modules te vereisen, een uitzondering te gooien via de matrijs als een aanvraagresource niet beschikbaar is of tijdelijk extra paden toevoegt @INC. In een dergelijk geval is geen van de code in het verstrekte blok uitgevoerd vóór de rapportage van de ontbrekende bronnen. Een beller kan ook parameters leveren die moeten worden doorgegeven aan het codeblok wanneer deze wordt genoemd. Dit is overbodig voor inline-gedefinieerde blokken, maar in gevallen waarin het blokargument een scalaire code-referentie is die wordt hergebruikt, kan dit nuttig zijn.Synopsis-gebruik Test: zonder; Run {EVAL "vereisen RPC :: XML :: Client"; $ client = rpc :: xml :: client-> nieuw (); OK (! $ Client-> Compress (), "Cliënt heeft geen compressieondersteuning"); } zonder 'Compress :: ZLIB'; # Voer een blok uit met parameters uitvoeren {mijn% args = @_; Eval "vereisen RPC :: XML :: Server"; $ SERVER = RPC :: XML :: SERVER-> NIEUW (@_); is ($ server-> poort, $ args {poort}, "poort set juist"); is ($ SERVER-> PAD, $ AGS {PATH}, "PAD SET CORRECT"); # Enz.} Zonder 'Compress :: ZLIB', 'NET :: Server', params poort => 9000, pad => '/ rpc'; Vereisten: · Perl

Test :: zonder Gerelateerde software