Test :: Poe :: Klant :: TCP Test :: Poe :: Client :: TCP is een POE-component met TCP-clientservices voor testcases.
Download nu

Test :: Poe :: Klant :: TCP Rangschikking & Samenvatting

Test :: Poe :: Klant :: TCP Tags

TCP tests Poe PoE-component testcases TCP-clientservices

Test :: Poe :: Klant :: TCP Beschrijving

Test :: Poe :: Client :: TCP is een POE-component die TCP-clientservices biedt voor testcases. Test :: Poe :: Client :: TCP is een POE-component die TCP-clientservices biedt voor testcases. Synopsis Gebruik streng; Gebruik de contactdoos; Gebruik Test :: Meer tests => 15; Gebruik POE QW (Wheel :: SocketFactory Wheel :: Readwrite Filter :: LINE); Gebruik Test :: Poe :: Klant :: TCP; Mijn @DATA = ('Dit is een test', 'dit is een andere test', 'dit is de laatste test',); POE :: SESSIE-> Maken (pakket_states => ,], heap => {gegevens => @Data,},); $ poe_kernel-> run (); afslag 0; sub _start {mijn ($ kernel, $ heap) = @_ ; $ heap -> {luisteraar} = Poe :: Wheel :: SocketFactory-> Nieuwe (Bindaddress => '127.0.0.1', Succesevent => '_Accept', failureevent => '_failed', socketdomain => af_inet, # Sets the Socket () Domein SocketType => Sock_Stream, # Stelt de Socket () Type SocketProtocol => 'TCP', # Stelt de socket () Protocol opnieuw in => 'Aan', # laat de poort opnieuw worden gebruikt); $ heap -> {testc} = test :: poe :: client :: tcp-> spawn (); opbrengst; } sub _accept {mijn ($ kernel, $ heap, $ socket) = @_ ; Mijn $ Wheel = PoE :: Wheel :: ReadWrite-> Nieuw (handvat => $ socket, inputEvent => '_Sock_in', errorEvent => '_Sock_err',); $ heap -> {wielen} -> {$ wheel-> id} = $ wiel; opbrengst; } sub _failed {mijn ($ kernel, $ heap, $ operatie, $ errnum, $ errstr, $ wheel_id) = @_ ; Die "Wheel $ Wheel_id gegenereerd $ bedieningsfout $ errnum: $ ERSRRN"; opbrengst; } sub _sock_in {mijn ($ heap, $ ingang, $ wheel_id) = @_ ; pass ('is input van client'); $ heap -> {wielen} -> {$ wheel_id} -> put ($ ingang) als $ heap -> {wielen} -> {$ wheel_id}; opbrengst; } sub _Sock_err {My ($ heap, $ wheel_id) = @_ ; pass ('client losgekoppeld'); Verwijder $ heap -> {wielen} -> {$ wheel_id}; opbrengst; } subtestC_registerie {My ($ kernel, $ afzender, $ object) = @_ ; pass ($ _ ); mijn $ poort = (Sockaddr_in ($ _ -> {luisteraar} -> GetockName ())) ; $ Kernel-> Post ($ Sender, 'Connect', {Adres => '127.0.0.1', poort => $ poort}); opbrengst; } subtestC_Connected {My ($ kernel, $ heap, $ sender) = @_ ; pass ($ _ ); $ kernel-> post ($ afzender, 'send_to_server', $ heap -> {gegevens} -> ); opbrengst; } subtestC_fushed {pass ($ _ ); opbrengst; } subtestC_input {My ($ heap, $ ingang) = @_ ; pass ('iets terug van de server'); My $ Data = Shift @ {$ heap -> {gegevens}}; OK ($ invoer EQ $-gegevens, "Gegevens overeenkomen: '$ Input'"); Tenzij (Scalar @ {$ heap -> {gegevens}}) {$ heap -> {testc} -> beëindiging (); opbrengst; } $ poe_kernel-> post ($ _ , 'Send_to_Server', $ heap -> {gegevens} -> ); opbrengst; } SubtestC_Disconnected {My ($ heap, $ State) = @_ ; pass ($ status); Verwijder $ heap -> {wielen}; Verwijder $ heap -> {luisteraar}; $ heap -> {testc} -> shutdown (); opbrengst; } Vereisten: · Perl

Test :: Poe :: Klant :: TCP Gerelateerde software