Test :: PoE :: Client :: TCP test :: poE :: client :: tcp ist eine poE-Komponente, die TCP-Clientdienste für Testfälle anbietet.
Jetzt downloaden

Test :: PoE :: Client :: TCP Ranking & Zusammenfassung

Test :: PoE :: Client :: TCP Stichworte

TCP Tests Piepen POE-Komponente Testfälle TCP-Client-Services.

Test :: PoE :: Client :: TCP Beschreibung

Test :: POE :: Client-:: TCP ist eine POE-Komponente, die TCP-Client-Dienste für Testfälle zur Verfügung stellt. Test :: POE :: Client-:: TCP ist eine POE-Komponente, die für Test cases.SYNOPSIS use strict TCP-Client-Dienste zur Verfügung stellt; verwenden Socket; Verwendung Test :: More tests => 15; Verwendung POE qw (Rad :: Socket Rad :: Readwrite Filter :: Line); Verwendung Test :: POE :: Client-:: TCP; mein @ data = ( Dies ist ein Test, Dies ist ein weiterer Test, Dies ist der letzte Test); POE :: Session-> erstellen (package_states => ], Haufen => {data => @ data,}); $ poe_kernel-> run (); Ausfahrt 0; Unter _start {my ($ Kernel, $ Heap) = @_ ; $ Heap -> {Hörer} = POE :: Rad :: SocketFactory-> new (BindAddress => '127.0.0.1', SuccessEvent => '_accept', FailureEvent => '_failed', SocketDomain => AF_INET, # Setzt die (socket) Bereich socket => SOCK_STREAM, # Stellt die Buchse () Typ SocketProtocol => 'TCP', # Stellt die socket () Protokoll Reuse => 'auf', # Lets der Port wieder verwendet werden); $ Heap -> {TestC} = Test :: POE :: Kunde :: TCP-> Spawn (); Rückkehr; } Sub _accept {my ($ Kernel, $ heap, $ socket) = @_ ; my $ Rad = POE :: Rad :: ReadWrite-> new (Handle => $ socket, Inputevent => '_sock_in', Errorevent => '_sock_err'); $ Heap -> {Räder} -> {$ Räder-> ID} $ Rad =; Rückkehr; } Sub _failed {my ($ Kernel, $ heap, $ Betrieb, $ errnum, $ errstr, $ wheel_id) = @_ ; sterben "Wheel $ wheel_id $ Betriebsfehler $ errnum erzeugt: $ errstrn"; Rückkehr; } Sub _sock_in {my ($ heap, $ input, $ wheel_id) = @_ ; Durchlauf ( 'Got Eingabe vom Client'); $ Heap -> {Räder} -> {$ wheel_id} -> put ($ input) if $ heap -> {Räder} -> {$ wheel_id}; Rückkehr; } Sub _sock_err {my ($ heap, $ wheel_id) = @_ ; Durchlauf ( 'Client getrennt'); löschen $ heap -> {Räder} -> {$ wheel_id}; Rückkehr; } Sub testc_registered {my ($ Kernel, $ sender, $ object) = @_ ; Pass ($ _ ); my $ port = (sockaddr_in ($ _ -> {Hörer} -> getsockname ())) ; $ Kernel-> post ($ sender, 'connect', {address => '127.0.0.1', port => $ port}); Rückkehr; } Sub testc_connected {my ($ Kernel, $ heap, $ sender) = @_ ; Pass ($ _ ); $ Kernel-> post ($ sender, 'send_to_server', $ heap -> {data} -> ); Rückkehr; } Sub testc_flushed {Pass ($ _ ); Rückkehr; } Sub testc_input {my ($ heap, $ input) = @_ ; Pass ( Haben Sie etwas vom Server); meine $ data = shift @ {$ heap -> {data}}; ok ($ input eq $ data "Daten angepasst: '$ input'"); es sei denn, (Skalar @ {$ heap -> {data}}) {$ heap -> {TestC} -> beenden (); Rückkehr; } $ Poe_kernel-> post ($ _ , 'send_to_server', $ heap -> {data} -> ); Rückkehr; } Sub testc_disconnected {my ($ heap, $ Zustand) = @_ ; Pass ($ state); löschen $ heap -> {} Räder; löschen $ heap -> {Zuhörer}; $ Heap -> {TestC} -> shutdown (); Rückkehr; } Anforderungen: · Perl.

Test :: PoE :: Client :: TCP Zugehörige Software