# New Ticket Created by Dino Morelli
# Please include the string: [perl #35950]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=35950 >
Added a couple of tests for the words modifier used together with
capturing.
file:
t/p6rules/ws.t
-Dino
--
.~. Dino Morelli
/V\ email: [EMAIL PROTECTED]
/( )\ weblog: http://categorically.net/d/blog/
^^-^^ preferred distro: Debian GNU/Linux http://www.debian.org
Index: t/p6rules/ws.t
===================================================================
--- t/p6rules/ws.t (revision 8147)
+++ t/p6rules/ws.t (working copy)
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Parrot::Test tests => 17;
+use Parrot::Test tests => 19;
use Parrot::Test::PGE;
@@ -32,6 +32,11 @@
p6rule_is ('foo - bar', ':w::foo -? bar',
'basic ws match with backtrack no-op modifier separation');
+p6rule_like('dog := spot', ':w(\w+) \:= (\S+)', qr/mob 0: <dog @ 0>/,
+ 'words and capture together');
+p6rule_like('dog := spot', ':w(\w+) \:= (\S+)', qr/mob 1: <spot @ 7>/,
+ 'words and capture together');
+
# XXX: When available, add tests for full form :words modifier
# Don't forget to change the number of tests :-)