اختبار :: Simpleunit. اختبار :: Simpleunit هو إطار اختبار وحدة البيرل المبسطة.
التحميل الان

اختبار :: Simpleunit. الترتيب والملخص

اختبار :: Simpleunit. العلامات

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

اختبار :: Simpleunit. وصف

اختبار :: Simpleunit هو إطار اختبار وحدة البيرل المبسطة. اختبار :: Simpleunit هو Framework Framework اختبار وحدة Perl المبسطة. استخدام اختبار الاستخدام :: SimpleUnit QW {: وظائف}؛ Runtests ({name => "test1"، test => sub {...}}}، {name => "testn"، test => sub {...}})؛ مثال على استخدام اختبار :: Simpleunit QW {: المهام}؛ # إذا فشلت وظيفة الإعداد أو دمعة، تخطي بقية الاختبارات اختبار :: Simpleunit :: AutoSkipFailedSetup (1)؛ اختبار :: Simpleunit :: autoskipfailedteardown (1)؛ بلدي مثيل $؛ بلدي $ contewasokay = 0؛ My Tests = (# تتطلب الوحدة النمطية {name => 'تتطلب "، اختبار => sub {# تأكد من تحميل الوحدة النمطية التي سيتم اختبارها. assertnoException {تتطلب myclass}؛ # حاول استيراد بعض الوظائف، وتوليد مخصص رسالة خطأ إذا فشل ذلك #. assertnoException {myclass-> استيراد (': myfuncs')} "فشل في استيراد: MyFuncs"؛ # تأكد من استيراد "الاستيراد ()" المستوردة فعلا الوظائف "رمز ASSERTREF"، * :: MyFunc {code}؛ رمز ASSERTREF '، * :: myotherfunc {code}؛ # قم بتعيين العلم للسماح لوظيفة الإعداد معرفة الوحدة المحمولة بخير $ come.wasokay = 1؛}،}، # وظيفة الإعداد (سيتم تشغيل هذا قبل أي الاختبارات التي تتبع) {الاسم => $ Instance = myclass جديد؛}،}، # وظيفة الدموع (سيتم تشغيل هذا بعد أي اختبارات تتبع) {name => 'tealdown'، test => sub {undef $ instance؛}،}، # اختبار الاتصال ( ) وفصله () ميثو DS {name => 'connect () والقطع ()' '، اختبار => SUB {بلدي $ RVAL؛ assertnoException {$ rval = $ instance-> connect}؛ قم بتأكيد RVAL $، "Connect فشل دون خطأ."؛ assertnoException {$ instance-> فصل}؛ }،}، # وظيفة الإعداد لمرة واحدة - تتجاوز الإعداد السابق، ولكن يتم التخلص منها على الفور بعد التنفيذ مرة واحدة. {name => 'setup'، funct => sub {myclass :: prepnetwork ()؛ }،}، تجاهل الآن وظيفة الإعداد السابقة مع واحدة جديدة لا يقوم بها Connect () قبل كل اختبار المتبقي. {name => "الإعداد"، اختبار => sub {$ مثيل = myclass جديد؛ $ Instance-> الاتصال؛ }،} # # نفس الشيء للدموع / فصل () {name => 'tealdown'، اختبار => sub {$ instance-> قطع الاتصال؛ التراجع $ مثيل؛ }،}، ...)؛ runtests (stestsuite)؛ متطلبات: perl.

اختبار :: Simpleunit. برامج ذات صلة