Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

reinstate $!.defined test with div by 0.

  • Loading branch information...
commit 73878e89dec1f6bc80148aafd5c2eff03174e701 1 parent dea51d0
@timo timo authored
Showing with 4 additions and 1 deletion.
  1. +4 −1 S02-magicals/dollar_bang.t
View
5 S02-magicals/dollar_bang.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 15;
+plan 16;
=begin desc
@@ -28,6 +28,9 @@ try { eval 'foo(@a,@a)' };
ok $!.defined, 'Calling a subroutine with a nonmatching signature sets $!';
ok !$called, 'The subroutine also was not called';
+try { (1 div 0).Str };
+ok $!.defined, 'Dividing one by zero sets $!';
+
sub incr ( $a is rw ) { $a++ };
try { incr(19) };
ok $!.defined, 'Modifying a constant sets $!';
Please sign in to comment.
Something went wrong with that request. Please try again.