This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
disable WARN and DIE hooks during constant folding
[perl5.git] / t / comp / fold.t
1 #!./perl
2
3 BEGIN {
4     chdir 't';
5     @INC = '../lib';
6     require './test.pl';
7 }
8 use strict;
9 use warnings;
10
11 plan (13);
12
13 # Historically constant folding was performed by evaluating the ops, and if
14 # they threw an exception compilation failed. This was seen as buggy, because
15 # even illegal constants in unreachable code would cause failure. So now
16 # illegal expressions are reported at runtime, if the expression is reached,
17 # making constant folding consistent with many other languages, and purely an
18 # optimisation rather than a behaviour change.
19
20
21 my $a;
22 $a = eval '$b = 0/0 if 0; 3';
23 is ($a, 3);
24 is ($@, "");
25
26 my $b = 0;
27 $a = eval 'if ($b) {return sqrt -3} 3';
28 is ($a, 3);
29 is ($@, "");
30
31 $a = eval q{
32         $b = eval q{if ($b) {return log 0} 4};
33         is ($b, 4);
34         is ($@, "");
35         5;
36 };
37 is ($a, 5);
38 is ($@, "");
39
40 # warn and die hooks should be disabled during constant folding
41
42 {
43     my $c = 0;
44     local $SIG{__WARN__} = sub { $c++   };
45     local $SIG{__DIE__}  = sub { $c+= 2 };
46     eval q{
47         is($c, 0, "premature warn/die: $c");
48         my $x = "a"+5;
49         is($c, 1, "missing warn hook");
50         is($x, 5, "a+5");
51         $c = 0;
52         $x = 1/0;
53     };
54     like ($@, qr/division/, "eval caught division");
55     is($c, 2, "missing die hook");
56 }