X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=t%2Freconnect.t;fp=t%2Freconnect.t;h=0000000000000000000000000000000000000000;hp=4d99de2b009c1fdf1e1b904d2db87d6988ddaddb;hb=8c3529062a426181861d58ee59fb8f10e0be68e5;hpb=1673aa538a25ee18a7e8b2af7d039f989f71c737 diff --git a/t/reconnect.t b/t/reconnect.t deleted file mode 100644 index 4d99de2..0000000 --- a/t/reconnect.t +++ /dev/null @@ -1,44 +0,0 @@ -use strictures 1; -use Test::More; - -$ENV{OBJECT_REMOTE_TEST_LOGGER} = 1; - -use Object::Remote; -use Object::Remote::FromData; - -my $conn1 = Reconnector->new::on('-'); -my $conn2 = $conn1->connect; - -isa_ok($conn1, 'Object::Remote::Proxy'); -isa_ok($conn2, 'Object::Remote::Proxy'); - -my $root_pid = $$; -my $conn1_pid = $conn1->pid; -my $conn2_pid = $conn2->pid; - -ok($root_pid != $conn1_pid, "Root and conn1 are not the same interpreter instance"); -ok($root_pid != $conn2_pid, "Root and conn2 are not the same interpreter instance"); -ok($conn1_pid != $conn2_pid, "conn1 and conn2 are not the same interpreter instance"); - -ok($conn1->ping eq "pong", "Ping success on conn1"); -ok($conn2->ping eq "pong", "Ping success on conn2"); - -done_testing; - -__DATA__ - -package Reconnector; - -use Moo; - -sub connect { - return Reconnector->new::on('-'); -} - -sub pid { - return $$; -} - -sub ping { - return 'pong'; -}