اختبار :: أنيق اكتب اختبارات وحدتك في وحدات أخرى من * .t
التحميل الان

اختبار :: أنيق الترتيب والملخص

اختبار :: أنيق العلامات

الوحدة النمطية بيرل بيرل الاختبارات وحدة اختبارات الوحدة

اختبار :: أنيق وصف

اكتب اختبارات وحدتك في وحدات أخرى من * .t اختبار :: أنيق هو وحدة بيرل لكتابة اختبارات وحدتك في وحدات أخرى من * .t.syopsisin ملف الاختبار الخاص بك (t / thother_test.t): استخدم Lib 't / lib'؛ استخدام الاختبار :: أنيق؛ استخدم MyApp :: نموذج :: DB؛ # تحضير الأشياء التي تريد استخدامها في الاختبارات (إذا كنت تفضل) My $ DB = MyApp :: Model :: DB-> Connect؛ # تحميل كل حزم اختبار موجودة تحت MyApp :: اختبار :: LOAD_TESTS_FROM 'MyApp :: Test'؛ # أو قم بتحميلها بوضوح LOAD_TEST 'MYAPP :: الآخرين :: forsomething'؛ # يمكنك الحد من الاختبارات فقط مع حد سمة نموذج الحد_TESTS_BY "نموذج"؛ # قم بتشغيل كل من الاختبارات (سيتم تمرير $ DB كوسيطة) # عادة لا تحتاج إلى إعلان خطة الاختبارات هنا. Run_tests ($ DB)؛ # دعونا نفعل بعض التنظيف نهاية {$ db-> قطع الاتصال؛ } في فئة اختبار الوحدة الخاصة بك: حزمة MyApp :: اختبار :: شيء؛ استخدم الاختبار :: Classy :: Base؛ # كتابة "اختبار" سمة لاختبار الفرعية for_some: اختبار {بلدي (فئة $، @ args) =_؛ # بعض اختبار الوحدة موافق 1، "يمكنك استخدام الاختبار :: المزيد من الوظائف بشكل افتراضي"؛ } # يمكنك أن تعلن عدد الاختبارات في وحدة الفرعية For_Hothers: الاختبارات (2) {My ($ class، @ args) = @؛ تمر "أولا"؛ تمرير "الثاني"؛ } # اختبارات سيتم تخطيها مع "تخطي" سمة الفرعية حتى الآن: الاختبارات (2) تخطي (لسبب ما) {بلدي ($ فئة، @ args) = @؛ تمر "ولكن سيتم تخطي هذا الاختبار"؛ فشل "ولكن سيتم تخطي هذا الاختبار، إما"؛ } # يجب أن تعمل ToDo كما تتوقع أيضا. Sub May_Fail: اختبارات TODO (لسبب ما) {My ($ فئة، @ args) =_؛ فشل "حتى يتم تنفيذ شيء ما"؛ } # يمكنك إضافة أي سمات للحد من Test_For_Model: Test Model {My ($ فئة، ARGS) = @؛ # يمكنك استخدام $ class-> test_name لإظهار اسم اختبار اختبار $ فئة $-> test_name؛ # "Test_For_Model"} المتطلبات: perl.

اختبار :: أنيق برامج ذات صلة