Changeset 22483 for t

Timestamp:

10/02/08 05:17:32 (2 months ago)

Author:

cjfields

Message:

[t/spec] added tests for checking number of times closures are invoked, ready for fudge

Files:

• t/spec/S05-transliteration/with-closure.t (modified) (2 diffs)

t/spec/S05-transliteration/with-closure.t

@@ -1 +1 @@
 use v6;
 use Test;
-plan 6;
+plan 10;
 
 # L<S05/Transliteration/"If the right side of the arrow is a closure">
+
+#?rakudo skip 'contigent on RT#59446'
+{
 
 my $x = 0;
@@ -23 +26 @@
 is $s.trans([<X Y>] => [{++$x},{++$y}]), 'a3b3c4d4', 'can use closures in pairs of arrays';
 is $s,                              'aXbYcYdX', 'Source string unchanged';
+
+my $x = 0;
+my $y = 0;
+
+my $s2 = 'ABC111DEF111GHI';
+
+is $s2.trans([<1 111>] => [{++$x},{++$y}]), 'ABC1DEF2GHI', 'can use closures in pairs of arrays';
+is $s2,                              'ABC111DEF111GHI', 'Source string unchanged';
+is $x, 0,                            'Closure not invoked (only longest match used)';
+is $y, 2,                            'Closure invoked twice (once per replacement)';
+
+};