Test :: SimplyUit Test :: SimplyInit is een vereenvoudigd perl-eenheidstoetskader.
Download nu

Test :: SimplyUit Rangschikking & Samenvatting

Test :: SimplyUit Tags

kader Perl-module perl Perl kader eenheid-testkader

Test :: SimplyUit Beschrijving

Test :: SimpleUnit is een vereenvoudigd perl-testkader. Test :: SimpleUnit is een vereenvoudigd Perl-eenheidstest Framework.Synopsis Gebruik Test :: SimpleUnit QW {: Functions}; RUNTESTS ({NAME => "Test1", Test => Sub {...}}, {name => "Testn", test => sub {...}}); Voorbeeld Gebruik Test :: SimpleUnit QW {: functies}; # Als een setup- of traandown-functie mislukt, sla dan de rest van de tests-test over :: SimplyUnit :: AutoskipFailedSetup (1); Test :: SimpleUnit :: AutoskipFailedTearDown (1); mijn $ exemplaar; mijn $ eisteoKay = 0; Mijn @TESTS = (# vereisen de module {NAME => 'vereisen', test => sub {# Zorg ervoor dat we de te testen module kunnen laden. AssertnoException {vereisen myClass}; # Probeer een aantal functies te importeren Foutmelding Als het # mislukt. AssertnoException {MyClass-> Importeren (': MyFuncs')} "Misschien niet importeren: MyFuncs"; # Zorg ervoor dat het 'import ()' in het functies 'IMPORTREF' Code ', * :: MyFunC', *: myfunc '. {Code}; ASSERTREF 'Code', * :: myotherfunc {Code}; # Stel de vlag in om de instellingenfunctie te laten weten hoe de module is geladen oke $ equewasokay = 1;},}, # Setup-functie (dit wordt vóór een setup-functie) Tests die volgen) {NAME => 'SETUP', TUST => SUB {# Als de vorige test niet is voltooid, is het niet onvruchtbaar, dus sla gewoon de # REST van de tests Skipall "-module over om te laden", tenzij $ eiste $ Instance = NIEUWE MYCLASS;},}, # Teardown-functie (dit wordt uitgevoerd na alle tests die volgen) {NAME => 'Tearing', Test => Sub {undef $ exemplaar;},}, # Test de verbinding ( ) en ontkoppelen () metho DS {Name => 'Connect () en loskoppelen ()', test => sub {mijn $ RVAL; AssertnoException {$ rval = exemplaar-> verbinden}; Assert $ Rval, "Connect mislukt zonder fout."; assertnoException {$ exemplaar-> Disconnect}; },}, # One-Time Setup-functie - overschrijft de vorige setup, maar is # onmiddellijk weggegooid na één keer. {NAME => 'SETUP', FUNC => SUB {MYCLASS :: PREPNETWORK (); },}, # Nu de vorige setup-functie opheffen met een nieuwe die # een verbinding () vóór elke resterende test doet. {Name => 'Setup', Test => Sub {$ exemplaar = nieuwe MyClass; $ Exemplaar-> verbinding; },} # Hetzelfde voor TearDown / Disconnect () {Name => 'Tearing', Test => Sub {$ exemplaar-> Disconnect; undef $ exemplaar; },}, ...); loopsten (@testsuite); Vereisten: · Perl

Test :: SimplyUit Gerelateerde software