#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

sub ten    { 10 }
sub ten_() { 10 }

my @expected = ( 9, );

{
    my @result = ();
    for my $i ( 9 .. 10 - 1 ) {
        push @result, $i;
    }
    is_deeply( \@result, \@expected,
        q{9 .. 10 - 1 without constant (OP)},
    );
}

{
    my @result = ();
    for my $i ( 9 .. ten() - 1 ) {
        push @result, $i;
    }
    is_deeply( \@result, \@expected,
        q{9 .. 10 - 1 with constant() (OP)},
    );
}

{
    my @result = ();
    for my $i ( 9 .. ten -1 ) {
        push @result, $i;
    }
    is_deeply( \@result, \@expected,
        q{9 .. 10 - 1 with constant (OP)},
    );
}

{
    my @result = ();
    for my $i ( 9 .. ( ten() - 1 ) ) {
        push @result, $i;
    }
    is_deeply(
        \@result,
        \@expected,
        q{9 .. 10 - 1 with constant() and parnes (proposed-me)},
    );
}

{
    my @result = ();
    for my $i ( 9 .. ( ten -1 ) ) {
        push @result, $i;
    }
    is_deeply( \@result, \@expected,
        q{9 .. 10 - 1 with constant and parens (proposed-me)},
    );
}

{
    my @result = ();
    for my $i ( 9 .. ten_() - 1 ) {
        push @result, $i;
    }
    is_deeply( \@result, \@expected,
        q{9 .. 10 - 1 with constant() (proposed-11143893)},
    );
}

{
    my @result = ();
    for my $i ( 9 .. ten_ - 1 ) {
        push @result, $i;
    }
    is_deeply( \@result, \@expected,
        q{9 .. 10 - 1 with constant (proposed-11143893)},
    );
}

{
    my @result = ();
    for my $i ( 9 .. ( ten_() - 1 ) ) {
        push @result, $i;
    }
    is_deeply(
        \@result,
        \@expected,
q{9 .. 10 - 1 with constant() and parens (proposed-11143893/me)},
    );
}

{
    my @result = ();
    for my $i ( 9 .. ( ten_ - 1 ) ) {
        push @result, $i;
    }
    is_deeply(
        \@result,
        \@expected,
q{9 .. 10 - 1 with constant and parens (proposed-11143893/me)},
    );
}

my @expected_2 = ( 9, 10, );
{
    my @result = ();
    for my $i ( 9 .. ten ) {
        push @result, $i;
    }
    is_deeply( \@result, \@expected_2,
        q{9 .. 10 with constant (OP)},
    );
}

{
    my @result = ();
    for my $i ( 9 .. ten_ ) {
        push @result, $i;
    }
    is_deeply( \@result, \@expected_2,
        q{9 .. 10 with constant (proposed-11143893)},
    );
}

done_testing();

__END__