The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More 'no_plan';

use List::Maker;

is_deeply [<1..10x1>],   [1,2,3,4,5,6,7,8,9,10]        => '<1..10x1>';
is_deeply [<1..10 x1>],  [1,2,3,4,5,6,7,8,9,10]        => '<1..10 x1>';
is_deeply [<1..10x 1>],  [1,2,3,4,5,6,7,8,9,10]        => '<1..10x 1>';
is_deeply [<1..10 x 1>], [1,2,3,4,5,6,7,8,9,10]        => '<1..10 x 1>';

is_deeply [<-1..10x1>],  [-1,0,1,2,3,4,5,6,7,8,9,10]   => '<-1..10>';
is_deeply [<1..1x1>],    [1]                           => '<1..1>';
is_deeply [<1..1x2>],    [1]                           => '<1..1>';
is_deeply [<10..1x-1>],  [10,9,8,7,6,5,4,3,2,1]        => '<10..1>';

is_deeply [<1.1..9.9x1>],  [map { $_+0.1 } 1..9]       => '<1.1..9.9x1>';
is_deeply [<9.9..1.1x-1>], [map { 10-$_+0.9 } 1..9]    => '<9.9..1.1x-1>';

is_deeply [<1..10x2>],   [1,3,5,7,9]                   => '<1..10x2>';
is_deeply [<1..10x3>],   [1,4,7,10]                    => '<1..10x3>';
is_deeply [<1..10x4>],   [1,5,9]                       => '<1..10x4>';
is_deeply [<1..10x5>],   [1,6]                         => '<1..10x5>';
is_deeply [<1..10x6>],   [1,7]                         => '<1..10x6>';
is_deeply [<1..10x7>],   [1,8]                         => '<1..10x7>';
is_deeply [<1..10x8>],   [1,9]                         => '<1..10x8>';
is_deeply [<1..10x9>],   [1,10]                        => '<1..10x9>';
is_deeply [<1..10x10>],  [1]                           => '<1..10x10>';

is_deeply [<1.1..9.9x2.5>], [1.1, 3.6, 6.1, 8.6]       => '<1.1..9.9x2.5>';