[perl #75502] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S03-operators/context-forcers.t

commit bcf95590569868d70c6181cc5ebceb0f911234dd
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Mon Aug 23 18:06:52 2010 +0000

    [t/spec] tests for %() hash context forcer; also tests RT #75502
    
    git-svn-id: http://svn.pugscode.org/p...@32089 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S03-operators/context-forcers.t 
b/t/spec/S03-operators/context-forcers.t
index c155fd3..7eb2f24 100644
--- a/t/spec/S03-operators/context-forcers.t
+++ b/t/spec/S03-operators/context-forcers.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 95;
+plan 100;
 
 #?DOES 1
 sub iis(Mu $a, Mu $b, $descr) {
@@ -198,6 +198,15 @@ sub eval_elsewhere($code){ eval($code) }
     is (@total[8], 888, "total[1] is 100");
 }
 
+{
+    ok %() ~~ Hash, '%() returns a Hash';
+    is +%(), 0, '%() is an empty Hash';
+    my $x = %(a => 3, b => 5);
+    is $x<a>, 3, 'hash constructor worked (1)';
+    is $x<b>, 5, 'hash constructor worked (1)';
+    is $x.keys.join(', '), 'a, b', 'hash constructor produced the right keys';
+}
+
 # the "upto" operator
 # L<S03/Symbolic unary precedence/"prefix:<^>">