Add a test for HASH->each as it exists now.

For #142
evalEmpire · Sep 27, 2011 · 046419f · 046419f
1 parent bfb1133
commit 046419f
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/t/each.t b/t/each.t
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+
+use perl5i::latest;
+use Test::More;
+
+note "each with no signature"; {
+    my %want = (foo => 23, bar => 42);
+
+    my %have;
+    %want->each( sub { $have{$_[0]} = $_[1] } );
+
+    is_deeply \%have, \%want;
+}
+
+done_testing;