[perl #68482] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S32-hash/delete.t

commit 70175c0637b100a6ab84762fcbeef4f888c78c4f
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Mon Oct 26 03:41:53 2009 +0000

    [t/spec] Test for RT #68482
    
    git-svn-id: http://svn.pugscode.org/p...@28894 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S32-hash/delete.t b/t/spec/S32-hash/delete.t
index 04c6549..2273ec1 100644
--- a/t/spec/S32-hash/delete.t
+++ b/t/spec/S32-hash/delete.t
@@ -1,7 +1,7 @@
 use v6;
 
 use Test;
-plan 9;
+plan *;
 
 # L<S02/Names and Variables/:delete>
 
@@ -45,5 +45,18 @@ ok !defined(%hash{"a"}), "deleted hash elements are really 
deleted";
     eval_dies_ok '$a :delete', "Can't :delete a scalar";
 }
 
+# RT #68482
+{
+    my %rt68482 = 1 => 3;
+    #?rakudo todo 'RT 68482'
+    is %rt68482.delete(1).WHAT, 3.WHAT, '.delete.WHAT is the element';
+
+    %rt68482 = 1 => 3;
+    my $rt68482 = %rt68482.delete(1);
+    #?rakudo todo 'RT 68482'
+    is $rt68482.WHAT, 3.WHAT, '.WHAT of stored .delete is the element';
+}
+
+done_testing;
 
 # vim: ft=perl6