X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=t%2Ftied.t;h=696f07c5ef6aabf18a4de7d463e2aeac8c7e7923;hp=e22ee2edc05d0a8ec1906892c008ad96b9de19eb;hb=dd6e1327e96d5488e34f7519d9d3290627c9bbe8;hpb=f129bfaf05b1ae0e2e2992cad47a70482dec9885 diff --git a/t/tied.t b/t/tied.t index e22ee2e..696f07c 100644 --- a/t/tied.t +++ b/t/tied.t @@ -4,11 +4,11 @@ use Test::More; 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); @@ -22,7 +22,7 @@ my $remote = ORTestTiedRemote->new::on($conn); 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'); @@ -37,9 +37,7 @@ is_deeply($remote_hash, { akey => 'a value' }, 'Hash is initialized properly'); %$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