diag parsed structures under verbose testing

bestpractical · Jan 26, 2011 · cd8346e · cd8346e
1 parent c33630e
commit cd8346e
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/t/parse.t b/t/parse.t
@@ -15,6 +15,10 @@ foreach my $spec (qw(0.6 0.7)) {
             ok($got, "parsed '$file' in $version version mode");
             my $expected = LoadFile( substr($file, 0, -3) .'yaml' );
             is_deeply($got, $expected, 'data matches expected');
+            if ( $ENV{'TEST_VERBOSE'} ) {
+                require Data::Dumper;
+                diag( Data::Dumper::Dumper( $got ) );
+            }
         }
     }
 }