tests for @.[], %.{} and &.()

Raku · May 6, 2013 · cc39be9 · cc39be9
1 parent 7c4e0b5
commit cc39be9
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/S03-operators/shortcuts.t b/S03-operators/shortcuts.t
@@ -0,0 +1,18 @@
+use v6;
+use Test;
+
+plan 6;
+
+class C {
+  method @.[$i] { $i }
+  method %.{$k} { $k }
+  method &.($a) { 'karma ' ~ $a }
+}
+
+my $o = C.new;
+ok  $o.[42] == 42, '@.[]';
+ok  $o[42] == 42, '@.[] again';
+ok  $o.{'thanks'} eq 'thanks', '%.{}';
+ok  $o{'fish'} eq 'fish', '%.{} again';
+ok  $o.('gnole') eq 'karma gnole', '@.()';
+ok  $o('gnole') eq 'karma gnole', '@.() again';