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
|
use Test::More 'no_plan';
use List::Maker 'list';
is_deeply [list '1..10x1'], [1,2,3,4,5,6,7,8,9,10] => '<1..10x1>';
is_deeply [list '1..10 x1'], [1,2,3,4,5,6,7,8,9,10] => '<1..10 x1>';
is_deeply [list '1..10x 1'], [1,2,3,4,5,6,7,8,9,10] => '<1..10x 1>';
is_deeply [list '1..10 x 1'], [1,2,3,4,5,6,7,8,9,10] => '<1..10 x 1>';
is_deeply [list '-1..10x1'], [-1,0,1,2,3,4,5,6,7,8,9,10] => '<-1..10>';
is_deeply [list '1..1x1'], [1] => '<1..1>';
is_deeply [list '1..1x2'], [1] => '<1..1>';
is_deeply [list '10..1x-1'], [10,9,8,7,6,5,4,3,2,1] => '<10..1>';
is_deeply [list '1.1..9.9x1'], [map { $_+0.1 } 1..9] => '<1.1..9.9x1>';
is_deeply [list '9.9..1.1x-1'], [map { 10-$_+0.9 } 1..9] => '<9.9..1.1x-1>';
is_deeply [list '1..10x2'], [1,3,5,7,9] => '<1..10x2>';
is_deeply [list '1..10x3'], [1,4,7,10] => '<1..10x3>';
is_deeply [list '1..10x4'], [1,5,9] => '<1..10x4>';
is_deeply [list '1..10x5'], [1,6] => '<1..10x5>';
is_deeply [list '1..10x6'], [1,7] => '<1..10x6>';
is_deeply [list '1..10x7'], [1,8] => '<1..10x7>';
is_deeply [list '1..10x8'], [1,9] => '<1..10x8>';
is_deeply [list '1..10x9'], [1,10] => '<1..10x9>';
is_deeply [list '1..10x10'], [1] => '<1..10x10>';
is_deeply [list '1.1..9.9x2.5'], [1.1, 3.6, 6.1, 8.6] => '<1.1..9.9x2.5>';
# Verify that no magic is occurring...
my @data = <1..10>;
ok @data != 10, 'No magic';
|
