מבחן :: mockclass. מבחן :: mockclass הוא מודול perl כדי לספק שיעורים מדומים ואובייקטים מדומים לבדיקה.
הורד עכשיו

מבחן :: mockclass. דירוג וסיכום

מבחן :: mockclass. תגים

פרל מודול כיתות לִלְעוֹג אובייקטים מדומים שיעורים מדומים

מבחן :: mockclass. תיאור

מבחן :: mockclass הוא מודול perl לספק שיעורים מדומים אובייקטים לועגים לבדיקה. מבחן :: Mockclass הוא מודול Perl כדי לספק שיעורים מדומים ואובייקטים ללעוג לבדיקה. Synopsis # לעבור שם המחלקה ואת הגירסה שברצונך ללעוג לבדוק את הבדיקה :: mockclass qw {classtomock 1.1}; # יצירת אובייקט mockclass כדי לטפל בכיתה מסוימת שלי mockclass = מבחן :: mockclass-> חדש ('classtomock'); # ציין לרשת מתוך מחלקה אמיתית, או בכיתה לעגל: $ mockclass-> urnitifrom ('io :: Socket'); # לעשות בנאי עבור הכיתה, יכול גם להשתמש 'addmethod' לקבלת שליטה יותר $ שליטה $ mockclass-> ברירת המחדל של ברירת המחדל (% classwisebliles); # הוסף שיטה: $ mockclass-> addmethod ('שיטה', $ CodeRef); # הוסף שיטה פשוטה יותר, ולציין ערכי החזרה כי זה יחזור אוטומטית $ mockclass-> setreturnvalues ('methingname2', 'תמיד', 3); # יצירת מופע של המעמד לעג: שלי mockobject = $ mockclass-> יצירת (% instancata); # הגדר את הזמנת השיחה הרצויה עבור השיטות: $ mockclass-> Setcallorder ('שיטה' ',' שיטה ',' שיטה '); # הפעל בדיקות באמצעות מחלקה מדומה במקומות אחרים: #: בכיתה כדי לבדוק: איליוני משנה {return classtomock-> חדש; } #: בקוד הבדיקה שלך: טענה ($ testobj-> אובייקט-> ISA ("classtomock")); # קבל את מזהה האובייקט למשך שארית השיטות: $ OventID = "$ mockobject"; #or $ eventid = $ mockclass-> getnextobjjectid (); # ודא כי השיטות נקראו בסדר הנכון: אם ($ mockclass-> VerifyCallorder ($ OventId)) {# לעשות משהו} # קבל את ההזמנה כי השיטות נקראו: שלי @calls = $ mockclass-> getcallorder ($ אובייקטיד); # קבל את רשימת הארגומנטים שחלפו לכל שיחה: @ arglist = $ mockclass-> getargumentlist ($ oversid, 'שיטה', $ Callposition); # קבל את רשימת הנגישות שבוצעו לתכונה מסוימת (HACKKEY ב- $ mockobject) שלי @Accesses = $ mockclass-> getattributeaccess ($ oversid, 'תכונה'); דרישות: · פרל

מבחן :: mockclass. תוכנה קשורה