Optimize is_deeply for large datastructures

[perl/modules/Test-Leaner.git] / t / 27-is_deeply-failing.t

diff --git a/t/27-is_deeply-failing.t b/t/27-is_deeply-failing.t
index b1b3d2fda266a248faa438ab7ce79db48bc00320..e36f9adceadf0ae8c4c47f9b8da7b73ecf620f64 100644 (file)
--- 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' } ] ],