From 1b0be0f631cf21587e0c6d022559c66875d5f5b7 Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Mon, 11 Dec 2017 13:39:10 -0500
Subject: [PATCH] Test overflow in .roll()

RT#125820: https://rt.perl.org/Ticket/Display.html?id=125820
---
 t/05-messages/11-overflow.t | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 t/05-messages/11-overflow.t

diff --git a/t/05-messages/11-overflow.t b/t/05-messages/11-overflow.t
new file mode 100644
index 00000000000..afcbf8f9f13
--- /dev/null
+++ b/t/05-messages/11-overflow.t
@@ -0,0 +1,23 @@
+use lib <t/packages/>;
+use Test;
+use Test::Helpers;
+
+# This file contains tests for behaviour on overflow in various routines
+
+plan 1;
+
+# RT #125820
+subtest '.roll' => {
+    plan 3;
+    
+    throws-like { <a b c d e>.roll(-9999999999999999999999999999999999999999999999999).perl },
+        Exception, :message{ .contains: <unbox native>.all }, '(1)';
+
+    throws-like { <a b c d e>.roll(-99999999999999999999999999999999999999999999999999999999999999999).perl },
+        Exception, :message{ .contains: <unbox native>.all }, '(2)';
+
+    throws-like { <a b c d e>.roll(99999999999999999999999999999999999999999999999999999999999999999).perl },
+        Exception, :message{ .contains: <unbox native>.all }, '(3)';
+}
+
+# vim: ft=perl6 expandtab sw=4