Changeset 22623 for t

Show
Ignore:
Timestamp:
10/15/08 18:21:22 (3 months ago)
Author:
lwall
Message:

[t/] no more unpacking hash parameters, s/ceil/ceiling/

Location:
t
Files:
4 modified

Legend:

Unmodified
Added
Removed

  • t/blocks/subroutine.t

    r21234 r22623  
    33use Test; 
    44 
    5 plan 17; 
     5plan 16; 
    66 
    77sub foobar ($var) { 
    … …  
    8484my @array = 3..7; 
    8585is(try { unpack_array(@array) }, 3, 'unpacking an array parameter', :todo<feature>); 
    86  
    87 #L<S06/"Unpacking hash parameters"> 
    88  
    89 eval 'sub unpack_hash({:$yo, *%other}){ return $yo; }'; 
    90  
    91 my %params = yo => 3, nope => 4; 
    92 is(try { unpack_hash(%params) }, 3, 'unpacking a hash parameter', :todo); 

  • t/examples/99problems/problem39.t

    r20490 r22623  
    1111    my @p = (2); 
    1212    for 3..$to -> $x { 
    13         push @p, $x unless grep { $x % $_ == 0 }, 2..ceil sqrt $x; 
     13        push @p, $x unless grep { $x % $_ == 0 }, 2..ceiling sqrt $x; 
    1414    } 
    1515    grep { $_ >= $from }, @p; 

  • t/examples/99problems/problem40.t

    r20490 r22623  
    1919    my @p = (2); 
    2020    for 3..$to -> $x { 
    21         push @p, $x unless grep { $x % $_ == 0 }, 2..ceil sqrt $x; 
     21        push @p, $x unless grep { $x % $_ == 0 }, 2..ceiling sqrt $x; 
    2222    } 
    2323    grep { $_ >= $from }, @p; 

  • t/examples/99problems/problem41.t

    r20490 r22623  
    3333    my @p = (2); 
    3434    for 3..$to -> $x { 
    35         push @p, $x unless grep { $x % $_ == 0 }, 2..ceil sqrt $x; 
     35        push @p, $x unless grep { $x % $_ == 0 }, 2..ceiling sqrt $x; 
    3636    } 
    3737    grep { $_ >= $from }, @p;