[perl #67882] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S03-operators/range.t

commit 6a8a76abd5ba1ae9227b37b434aaa4eccb5fa75b
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sun May 30 12:44:54 2010 +0000

    [t/spec] unfudge tests for RT #67882, and add a few more (because I did not 
see the existing tests early enough)
    
    git-svn-id: http://svn.pugscode.org/p...@30991 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S03-operators/range.t b/t/spec/S03-operators/range.t
index d80a290..7124829 100644
--- a/t/spec/S03-operators/range.t
+++ b/t/spec/S03-operators/range.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 107;
+plan 110;
 
 
 # L<S03/Nonchaining binary precedence/Range object constructor>
@@ -159,7 +159,6 @@ is (1..6 Z 'a' .. 'c').join, '1a2b3c',   'Ranges and 
infix:<Z>';
 }
  
 # RT #67882
-#?rakudo skip "Does not automatically turn match objects into strings / 
numbers"
 {
     my $range;
     lives_ok { '1 3' ~~ /(\d+) \s (\d+)/; $range = $0..$1 },
@@ -169,6 +168,13 @@ is (1..6 Z 'a' .. 'c').join, '1a2b3c',   'Ranges and 
infix:<Z>';
     lives_ok { "$range" }, 'can stringify range';
     is ~$range, "1 2 3", 'range is correct';
 }
+# and another set, just for the lulz
+# RT #67882
+{
+    ok '1 3' ~~ /(\d) . (\d)/, 'regex sanity';
+    isa_ok $0..$1, Range, '$0..$1 constructs a Range';
+    is ($0..$1).join('|'), '1|2|3', 'range from $0..$1';
+}
 {
     my $range;
     lives_ok { '1 3' ~~ /(\d+) \s (\d+)/; $range = +$0..+$1 },
@@ -199,4 +205,5 @@ is (1..6 Z 'a' .. 'c').join, '1a2b3c',   'Ranges and 
infix:<Z>';
     ok !defined(try { 0 .. (0, 1, 2) }), '0 .. List is illegal';
 }
 
+
 # # vim: ft=perl6