Prueba :: Poe :: Cliente :: TCP Prueba :: PoE :: Cliente :: TCP es un componente POE que proporciona servicios de cliente TCP para casos de prueba.
Descargar ahora

Prueba :: Poe :: Cliente :: TCP Clasificación y resumen

Prueba :: Poe :: Cliente :: TCP Etiquetas

Tcp pruebas Poe Componente poe Casos de prueba servicios de cliente TCP

Prueba :: Poe :: Cliente :: TCP Descripción

Prueba :: PoE :: Cliente :: TCP es un componente POE que proporciona servicios de cliente TCP para casos de prueba. Prueba :: PoE :: Cliente :: TCP es un componente POE que proporciona servicios de cliente TCP para casos de prueba. Sessynopsis usa estricto; usar zócalo; Prueba de uso :: Más pruebas => 15; Use Poe QW (Rueda :: SocketFactory Wheel :: ReadWrite Filter :: Line); Prueba de uso :: PoE :: Cliente :: TCP; My @Data = ('Esto es una prueba', 'Esta es otra prueba', 'Esta es la última prueba',); PoE :: Session-> Crear (Package_States => ,], pila => {data => @data,},); $ poe_kernel-> corre (); Salida 0; sub _start {my ($ kernel, $ $ montones) = @_ ; $ montón -> {oyer} = poe :: rueda :: socketfactory-> nuevo (Bindaddress => '127.0.0.1', SuccessEvent => '_accept', FailureVent => '_Failed', SocketDomain => AF_INET, # establece el socket () sockettype => sock_stream, # configura el socket () tipo socketprotocol => 'tcp', # configura el socket () el protocolo reutilizar => 'on', # permite reutilizarse el puerto); $ Heap -> {testc} = prueba :: poe :: Cliente :: TCP-> Spewn (); regreso; } Sub _accept {My ($ kernel, $ montón, $ socket) = @_ ; My $ Wheel = Poe :: Rueda :: ReadWrite-> Nuevo (manejador => $ socket, entradavent => '_sock_in', errorevent => '_sock_err',); $ montón -> {ruedas} -> {$ Wheel-> ID} = $ Wheel; regreso; } Sub _Failed {My ($ Kernel, $ Montón, $ Operación, $ ERNUM, $ ERRSTR, $ SHELL_ID) = @_ ; Die "Wheel $ Wheel_ID generó $ ERROR OPERACIÓN $ ERNUM: $ ERRSTRN"; regreso; } Sub _Sock_in {My ($ Heap, $ Entrot, $ Wheel_ID) = @_ ; Pase ('Got Ingrese del cliente'); $ montón -> {wheels} -> {$ wheel_id} -> PUT ($ INPUT) IF $ Heap -> {Ruedas} -> {$ Wheel_ID}; regreso; } Sub _Sock_err {My ($ Heap, $ Weehead_ID) = @_ ; Pase ('Cliente desconectado'); Eliminar $ montones -> {wheels} -> {$ wheel_id}; regreso; } Sub Testc_registered {My ($ kernel, $ sender, $ objeto) = @_ ; Pase ($ _ ); My $ PORT = (SOCKADDR_IN ($ _ -> {SIJER} -> GetsockName ())) ; $ KERNEL-> POST ($ Sembrador, 'Connect', {Dirección => '127.0.0.1', Puerto => $ Puerto}); regreso; } Sub testc_connected {My ($ kernel, $ montones, $ sender) = @_ ; Pase ($ _ ); $ kernel-> Publicar ($ Sender, 'send_to_server', $ montones -> {datos} -> ); regreso; } Sub testc_flushed {pase ($ _ ); regreso; } Sub TestC_Input {My ($ Heap, $ INPUT) = @_ ; Pase ('Tengo algo de vuelta del servidor'); My $ DATA = SHIFT @ {$ Heap -> {DATOS}}; OK ($ DATA DE INTENCIÓN EQ $, "Funcionó los datos: '$ entrada'"); a menos que (Scalar @ {$ Heap -> {Data}}) {$ Heap -> {TESCC} -> Terminate (); regreso; } $ POE_KERNEL-> POST ($ _ , 'SEND_TO_SERVER', $ MILA -> {DATOS} -> ); regreso; } Sub testc_disconnectected {My ($ HEAP, $ ESTADO) = @_ ; Pase ($ estado); Eliminar $ montones -> {ruedas}; Eliminar $ Heap -> {SIJER}; $ Heap -> {TESCC} -> Apagado (); regreso; } Requisitos: · Perl

Prueba :: Poe :: Cliente :: TCP Software relacionado