Skip to content

Commit

Permalink
Change Range excludes_ methods to dashes
Browse files Browse the repository at this point in the history
  • Loading branch information
@lucasbuchala
lucasbuchala committed Nov 25, 2014
1 parent 06a85e4 commit e21dde0
Showing 1 changed file with 22 additions and 22 deletions.
44 changes: 22 additions & 22 deletions S03-operators/range-basic.t
View file
Expand Up @@ -9,8 +9,8 @@ plan 140;
isa_ok $range, Range, '2..6 is a Range';
is $range.min, 2, "2..6.min is 2";
is $range.max, 6, "2..6.max is 6";
is $range.excludes_min, Bool::False, "2..6.excludes_min is false";
is $range.excludes_max, Bool::False, "2..6.excludes_max is false";
is $range.excludes-min, Bool::False, "2..6.excludes-min is false";
is $range.excludes-max, Bool::False, "2..6.excludes-max is false";
is $range.perl, "2..6", '.perl is correct';
}

Expand All @@ -19,8 +19,8 @@ plan 140;
isa_ok $range, Range, '-1^..7 is a Range';
is $range.min, -1, "-1^..7.min is -1";
is $range.max, 7, "-1^..7.max is 7";
is $range.excludes_min, Bool::True, "-1^..7.excludes_min is true";
is $range.excludes_max, Bool::False, "-1^..7.excludes_max is false";
is $range.excludes-min, Bool::True, "-1^..7.excludes-min is true";
is $range.excludes-max, Bool::False, "-1^..7.excludes-max is false";
is $range.perl, "-1^..7", '.perl is correct';
}

Expand All @@ -29,8 +29,8 @@ plan 140;
isa_ok $range, Range, '3..^-1 is a Range';
is $range.min, 3, "3..^-1.min is 3";
is $range.max, -1, "3..^-1.max is -1";
is $range.excludes_min, Bool::False, "3..^-1.excludes_min is false";
is $range.excludes_max, Bool::True, "3..^-1.excludes_max is true";
is $range.excludes-min, Bool::False, "3..^-1.excludes-min is false";
is $range.excludes-max, Bool::True, "3..^-1.excludes-max is true";
is $range.perl, "3..^-1", '.perl is correct';
}

Expand All @@ -39,8 +39,8 @@ plan 140;
isa_ok $range, Range, "'a'^..^'g' is a Range";
is $range.min, 'a', "'a'^..^'g'.min is 'a'";
is $range.max, 'g', "'a'^..^'g'.max is 'g'";
is $range.excludes_min, Bool::True, "'a'^..^'g'.excludes_min is true";
is $range.excludes_max, Bool::True, "'a'^..^'g'.excludes_max is true";
is $range.excludes-min, Bool::True, "'a'^..^'g'.excludes-min is true";
is $range.excludes-max, Bool::True, "'a'^..^'g'.excludes-max is true";
is $range.perl, '"a"^..^"g"', '.perl is correct';
}

Expand All @@ -49,8 +49,8 @@ plan 140;
isa_ok $range, Range, '^5 is a Range';
is $range.min, 0, "^5.min is 0";
is $range.max, 5, "^5.max is 5";
is $range.excludes_min, Bool::False, "^5.excludes_min is false";
is $range.excludes_max, Bool::True, "^5.excludes_max is true";
is $range.excludes-min, Bool::False, "^5.excludes-min is false";
is $range.excludes-max, Bool::True, "^5.excludes-max is true";
is $range.perl, "0..^5", '.perl is correct';
}

Expand All @@ -59,26 +59,26 @@ plan 140;
isa_ok $range, Range, '^5.5 is a Range';
is $range.min, 0, "^5.5.min is 0";
is $range.max, 5.5, "^5.5.max is 5.5";
is $range.excludes_min, Bool::False, "^5.5.excludes_min is false";
is $range.excludes_max, Bool::True, "^5.5.excludes_max is true";
is $range.excludes-min, Bool::False, "^5.5.excludes-min is false";
is $range.excludes-max, Bool::True, "^5.5.excludes-max is true";
}

{
my $range = ^5.5e0;
isa_ok $range, Range, '^5.5e0 is a Range';
is $range.min, 0, "^5.5e0.min is 0";
is $range.max, 5.5e0, "^5.5e0.max is 5.5e0";
is $range.excludes_min, Bool::False, "^5.5e0.excludes_min is false";
is $range.excludes_max, Bool::True, "^5.5e0.excludes_max is true";
is $range.excludes-min, Bool::False, "^5.5e0.excludes-min is false";
is $range.excludes-max, Bool::True, "^5.5e0.excludes-max is true";
}

{
my $range = 1..*;
isa_ok $range, Range, '1..* is a Range';
is $range.min, 1, "1..*.min is 1";
is $range.max, Inf, "1..*.max is Inf";
is $range.excludes_min, Bool::False, "1..*.excludes_min is false";
is $range.excludes_max, Bool::False, "1..*.excludes_max is false";
is $range.excludes-min, Bool::False, "1..*.excludes-min is false";
is $range.excludes-max, Bool::False, "1..*.excludes-max is false";
}

# next three blocks of tests may seem kind of redundant, but actually check that
Expand All @@ -90,26 +90,26 @@ plan 140;
isa_ok $range, Range, '1^..* is a Range';
is $range.min, 1, "1^..*.min is 1";
is $range.max, Inf, "1^..*.max is Inf";
is $range.excludes_min, Bool::True, "1^..*.excludes_min is true";
is $range.excludes_max, Bool::False, "1^..*.excludes_max is false";
is $range.excludes-min, Bool::True, "1^..*.excludes-min is true";
is $range.excludes-max, Bool::False, "1^..*.excludes-max is false";
}

{
my $range = *..^1;
isa_ok $range, Range, '*..^1 is a Range';
is $range.min, -Inf, "*..^1.min is -Inf";
is $range.max, 1, "*..^1.max is 1";
is $range.excludes_min, Bool::False, "*..^1.excludes_min is false";
is $range.excludes_max, Bool::True, "*..^1.excludes_max is true";
is $range.excludes-min, Bool::False, "*..^1.excludes-min is false";
is $range.excludes-max, Bool::True, "*..^1.excludes-max is true";
}

{
my $range = 1^..^*;
isa_ok $range, Range, '1^..^* is a Range';
is $range.min, 1, "1^..^*.min is 1";
is $range.max, Inf, "1^..^*.max is Inf";
is $range.excludes_min, Bool::True, "1^..^*.excludes_min is true";
is $range.excludes_max, Bool::True, "1^..^*.excludes_max is true";
is $range.excludes-min, Bool::True, "1^..^*.excludes-min is true";
is $range.excludes-max, Bool::True, "1^..^*.excludes-max is true";
}

# some range constructions are invalid
Expand Down

0 comments on commit e21dde0

Please sign in to comment.