Add test for RT #123077

Raku · Jun 20, 2015 · 6ea448b · 6ea448b
1 parent fa9de57
commit 6ea448b
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/S03-operators/arith.t b/S03-operators/arith.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 156;
+plan 157;
 
 my $five = abs(-5);
 
@@ -346,6 +346,13 @@ All uses of a zero modulus or divisor should 'die', and the
         'Division by zero with infix:</> dies and is catchable with VRef variables';
 }
 
+# RT #123077
+{
+    my $rt123077 = 1 / 0;
+    throws-like '$rt123077.gist', X::Numeric::DivideByZero,
+        ".gist on '1/0' blows up with X::Numeric::DivideByZero";
+}
+
 # This is a rakudo regression wrt bignum:
 {
     my $f = 1; $f *= $_ for 2..25;