10 plan skip_all => "MooseX::Storage::Format::JSONpm required for this test"
11 unless eval "require MooseX::Storage::Format::JSONpm; 1";
15 use_ok('MooseX::Storage');
23 with Storage(format => [ JSONpm => { json_opts => { pretty => 1 } } ] );
24 # with Storage(format => 'JSONpm');
26 has 'string' => ( is => 'ro', isa => 'Str' );
27 has 'float' => ( is => 'ro', isa => 'Num' );
35 isa_ok( $foo, 'Foo' );
37 my $json = $foo->freeze;
42 "there are newlines in our JSON, because it is pretty",