X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F100_io.t;fp=t%2F100_io.t;h=b1e1504879e5652bc8a55a6518e0e679f76a1d19;hb=766ab81f59db9f3087e0011112ff2e69133a85c5;hp=887440908e31131ff50e4c6c0a3cf556bdb183a0;hpb=11d44bb52ca8164d34774985af7b550cfd0c60a0;p=gitmo%2FMooseX-Storage.git diff --git a/t/100_io.t b/t/100_io.t index 8874409..b1e1504 100644 --- a/t/100_io.t +++ b/t/100_io.t @@ -8,10 +8,10 @@ use Test::TempDir; use File::Spec::Functions; my $dir = tempdir; -BEGIN { +BEGIN { eval "use JSON::Any"; - plan skip_all => "JSON::Any is required for this test" if $@; - plan tests => 10; + plan skip_all => "JSON::Any is required for this test" if $@; + plan tests => 10; use_ok('MooseX::Storage'); } @@ -19,15 +19,15 @@ BEGIN { package Foo; use Moose; use MooseX::Storage; - + with Storage(format => 'JSON', io => 'File'); - + has 'number' => (is => 'ro', isa => 'Int'); has 'string' => (is => 'ro', isa => 'Str'); - has 'float' => (is => 'ro', isa => 'Num'); + has 'float' => (is => 'ro', isa => 'Num'); has 'array' => (is => 'ro', isa => 'ArrayRef'); - has 'hash' => (is => 'ro', isa => 'HashRef'); - has 'object' => (is => 'ro', isa => 'Object'); + has 'hash' => (is => 'ro', isa => 'HashRef'); + has 'object' => (is => 'ro', isa => 'Object'); } my $file = catfile( $dir, 'temp.json' );