Test X::OutOfRange .gists given ranges

Closes #1813 R#1813
rakudo · Jul 30, 2018 · 4508085 · 4508085
1 parent bb6a6f8
commit 4508085
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/t/05-messages/03-errors.t b/t/05-messages/03-errors.t
@@ -2,7 +2,7 @@ use lib <t/packages/>;
 use Test;
 use Test::Helpers;
 
-plan 23;
+plan 24;
 
 subtest '.map does not explode in optimizer' => {
     plan 3;
@@ -167,4 +167,9 @@ else {
         'heredoc trimming warnings do not reference guts';
 }
 
+# https://github.com/rakudo/rakudo/issues/1813
+cmp-ok X::OutOfRange.new(
+    :what<a range>, :got(0..3000), :range(1..3000)
+).message.chars, '<', 150, 'X::OutOfRange does not stringify given Ranges';
+
 # vim: ft=perl6 expandtab sw=4