מבחן :: POE :: לקוח :: TCP מבחן :: POE :: לקוח :: TCP הוא רכיב POE המספק שירותי לקוח TCP למקרים מבחן.
הורד עכשיו

מבחן :: POE :: לקוח :: TCP דירוג וסיכום

מבחן :: POE :: לקוח :: TCP תגים

Tcp בדיקות פו רכיב POE מקרי מבחן שירותי לקוחות TCP.

מבחן :: POE :: לקוח :: TCP תיאור

מבחן :: POE :: Client :: TCP הוא מרכיב POE המספק שירותי לקוח TCP עבור מקרי מבחן. מבחן :: POE :: Client :: TCP הוא מרכיב POE המספק שירותי לקוח TCP עבור מבחן השימוש cases.SYNOPSIS קפדנית; להשתמש Socket; נוסף לשימוש מבחן :: בדיקות => 15; QW השימוש POE (גלגל :: SocketFactory גלגל :: מסנן ReadWrite :: Line); השימוש מבחן :: POE :: Client :: TCP; @data שלי = ( "זהו מבחן", "זהו עוד מבחן", "זהו המבחן האחרון",); POE :: פעילויות באתר> ליצור (package_states => ,], ערימה => {נתונים => @data,},); $ Poe_kernel-> הפעלה (); יציאה 0; תת _start {שלי (kernel $, $ ערימה) = @_ ; ערימה $ -> {המאזין} = POE :: גלגל :: SocketFactory-> חדשות (BindAddress => '127.0.0.1', SuccessEvent => '_accept', FailureEvent => '_failed', SocketDomain => AF_INET, # מגדיר שקע () תחום SocketType => SOCK_STREAM, # קובע את שקע () הקלד SocketProtocol => 'TCP', # קובע את שקע (פרוטוקול) Reuse => 'על', # בואו לנמל לעשות בה שימוש חוזר); ערימה $ -> {testc} = מבחן :: POE :: Client :: TCP-> שרצים (); לַחֲזוֹר; } תת _accept {שלי (kernel $, $ הערימה, $ socket) = @_ ; גלגל $ שלי = POE :: גלגל :: ReadWrite-> חדשות (ידית => שקע $, InputEvent => '_sock_in', ErrorEvent => '_sock_err',); ערימה $ -> {גלגלים} -> {$ wheel-> ID} = גלגל $; לַחֲזוֹר; תת} _failed {שלי (kernel $, $ הערימה, $ המבצע, $ errnum, $ errstr, $ wheel_id) = @_ ; למות "גלגל $ wheel_id שנוצר errnum $ שגיאה במבצע $: $ errstrn"; לַחֲזוֹר; _sock_in תת} {שלי ($ הערימה, $ קלט, $ wheel_id) = @_ ; עוברים ( "קלט Got מלקוח"); ערימה $ -> {גלגלים} -> {$ wheel_id} -> put ($ קלט) אם $ ערימה -> {גלגלים} -> {$ wheel_id}; לַחֲזוֹר; } תת _sock_err {שלי ($ הערימה, $ wheel_id) = @_ ; עוברים ( "לקוח מנותק"); למחוק $ ערימה -> {גלגלים} -> {$ wheel_id}; לַחֲזוֹר; תת} testc_registered {שלי ($ הקרנל, $ השולח, $ אובייקט) = @_ ; עובר ($ _ ); יציאת $ שלי = (sockaddr_in ($ _ -> {המאזין} -> getsockname ())) ; $ בגרעין פוסט> ($ שולח, 'התחבר', {כתוב => '127.0.0.1', יציאה => $ יציאת}); לַחֲזוֹר; תת} testc_connected {שלי ($ הקרנל, $ הערימה, $ השולח) = @_ ; עובר ($ _ ); $ בגרעין פוסט> ($ השולח, 'send_to_server', $ ערימה -> {נתוני} -> ); לַחֲזוֹר; תת} testc_flushed {pass ($ _ ); לַחֲזוֹר; testc_input תת} {שלי ($ הערימה, $ קלט) = @_ ; עוברים ( "בחזרה משהו Got מהשרת"); נתוני $ שלי = משמרת @ {$ ערימה -> {נתון}}; OK ($ נתוני $ הקלט EQ, "נתונים מתאימים: '$ קלט'"); אלא אם כן (סקלר @ {$ ערימה -> {נתוני}}) {ערימה $ -> {testc} -> לסיים (); לַחֲזוֹר; } $ Poe_kernel-> פוסט ($ _ , 'send_to_server', $ ערימה -> {נתוני} -> ); לַחֲזוֹר; תת} testc_disconnected {שלי ($ הערימה, $ המדינה) = @_ ; עובר (מדינת $); למחוק $ ערימה -> {גלגלים}; למחוק $ ערימה -> {מאזין}; ערימת $ -> {testc} -> כיבוי (); לַחֲזוֹר; } דרישות: · פרל

מבחן :: POE :: לקוח :: TCP תוכנה קשורה