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 ; +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 { .roll(-9999999999999999999999999999999999999999999999999).perl }, + Exception, :message{ .contains: .all }, '(1)'; + + throws-like { .roll(-99999999999999999999999999999999999999999999999999999999999999999).perl }, + Exception, :message{ .contains: .all }, '(2)'; + + throws-like { .roll(99999999999999999999999999999999999999999999999999999999999999999).perl }, + Exception, :message{ .contains: .all }, '(3)'; +} + +# vim: ft=perl6 expandtab sw=4