[perl #73460] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S02-builtin_data_types/whatever.t

commit 00c99647a074586660ac551d94a564fdd29c842a
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Thu Jul 15 19:04:00 2010 +0000

    [t/spec] tests for RT #73460, Whatever stars and variables
    
    git-svn-id: http://svn.pugscode.org/p...@31714 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S02-builtin_data_types/whatever.t 
b/t/spec/S02-builtin_data_types/whatever.t
index 30d572a..94898d3 100644
--- a/t/spec/S02-builtin_data_types/whatever.t
+++ b/t/spec/S02-builtin_data_types/whatever.t
@@ -8,7 +8,12 @@ plan *;
 
 {
     my $x = *;
-    ok($x.isa(Whatever), 'can assign * to a variable and isa works');
+    isa_ok $x, Whatever, 'can assign * to a variable and isa works';
+
+    my Whatever $y;
+    ok $y.WHAT === Whatever, 'can type variables with Whatever';
+
+    ok *.WHAT === Whatever, '*.WHAT does not autocurry';
 }
 
 # L<S02/Built-In Data Types/"Most of the built-in numeric operators">