מבחן :: Simpleunit. מבחן :: Simpleunit היא מסגרת בודדת יחידת פרל פשוטה.
הורד עכשיו

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

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

מִסגֶרֶת פרל מודול perl במסגרת Perl מסגרת בדיקה יחידה

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

מבחן :: Simpleunit היא מסגרת בודדת יחידת פרל פשוטה. מבחן :: Simpleunit היא פשוטה perl יחידת בדיקה מסגרת.Synopsis להשתמש בדיקה :: Simpleunit QW {: פונקציות}; Runtests ({name => "test1", בדיקה => משנה {...}}}} {name => "testn", בדיקה => משנה {...}}); דוגמה שימוש בדיקה :: Simpleunit QW {: פונקציות}; # אם ההתקנה או פונקציה tingown נכשלה, לדלג על שאר הבדיקות :: Simpleunit :: AutoskipFailedup (1); מבחן :: Simpleunit :: AutoskipFailedDrown (1); הדואר שלי; שלי requirewasokay = 0; שלי @tests = (# דורשים את המודול {name => 'דרוש', הבדיקה => תת {# ודא שנוכל לטעון את המודול כדי להיבדק הודעת שגיאה אם זה. {Code}; קוד assertref ', * :: myotherfunc {code}; # הגדר את הדגל כדי לאפשר לפונקציית ההתקנה יודעת שהמודול נטען בסדר $ RiskeWasoKay = 1;},}} בדיקות אשר עוקבות) {name => 'setup', מבחן => משנה {# אם הבדיקה הקודמת לא סיימה, זה בלתי נתמך, כך פשוט לדלג על # המודעות של בדיקות Skipall "מודול נכשל" אלא אם כן requirwasokay; $ מופע = MyClass חדש;},}, # פונקציית cardown (זה יהיה לרוץ לאחר כל בדיקות אשר בצע) {שם => 'teardown', מבחן => משנה {Undef $ למשל;}, # בדוק את התחבר ( ) ולנתק () metho DS {name => 'התחבר () ובנתק ()', מבחן => תת {שלי RVAL; assertnoException {$ rval = $ למשל-> התחבר}; טוען $ RVAL, Msgstr "חיבור נכשל ללא שגיאה"; assertnoException {$ מופע-> נתק}; },}, # פונקציית ההתקנה חד פעמית - עוקפת את ההתקנה הקודמת, אך היא מסודרת מיד לאחר ביצוע פעם אחת. {name => 'הגדרה', func => משנה {myclass :: prepnetwork (); },}, # עכשיו לעקוף את פונקציית ההתקנה הקודמת עם אחד חדש שעושה # התחברות () לפני כל מבחן שנותר. {name => 'הגדרה', מבחן => משנה {$ למשל = MyClass חדש; $ מופע-> התחבר; },} # אותו דבר עבור teardown / ניתוק () {name => 'teardown', מבחן => תת {$ מופע-> נתק; Undef $ למשל; },}, ...); Runtests (@testsuite); דרישות: · פרל

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