=== modified file 't/02server.t'
--- t/02server.t 2014-07-17 23:50:32 +0000
+++ t/02server.t 2017-01-08 00:35:34 +0000
@@ -111,11 +111,16 @@
is_oneref( $server, '$server has refcount 1 before shutdown' );
-memory_cycle_ok( $obj, '$obj has no memory cycles' );
-memory_cycle_ok( $registry, '$registry has no memory cycles' );
-# Can't easily do $server yet because Devel::Cycle will throw
-# Unhandled type: GLOB at /usr/share/perl5/Devel/Cycle.pm line 107.
-# on account of filehandles
+{
+ no warnings 'redefine';
+ local *Tangence::Property::Instance::_forbid_arrayification = sub {};
+
+ memory_cycle_ok( $obj, '$obj has no memory cycles' );
+ memory_cycle_ok( $registry, '$registry has no memory cycles' );
+ # Can't easily do $server yet because Devel::Cycle will throw
+ # Unhandled type: GLOB at /usr/share/perl5/Devel/Cycle.pm line 107.
+ # on account of filehandles
+}
$conn->close;
undef $server;
=== modified file 't/04xlink.t'
--- t/04xlink.t 2015-06-14 12:31:20 +0000
+++ t/04xlink.t 2017-01-08 00:35:34 +0000
@@ -61,14 +61,19 @@
# That'll do; everything should be tested by Tangence itself
-memory_cycle_ok( $obj, '$obj has no memory cycles' );
-memory_cycle_ok( $registry, '$registry has no memory cycles' );
-memory_cycle_ok( $objproxy, '$objproxy has no memory cycles' );
-
-# Deconfigure the connection otherwise Devel::Cycle will throw
-# Unhandled type: GLOB at /usr/share/perl5/Devel/Cycle.pm line 107.
-# on account of filehandles
-$client->configure( handle => undef );
-memory_cycle_ok( $client, '$client has no memory cycles' );
+{
+ no warnings 'redefine';
+ local *Tangence::Property::Instance::_forbid_arrayification = sub {};
+
+ memory_cycle_ok( $obj, '$obj has no memory cycles' );
+ memory_cycle_ok( $registry, '$registry has no memory cycles' );
+ memory_cycle_ok( $objproxy, '$objproxy has no memory cycles' );
+
+ # Deconfigure the connection otherwise Devel::Cycle will throw
+ # Unhandled type: GLOB at /usr/share/perl5/Devel/Cycle.pm line 107.
+ # on account of filehandles
+ $client->configure( handle => undef );
+ memory_cycle_ok( $client, '$client has no memory cycles' );
+}
done_testing;
