X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Leaner.git;a=blobdiff_plain;f=t%2F27-is_deeply-failing.t;h=e36f9adceadf0ae8c4c47f9b8da7b73ecf620f64;hp=b1b3d2fda266a248faa438ab7ce79db48bc00320;hb=9c79bce8bb6da45e4a032fe8354d5bfc73a648bb;hpb=a8fda042e9e7dd2efb2ddaf654ad7f27ce9b77a9

diff --git a/t/27-is_deeply-failing.t b/t/27-is_deeply-failing.t
index b1b3d2f..e36f9ad 100644
--- a/t/27-is_deeply-failing.t
+++ b/t/27-is_deeply-failing.t
@@ -14,7 +14,7 @@ my $buf;
 capture_to_buffer $buf
              or plan skip_all =>'perl 5.8 required to test is_deeply() failing';
 
-plan tests => 3 * 2 * (30 + 1 + 2);
+plan tests => 3 * 2 * (32 + 1 + 2);
 
 my $shrunk = [ [ 1, 2, 3 ] => [ 1, 2, 3 ] ];
 delete $shrunk->[0]->[2];
@@ -45,6 +45,8 @@ my @tests = (
  [ [ 0 ]     => [ '' ] ],
  [ [ '' ]    => [ ]    ],
 
+ [ [ \1 ] => [ \"1.0" ] ],
+
  [ [ 1, undef, 3 ] => [ 1, 2, 3 ] ],
  [ [ 1, 2, undef ] => [ 1, 2 ] ],
  $shrunk,
@@ -57,6 +59,7 @@ my @tests = (
  [ { a => '' }    => { }         ],
 
  [ { a => 1 } => { 'A' => 1 } ],
+ [ { a => 1 } => { 'a' => \"1.0" } ],
 
  [ [ { a => 1 }, 2, { b => \3 } ] => [ { a => 1 }, 2, { b => \'3.0' } ] ],