מבחן :: Classy. כתוב את בדיקות היחידה שלך במודולים אחרים מאשר *
הורד עכשיו

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

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

פרל מודול perl בדיקות יחידה בדיקות יחידה

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

כתוב את בדיקות היחידה שלך במודולים אחרים מאשר * מבחן :: Classy הוא מודול Perl לכתוב בדיקות היחידה שלך במודולים אחרים מאשר * .t.Synopsisin קובץ הבדיקה שלך (t / some_test.t): השתמש lib 't / lib'; השתמש במבחן :: Classy; השתמש MyApp :: דגם :: DB; # הכן דברים שאתה רוצה להשתמש בבדיקות (אם אתה מעדיף) שלי db = myapp :: דגם :: DB-> להתחבר; # לטעון כל חבילות בדיקה נמצאו תחת MyApp :: בדיקה :: ROOT_TESTS_FROM 'MyApp :: מבחן'; # או לטעון אותו במפורש load_test 'myapp :: Otherest :: Forseomething'; # אתה יכול להגביל בדיקות רק עם תכונה מודל מגביל_Tests_by 'מודל'; # להפעיל כל אחד מבדיקות ($ db יהיה מועבר כרגיע) # בדרך כלל אתה לא צריך להכריז על תוכנית הבדיקות כאן. Run_tests ($ db); # בואו נעשה כמה ניקוי סוף {$ db-> נתק; } ב יחידה שלך מבחן בכיתה: החבילה MyApp :: מבחן :: משהו; השתמש בדיקה :: קלאסי :: בסיס; # כתוב 'בדיקה' תכונה לבדיקת תת For_some: מבחן {שלי ($ Class, @Args) = @_; # כמה מבחן יחידה אישור 1, "אתה יכול להשתמש במבחן :: עוד פונקציות של ברירת המחדל"; } # אתה יכול להכריז על מספר הבדיקות ב יחידה תת For_others: בדיקות (2) {שלי ($ class, @args) = @_; לעבור "ראשון"; לעבור 'שנית'; } # בדיקות יהיה לדלג עם 'דלג' תכונה תת Yew_another: בדיקות (2) לדלג (מסיבה כלשהי) {שלי ($ class, @args) = @_; לעבור 'אבל מבחן זה יהיה דילוג'; להיכשל "אבל מבחן זה יהיה דילוג, או"; } # Todo צריך לעבוד כפי שאתה מצפה, מדי. SUB May_Fail: בדיקות Todo (מסיבה כלשהי) {שלי ($ class, @args) = @_; להיכשל "עד שמשהו מיושם"; } # תוכל להוסיף תכונות כלשהן כדי להגביל את Test_for_model: מודל הבדיקה {שלי ($ Class, @Args) = @_; # אתה יכול להשתמש $ class-> test_name כדי להציג את שם הבדיקה לעבור $ class-> test_name; # "test_for_model"} דרישות: · פרל

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