परीक्षण :: उत्तम दर्जे का* .t की तुलना में अन्य मॉड्यूल में अपने यूनिट परीक्षण लिखें | |
अब डाउनलोड करो |
परीक्षण :: उत्तम दर्जे का रैंकिंग और सारांश
विज्ञापन
- लाइसेंस:
- Perl Artistic License
- कीमत:
- FREE
- प्रकाशक का नाम:
- Kenichi Ishigaki
- प्रकाशक वेब साइट:
- http://search.cpan.org/~ishigaki/Test-UseAllModules-0.09/lib/Test/UseAllModules.pm
परीक्षण :: उत्तम दर्जे का टैग
परीक्षण :: उत्तम दर्जे का विवरण
* .T की तुलना में अन्य मॉड्यूल में अपने यूनिट परीक्षण लिखें टेस्ट :: क्लासी एक पर्ल मॉड्यूल है जो आपके यूनिट परीक्षणों को अन्य मॉड्यूल में लिखने के लिए * .t.synopsisin आपकी टेस्ट फ़ाइल (टी / some_test.t): lib 't / lib' का उपयोग करें; परीक्षण :: उत्तम दर्जे का; MyApp का उपयोग करें :: आदर्श :: डीबी; # उन चीजों को तैयार करें जिन्हें आप परीक्षणों में उपयोग करना चाहते हैं (यदि आप पसंद करते हैं) मेरे $ db = myapp :: मॉडल :: डीबी-> कनेक्ट; # MyApp के तहत पाए गए प्रत्येक परीक्षण पैकेज को लोड करें :: Test :: load_tests_from 'MyApp :: टेस्ट'; # या इसे स्पष्ट रूप से लोड करें load_test 'myapp :: अन्यtestest :: forsomething'; # आप केवल मॉडल विशेषता सीमा_ Tests_by 'मॉडल' के साथ परीक्षणों को सीमित कर सकते हैं; # प्रत्येक परीक्षण ($ डीबी को एक तर्क के रूप में पारित किया जाएगा) # आमतौर पर आपको यहां परीक्षणों की योजना घोषित करने की आवश्यकता नहीं है। RUN_TESTS ($ DB); # चलिए कुछ सफाई समाप्त करते हैं {$ db-> डिस्कनेक्ट; } आपके यूनिट टेस्ट क्लास में: पैकेज MyApp :: Test :: कुछ; परीक्षण का उपयोग करें :: उत्तम दर्जे का :: आधार; # उप For_some का परीक्षण करने के लिए 'परीक्षण' विशेषता लिखें: परीक्षण {my ($ वर्ग, @args) = @_; # कुछ यूनिट परीक्षण ठीक 1, "आप परीक्षण का उपयोग कर सकते हैं :: डिफ़ॉल्ट रूप से अधिक के कार्यों को"; } # आप एक इकाई उप For_oths में परीक्षणों की संख्या घोषित कर सकते हैं: परीक्षण (2) {my ($ वर्ग, @args) = @_; 'पहले' पास करें; 'दूसरा' पास करें; } # परीक्षणों को 'छोड़ें' विशेषता उप etish_another के साथ छोड़ दिया जाएगा: टेस्ट (2) छोड़ें (किसी कारण से) {my ($ वर्ग, @args) = @_; पास 'लेकिन यह परीक्षण छोड़ दिया जाएगा'; विफल 'लेकिन यह परीक्षण छोड़ दिया जाएगा, या तो'; } # टोडो को आप की उम्मीद के रूप में भी काम करना चाहिए। उप May_Fail: परीक्षण Todo (किसी कारण से) {my ($ वर्ग, @args) = @_; विफल 'जब तक कुछ लागू नहीं किया जाता है'; } # आप उप TEST_FOR_MODEL को सीमित करने के लिए कोई विशेषता जोड़ सकते हैं: परीक्षण मॉडल {my ($ वर्ग, @args) = @_; # आप परीक्षण पास $ क्लास-> TEST_NAME का नाम दिखाने के लिए $ क्लास-> TEST_NAME का उपयोग कर सकते हैं; # "test_for_model"} आवश्यकताएं: · पर्ल
परीक्षण :: उत्तम दर्जे का संबंधित सॉफ्टवेयर