Add Stringy role. prefix:<^> enforces numeric context. Another specte…

…st file.
rakudo · Jul 7, 2011 · 1701cb2 · 1701cb2
1 parent 8f7a4ec
commit 1701cb2
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/src/core/Range.pm b/src/core/Range.pm
@@ -141,5 +141,5 @@ sub infix:<^..^>($min, $max) {
     Range.new($min, $max, :excludes_min, :excludes_max) 
 }
 sub prefix:<^>($max) {
-    Range.new(0, $max, :excludes_max) 
+    Range.new(0, $max.Numeric, :excludes_max) 
 }
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -1,4 +1,4 @@
-my class Str {
+my class Str does Stringy {
     method Bool() { self ne '' && self ne '0' }
 
     multi method Str(Str:D:) { self }

diff --git a/src/core/Stringy.pm b/src/core/Stringy.pm
@@ -1,4 +1,4 @@
-# role Stringy { ... }
+my role Stringy { }
 
 proto prefix:<~>(|$) { * }
 multi prefix:<~>(\$a)          { $a.Stringy }

diff --git a/t/spectest.data b/t/spectest.data
@@ -137,7 +137,7 @@ S03-operators/chained-declarators.t
 S03-operators/cmp.t
 # S03-operators/comparison.t                # need Order::Increase
 S03-operators/comparison-simple.t
-# S03-operators/context-forcers.t           # need True
+S03-operators/context-forcers.t
 # S03-operators/context.t                   # need regexes
 S03-operators/equality.t
 # S03-operators/eqv.t