| Test :: nobel. Schreiben Sie Ihre Gerätests in andere Module als * .t |
Jetzt downloaden |
Test :: nobel. Ranking & Zusammenfassung
- Lizenz:
- Perl Artistic License
- Name des Herausgebers:
- Kenichi Ishigaki
- Website des Verlags:
- http://search.cpan.org/~ishigaki/Test-UseAllModules-0.09/lib/Test/UseAllModules.pm
Test :: nobel. Stichworte
Test :: nobel. Beschreibung
Schreiben Sie Ihre Gerätests in andere Module als * .t Test :: typey ist ein Perl-Modul, um Ihre Einheitstests in andere Module zu schreiben als * .t.synopsisin Ihre Testdatei (t / syntest.t): Verwenden Sie lib 't / lib'; Testen Sie den Test :: Nobel; Verwenden Sie MyApp :: Modell :: dB; # Bereiten Sie Dinge, die Sie in den Tests verwenden möchten (wenn Sie möchten) meine $ db = myApp :: Modell :: db-> connect; # Laden Sie alle Testpakete, die unter MyApp gefunden wurden :: test :: load_tests_from 'myapp :: test'; # oder laden es explizit load_test 'myapp :: yodestest :: forsomething'; # Sie können Tests nur mit dem Modellattribut limit_tests_by 'Modell einschränken'; # Jedes der Tests ausführen ($ dB wird als Argument weitergegeben) # Normalerweise müssen Sie den Plan der Tests hier nicht erklären. run_tests ($ db); # Lass uns ein paar Reinigungen machen ende {$ db-> trennen; } In Ihrer Einheitstestklasse: Paket MyApp :: test :: etwas; Verwenden Sie Test :: Cloby :: Base; # Write 'Test' Attribut zum Test sub_some: Test {My ($ class, @args) = @_; # Einige Einheitstest OK 1, "Sie können den Test verwenden :: weitere Funktionen von mehr standardmäßig"; } # Sie können die Anzahl der Tests in einer Untereinheit sub_hers angeben: Tests (2) {My ($ Class, @args) = @_; passieren 'zuerst'; Pass 'Sekunde'; } tests werden mit 'Skip' Attribut Sub Sub_another übersprungen: Tests (2) Überspringen (aus irgendeinem Grund) {My ($ class, @args) = @_; Pass ', aber dieser Test wird übersprungen'; FAIL ', aber dieser Test wird entweder übersprungen'; } # TODO sollte auch arbeiten, wie Sie erwarten. sub May_Fail: Tests TODO (aus irgendeinem Grund) {My ($ class, @args) = @_; fehlschlagen ', bis etwas umgesetzt ist'; } # Sie können alle Attribute hinzufügen, um sub test_for_model zu begrenzen: Testmodell {My ($ class, @args) = @_; # Sie können $ class-> test_name verwenden, um den Namen des Testpasss $ class-> testname anzuzeigen; # "test_for_model"} Anforderungen: · Perl.
Test :: nobel. Zugehörige Software