uncomment out some test

syohex · Feb 19, 2012 · 186eedf · 186eedf
1 parent 8979954
commit 186eedf
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/t/12_unzip_by.t b/t/12_unzip_by.t
@@ -15,9 +15,11 @@ is_deeply( [ unzip_by { $_, $_ } qw/a b c/ ], \@expected, 'clone function' );
 
 @expected = ([ qw/a b c/ ], [ 1, 2, 3 ]);
 is_deeply( [ unzip_by { m/(.)/g } qw/a1 b2 c3/ ], \@expected, 'regexp match function' );
-use YAML; die YAML::Dump([ unzip_by { m/(.)/g } qw/a1 b2 c3/ ]);
-#
-#@expected = ([ qw/a b c/ ], [ undef, 2, undef ]);
-#is_deeply( [ unzip_by { m/(.)/g } qw/a b2 c/ ], \@expected, 'non-rectangular adds undef' );
+
+@expected = ([ qw/a b c/ ], [ undef, 2, undef ]);
+is_deeply( [ unzip_by { m/(.)/g } qw/a b2 c/ ], \@expected, 'non-rectangular adds undef' );
+
+@expected = ([ qw/a b c/ ], [ 'A', 2, undef ], [ 1, undef, undef ]);
+is_deeply( [ unzip_by { m/(.)/g } qw/aA1 b2 c/ ], \@expected, 'non-rectangular adds undef2' );
 
 done_testing;