use Test::More 'no_plan';

use List::Maker;

# INCLUSIVE...

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

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


# PRE EXCLUSIVE...

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

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


# POST EXCLUSIVE...

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

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

is_deeply [<1.1..^9.1>], [map { $_+0.1 } 1..8]         => '<1.1..^9.1>';
is_deeply [<9.9..^1.9>], [map { 10-$_+0.9 } 1..8]      => '<9.9..^1.9>';


# PRE/POST EXCLUSIVE...

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

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

is_deeply [<1.1^..^9.1>,9.1], [map { $_+0.1 } 2..9]         => '<1.1^..^9.9>';
is_deeply [<9.9^..^1.9>,1.9], [map { 10-$_+0.9 } 2..9]      => '<9.9^..^1.1>';