[src/core/Range.pm] Range ~~ Range semantics

Now by spec. \o/
rakudo · Apr 5, 2012 · cb61d59 · cb61d59
1 parent 2c35bdb
commit cb61d59
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/src/core/Range.pm b/src/core/Range.pm
@@ -39,6 +39,16 @@ class Range is Iterable does Positional {
             and ($topic cmp $!max) < +(!$!excludes_max)
     }
 
+    multi method ACCEPTS(Range:D: Range \$topic) {
+        ($topic.min > $!min
+         || $topic.min == $!min
+            && !(!$topic.excludes_min && $!excludes_min))
+        &&
+        ($topic.max < $!max
+         || $topic.max == $!max
+            && !(!$topic.excludes_max && $!excludes_max))
+    }
+
     method reify($n = 10) {
         my $value = $!excludes_min ?? $!min.succ !! $!min;
         # Iterating a Str range delegates to iterating a sequence.

diff --git a/t/spectest.data b/t/spectest.data
@@ -193,6 +193,7 @@ S03-smartmatch/array-hash.t
 # S03-smartmatch/capture-signature.t # all fail
 S03-smartmatch/disorganized.t
 S03-smartmatch/hash-hash.t
+S03-smartmatch/range-range.t
 S03-smartmatch/regex-hash.t
 S03-smartmatch/scalar-hash.t
 S04-blocks-and-statements/pointy-rw.t