X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F040_basic_utils.t;h=4d3f803530f9f02debe4c56ee928759508452a20;hb=160645455e5d1f9a19170bf4b7fce94ff839f42d;hp=1b65efdf5bd4840167d80a1932e93ee5bd53b017;hpb=5aaf0d463f679ad01264bf28125ade4c52888572;p=gitmo%2FMooseX-Storage.git

diff --git a/t/040_basic_utils.t b/t/040_basic_utils.t
index 1b65efd..4d3f803 100644
--- a/t/040_basic_utils.t
+++ b/t/040_basic_utils.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
@@ -7,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 = {
@@ -17,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
@@ -38,7 +36,7 @@ array:
   - 9
   - 10
 float: 10.5
-hash: 
+hash:
   1: ~
   10: ~
   2: ~
@@ -50,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/) {
+        die 'No JSON module found' if $ENV{AUTHOR_TESTING};
         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/
-    ) {
+    if ($@ =~ /^Could not load YAML module because/) {
+        die 'No YAML module found' if $ENV{AUTHOR_TESTING};
         skip "No YAML module found", 1;
-    }    
-    
-    is('Foo', $classname, 
+    }
+
+    is('Foo', $classname,
        '... got the right class name from the yaml item');
 }