Changeset 22453 for t

Timestamp:

09/29/08 18:15:15 (2 months ago)

Author:

cjfields

Message:

[t/spec] transliteration tests for changes in RT #59446 (todo'd or skipped until patch committed)

Files:

• t/spec/S05-transliteration/trans.t (modified) (6 diffs)

t/spec/S05-transliteration/trans.t

@@ -11 +11 @@
 =end pod
 
-plan 49;
+plan 51;
 
 is("ABC".trans( ('A'=>'a'), ('B'=>'b'), ('C'=>'c') ),
@@ -73 +73 @@
     "Multiple ranges interpreted in string");
 
+# Per S05 changes
+#?rakudo todo 'RT #59446'
+{
+is("Whfg nabgure Crey unpxre".trans(' a..z' => '_n..za..m', 'A..Z' => 'N..ZA..M'),
+    "Just_another_Perl_hacker",
+    "Spaces in interpreted ranges are not skipped (all spaces are important)");
+    
 is("Whfg nabgure Crey unpxre".trans(' a .. z' => '_n .. za .. m', 'A .. Z' => 'N .. ZA .. M'),
-    "Just_another_Perl_hacker",
-    "Spaces in interpreted ranges are skipped, all others are important");
+    "Whfg nnbgure Crey unpxre",
+    "Spaces in interpreted ranges are not skipped (all spaces are important)");
+};
 
 my $a = "abcdefghijklmnopqrstuvwxyz";
@@ -129 +137 @@
 
 is('Good&Plenty'.trans('len' => 'x'), 'Good&Pxxxty',
-    'no flags'); 
+    'no flags');
 
 is('Good&Plenty'.trans(:s, 'len' => 'x',), 'Good&Pxty',
@@ -142 +150 @@
     ' ????????????>&',
     'array, many-to-many transliteration, complement');
+
+# fence-post issue with complement
+is(" <>&".trans(:c, ([' ', '>'] =>
+    ['???',      'AB'])),
+    ' ????????????>???????????????',
+    'fence-post issue (make sure to replace end bits as well)');
     
 is(" <>&".trans(:c, :s, ([' ', '>', '&'] =>
@@ -148 +162 @@
     '... and now complement and squash');
 
-# check for regex support
-
+#?rakudo skip 'RT #59446'
+{
 # remove vowel and character after
-#?rakudo 2 skip 'regex in .trans not implemented'
-is('abcdefghij'.trans(/<[aeiou]> \w/ => ''), 'cdfgh', 'basic regex works');
+is('abcdefghij'.trans(/<[aeiou]> \w/ => ''), 'cdgh', 'basic regex works');
 is( # vowels become 'y' and whitespace becomes '_'
     "ab\ncd\tef gh".trans(/<[aeiou]>/ => 'y', /\s/ => '_'),
@@ -159 +172 @@
 );
 
-# check for closure support
-#?rakudo skip 'regex and closures in .trans not implemented'
-{
-    my $i = 0;
-    is('ab_cd_ef_gh'.trans('_' => {$i++}), 'ab0cd1ef2gh', 'basic closure');
-
-    my($i, $j) = (0, 0);
-    is(
-        'a_b/c_d/e_f'.trans('_' => {$i++}, '/' => {$j++}),
-        'a0b0c1d1e2f',
-        'closure pairs work',
-    );
-
+my $i = 0;
+is('ab_cd_ef_gh'.trans('_' => {$i++}), 'ab0cd1ef2gh', 'basic closure');
+
+$i = 0;
+my $j = 0;
+is(
+    'a_b/c_d/e_f'.trans('_' => {$i++}, '/' => {$j++}),
+    'a0b0c1d1e2f',
+    'closure pairs work',
+);
+};
+
+#?rakudo skip 'passing regex to closures in .trans not working yet...'
+{
     # closures and regexes!
     is(