Changeset 21160

Show
Ignore:
Timestamp:
07/02/08 04:24:47 (3 months ago)
Author:
pmichaud
Message:

S29-list/first.t: update skip message, convert tabs to spaces

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • t/spec/S29-list/first.t

    r20685 r21160  
    2626} 
    2727 
    28 #?rakudo skip "colon invocant syntax" 
     28#?rakudo skip "adverbial closure" 
    2929{ 
    3030    my $result = @list.first():{ ($_ == 4) }; 
     
    3434 
    3535{ 
    36         is(@list.first( { ($_ == 11) }), undef, 'first returns undef unsuccessfull match'); 
     36    is(@list.first( { ($_ == 11) }), undef, 'first returns undef unsuccessfull match'); 
    3737} 
    3838 
    3939{ 
    40         my $count = 0; 
    41         my $matcher = sub (Int $x) { $count++; $x % 2 }; 
    42         is(@list.first($matcher), 1, 'first() search for odd elements successfull'); 
    43         is($count, 1, 'Matching closure in first() is only executed once'); 
    44  
     40    my $count = 0; 
     41    my $matcher = sub (Int $x) { $count++; $x % 2 }; 
     42    is(@list.first($matcher), 1, 'first() search for odd elements successfull'); 
     43    is($count, 1, 'Matching closure in first() is only executed once'); 
    4544}