Merge pull request #49 from lucasbuchala/master

Change Range excludes_ methods to dashes
Raku · Jan 1, 2015 · d89ac19 · d89ac19
2 parents 9bad4dd + e21dde0
commit d89ac19
Showing 1 changed file with 22 additions and 22 deletions.
diff --git a/S03-operators/range-basic.t b/S03-operators/range-basic.t
@@ -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';
 }
 
@@ -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';
 }
 
@@ -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';
 }
 
@@ -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';
 }
 
@@ -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';
 }
 
@@ -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 
@@ -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