X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F040_basic_utils.t;h=8d2e299d0784bb42826bec1d10478871ad4af528;hb=2f3976d17c78e0ac58a7b318a57c90971ede5e4e;hp=1079688a2370515b9cb89f2eab46eb25335215b0;hpb=81a84db6ebe5ec540d0035fc6d1104cc49c81e25;p=gitmo%2FMooseX-Storage.git diff --git a/t/040_basic_utils.t b/t/040_basic_utils.t index 1079688..8d2e299 100644 --- a/t/040_basic_utils.t +++ b/t/040_basic_utils.t @@ -5,7 +5,7 @@ use Test::More tests => 5; BEGIN { use_ok('MooseX::Storage'); - use_ok('MooseX::Storage::Util'); + use_ok('MooseX::Storage::Util'); } my $packed = { @@ -15,16 +15,16 @@ my $packed = { float => 10.5, array => [ 1 .. 10 ], hash => { map { $_ => undef } ( 1 .. 10 ) }, - object => { - __CLASS__ => 'Foo', - number => 2 - }, + object => { + __CLASS__ => 'Foo', + number => 2 + }, }; my $json = '{"array":[1,2,3,4,5,6,7,8,9,10],"hash":{"6":null,"3":null,"7":null,"9":null,"2":null,"8":null,"1":null,"4":null,"10":null,"5":null},"float":10.5,"object":{"number":2,"__CLASS__":"Foo"},"number":10,"__CLASS__":"Foo","string":"foo"}'; -my $yaml = q{--- +my $yaml = q{--- __CLASS__: Foo -array: +array: - 1 - 2 - 3 @@ -36,7 +36,7 @@ array: - 9 - 10 float: 10.5 -hash: +hash: 1: ~ 10: ~ 2: ~ @@ -48,38 +48,38 @@ hash: 8: ~ 9: ~ number: 10 -object: +object: __CLASS__: Foo number: 2 string: foo }; -is('Foo', MooseX::Storage::Util->peek($packed), +is('Foo', MooseX::Storage::Util->peek($packed), '... got the right class name from the packed item'); SKIP: { - my $classname = eval { - MooseX::Storage::Util->peek($json => ('format' => 'JSON')) + my $classname = eval { + MooseX::Storage::Util->peek($json => ('format' => 'JSON')) }; if ($@ =~ /^Could not load JSON module because/) { skip "No JSON module found", 1; } - is('Foo', $classname, + is('Foo', $classname, '... got the right class name from the json item'); } SKIP: { - my $classname = eval { + my $classname = eval { MooseX::Storage::Util->peek($yaml => ('format' => 'YAML')) }; if ($@ =~ /^Could not load YAML module because/ or $@ =~ /^Can't locate Best/ ) { skip "No YAML module found", 1; - } - - is('Foo', $classname, + } + + is('Foo', $classname, '... got the right class name from the yaml item'); }