1#!./perl
2
3BEGIN {
4    chdir 't' if -d 't';
5    require './test.pl';
6    set_up_inc('../lib');
7}
8
9is( 1 ? 1 : 0, 1, 'compile time, true' );
10is( 0 ? 0 : 1, 1, 'compile time, false' );
11
12$x = 1;
13is(  $x ? 1 : 0, 1, 'run time, true');
14is( !$x ? 0 : 1, 1, 'run time, false');
15
16# This used to SEGV due to deep recursion in Perl_scalar().
17# (Actually it only SEGVed with the depth being about 100_000; but
18# compiling the nested condition goes quadratic in some way, so I've
19# reduced to the count to a manageable size. So this is not so much a
20# proper test, as it is a comment on the sort of thing that used to break)
21
22{
23    my $e = "1";
24    $e = "(\$x ? 1 : $e)" for 1..20_000;
25    $e = "\$x = $e";
26    eval $e;
27    is $@, "", "SEGV in Perl_scalar";
28}
29
30
31done_testing();
32