Skip to content

Instantly share code, notes, and snippets.

@uasi
Created December 7, 2010 04:17
Show Gist options
  • Save uasi/731447 to your computer and use it in GitHub Desktop.
Save uasi/731447 to your computer and use it in GitHub Desktop.
diff --git a/S02-builtin_data_types/whatever.t b/S02-builtin_data_types/whatever.t
index 92b5680..49acb2d 100644
--- a/S02-builtin_data_types/whatever.t
+++ b/S02-builtin_data_types/whatever.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan 62;
+plan 65;
# L<S02/Built-In Data Types/"The * character as a standalone term captures the notion of">
# L<S02/Native types/"If any native type is explicitly initialized to">
@@ -206,6 +206,11 @@ is (0,0,0,0,0,0) >>+>> ((1,2) xx *), <1 2 1 2 1 2>, 'xx * works';
# RT #73162
eval_lives_ok '{*.{}}()', '{*.{}}() lives';
+# RT #80256
+lives_ok { * R+ 42 }, '* works on infix metaop';
+dies_ok { &infix:<+>(*, 42) }, '* does not autocurry infix sub';
+dies_ok { &infix:<R+>(*, 42) }, '* does not autocurry infix metaop sub';
+
done_testing;
# vim: ft=perl6
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment