[perl #68714] 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 dada8eb50be9e008fac26b67e35f3e1676ff5822
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Mon Oct 26 03:42:12 2009 +0000

    [t/spec] Test for RT 68714
    
    git-svn-id: http://svn.pugscode.org/p...@28895 
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 256cb3b..40fc7e6 100644
--- a/t/spec/S02-builtin_data_types/whatever.t
+++ b/t/spec/S02-builtin_data_types/whatever.t
@@ -92,6 +92,16 @@ is @a, [1,2,3,4], '*.meth created closure works';
 #?rakudo todo 'RT 65482'
 is (0,0,0,0,0,0) >>+>> ((1,2) xx *), <1 2 1 2 1 2>, 'xx * works';
 
+#?rakudo skip 'RT 68714'
+{
+    is (1, undef, 2, 3).grep(*.defined), <1 2 3>, '*.defined works in grep';
+
+    my $rt68714 = *.defined;
+    ok $rt68714 ~~ Code, '*.defined generates a closure';
+    ok $rt68714(68714), '*.defined works (true)';
+    ok $rt68714(undef), '*.defined works (false)';
+}
+
 done_testing;
 
 # vim: ft=perl6