Changeset 24147

Show
Ignore:
Timestamp:
12/03/08 22:16:08 (5 weeks ago)
Author:
moritz
Message:

[t/spec] another two tests for RT #61026

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • t/spec/S03-operators/repeat.t

    r24146 r24147  
    99=end description 
    1010 
    11 plan 25; 
     11plan 27; 
    1212 
    1313#L<S03/Changes to Perl 5 operators/"x (which concatenates repetitions of a string to produce a single string"> 
    … …  
    6868    #?rakudo todo 'RT #61026' 
    6969    is @a.join('|'), 'b|a|a', 'change to one item left the others unchanged'; 
     70 
     71    my @b = <x y> xx 3; 
     72    is @b.join('|'), 'x|y|x|y|x|y', 'basic sanity with <x y> xx 3'; 
     73    @b[0] = 'z'; 
     74    @b[3] = 'a'; 
     75    #?rakudo todo 'RT #61026' 
     76    is @b.join('|'), 'z|y|x|a|x|y', 'change to one item left the others unchanged'; 
    7077}