New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
*.defined gives a strange internal error in Rakudo #1241
Comments
From @masak<jnthn> rakudo: say (1, undef, 2, 3).grep(*.defined).perl |
From @kylehaThis is an automatically generated mail to inform you that tests are now available in t/spec/S02-builtin_data_types/whatever.t commit dada8eb50be9e008fac26b67e35f3e1676ff5822 [t/spec] Test for RT 68714 Inline Patchdiff --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 |
The RT System itself - Status changed from 'new' to 'open' |
From @ShimmerFairy<lue> rakudo: *.defined *.defined produces a simple (no output) and the grepping example There are tests and now, it's also fixed. I'm closing this ticket. |
@ShimmerFairy - Status changed from 'open' to 'resolved' |
Migrated from rt.perl.org#68714 (status was 'resolved')
Searchable as RT68714$
The text was updated successfully, but these errors were encountered: