1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
#!./perl
use strict;
use warnings;
use Test::More tests => 9;
use List::Util qw(sample);
{
my @items = sample 3, 1 .. 10;
is( scalar @items, 3, 'returns correct count when plentiful' );
@items = sample 10, 1 .. 10;
is( scalar @items, 10, 'returns correct count when exact' );
@items = sample 20, 1 .. 10;
is( scalar @items, 10, 'returns correct count when short' );
}
{
my @items = sample 5, 1 .. 5;
is_deeply( [ sort { $a <=> $b } @items ], [ 1 .. 5 ],
'returns a permutation of the input list when exact' );
}
{
# These two seeds happen to give different results for me, but there is the
# smallest 1-in-2**48 chance that they happen to agree on some platform. If
# so then pick a different seed value.
srand 1234;
my $x = join "", sample 3, 'a'..'z';
srand 5678;
my $y = join "", sample 3, 'a'..'z';
isnt( $x, $y, 'returns different result on different random seed' );
srand;
}
{
my @nums = ( 1..5 );
sample 5, @nums;
is_deeply( \@nums, [ 1..5 ],
'sample does not mutate passed array'
);
}
{
my $destroyed_count;
sub Guardian::DESTROY { $destroyed_count++ }
my @ret = sample 3, map { bless [], "Guardian" } 1 .. 10;
is( $destroyed_count, 7, 'the 7 unselected items were destroyed' );
@ret = ();
is( $destroyed_count, 10, 'all the items were destroyed' );
}
{
local $List::Util::RAND = sub { 4/10 };
is(
join( "", sample 5, 'A'..'Z' ),
join( "", sample 5, 'A'..'Z' ),
'rigged rand() yields predictable output'
);
}
|
