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
|
#!perl
use strict ("subs", "vars", "refs");
use warnings ("all");
use lib ("t/lib");
use List::MoreUtils::XS (":all");
use Test::More;
use Test::LMU;
SCOPE:
{
my @l = (1 .. 100);
my @s = samples 10, @l;
is(scalar @s, 10, "samples stops correctly after 10 integer probes");
my @u = uniq @s;
is(scalar @u, 10, "samples doesn't add any integer twice");
}
SCOPE:
{
my @l = (1 .. 10);
my @s = samples 10, @l;
is(scalar @s, 10, "samples delivers 10 out of 10 when used as shuffle");
my @u = uniq grep { defined $_ } @s;
is(scalar @u, 10, "samples doesn't add any integer twice");
}
SCOPE:
{
my @l = ('AA' .. 'ZZ');
my @s = samples 10, @l;
is(scalar @s, 10, "samples stops correctly after 10 strings probes");
my @u = uniq @s;
is(scalar @u, 10, "samples doesn't add any string twice");
}
is_dying('to much samples' => sub { my @l = (1 .. 3); samples 5, @l });
SKIP:
{
$INC{'List/MoreUtils/XS.pm'} or skip "PurePerl will not fail here ...", 1;
is_dying('samples without list' => sub { samples 5 });
}
done_testing;
|
