[nrx] Reimplement $/ and $¢

sorear · Sep 6, 2010 · fe86829 · fe86829
1 parent 91d975d
commit fe86829
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 7 deletions.
diff --git a/src/Niecza/Actions.pm b/src/Niecza/Actions.pm
@@ -2,6 +2,7 @@ package Niecza::Actions;
 use 5.010;
 use strict;
 use warnings;
+use utf8;
 use Scalar::Util 'blessed';
 
 use Op;

diff --git a/test2.pl b/test2.pl
@@ -145,13 +145,14 @@
 #     ok G7.parse('+'), "can parse :sym<> symbols";
 #     ok G7.parse('foo'), "can parse : symbols";
 # }
-# 
-# {
-#     ok 'xxy' ~~ /x { $a = $/.pos } /, "can match with \$/ stuff";
-#     is $a, 1, '$/.pos is the right sort of thing';
-#     'xxy' ~~ /x { $a = ($¢ ~~ Cursor) }/;
-#     is $a, True, '$¢ isa Cursor';
-# }
+
+{
+    my $a;
+    ok 'xxy' ~~ /x { $a = $/.pos } /, "can match with \$/ stuff";
+    is $a, 1, '$/.pos is the right sort of thing';
+    'xxy' ~~ /x { $a = ($¢ ~~ Cursor) }/;
+    is $a, True, '$¢ isa Cursor';
+}
 
 #rxtest /x.y/, "x.y", ("xay", "x y"), ("xy", "xaay");
 #rxtest /<!>/, '<!>', Nil, ("", "x");