6 use Test::More no_plan => 1;
10 use_ok('MooseX::Storage');
21 has 'cycle' => (is => 'rw', isa => 'Circular');
25 my $circular = Circular->new;
26 isa_ok($circular, 'Circular');
28 $circular->cycle($circular);
32 } qr/^Basic Engine does not support cycles/,
33 '... cannot collapse a cycle with the basic engine';
37 my $packed_circular = { __CLASS__ => 'Circular' };
38 $packed_circular->{cycle} = $packed_circular;
41 Circular->unpack($packed_circular);
42 } qr/^Basic Engine does not support cycles/,
43 '... cannot expand a cycle with the basic engine';