Created
December 7, 2010 04:17
-
-
Save uasi/731447 to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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