use lib 't/lib';
use Tie::Array;
-use Tie::Hash;
+use Tie::Hash;
-require 't/logsetup.pl';
+$ENV{OBJECT_REMOTE_TEST_LOGGER} = 1;
-use Object::Remote;
+use Object::Remote;
use ORTestTiedRemote;
my @test_data = qw(1 5 10 30 80);
isa_ok($remote, 'Object::Remote::Proxy');
my $remote_array = $remote->array;
-my $remote_hash = $remote->hash;
+my $remote_hash = $remote->hash;
is(ref($remote_array), 'ARRAY', 'Array ref is array ref');
is(ref(tied(@$remote_array)), 'Object::Remote::Proxy', 'Array is tied to proxy object');
%$remote_hash = ();
do { my $i = 0; map { $remote_hash->{++$i} = $_ } @test_data };
-is($remote->sum_hash, $test_sum, 'Sum of hash values matches sum of test data');
+is($remote->sum_hash, $test_sum, 'Sum of hash values matches sum of test data');
done_testing;
-
-
\ No newline at end of file