--- /dev/null
+$:.unshift "../lib"\r
+require 'eventmachine'\r
+require 'test/unit'\r
+\r
+class TestObjectProtocol < Test::Unit::TestCase\r
+ Host = "127.0.0.1"\r
+ Port = 9550\r
+\r
+ module Server\r
+ include EM::P::ObjectProtocol\r
+ def post_init\r
+ send_object :hello=>'world'\r
+ end\r
+ def receive_object obj\r
+ $server = obj\r
+ EM.stop\r
+ end\r
+ end\r
+\r
+ module Client\r
+ include EM::P::ObjectProtocol\r
+ def receive_object obj\r
+ $client = obj\r
+ send_object 'you_said'=>obj\r
+ end\r
+ end\r
+\r
+ def test_send_receive\r
+ EM.run{\r
+ EM.start_server Host, Port, Server\r
+ EM.connect Host, Port, Client\r
+ }\r
+\r
+ assert($client == {:hello=>'world'})\r
+ assert($server == {'you_said'=>{:hello=>'world'}})\r
+ end\r
+end
\ No newline at end of file