tests if the conditions of an if are checked in order

Author: pmurias

S04-statements/if.t

@@ -11,7 +11,7 @@ Basic "if" tests.
 
 # L<S04/Conditional statements>
 
-plan 25;
+plan 29;
 
 my $x = 'test';
 if ($x eq $x) { pass('if ($x eq $x) {} works'); } else { flunk('if ($x eq $x) {} failed'); }
@@ -150,6 +150,21 @@ if (Mu) { flunk('if (Mu) {} failed'); } else { pass('if (Mu) {} works'); }
     is $got, '', 'else -> $c { } binding previous if';
 }
 
+{
+    my $called = 0;
+    sub cond($when) {
+        is $called,$when,"condition is checked in correct order";
+        $called++;
+        0;
+    }
+    if cond(0) {
+    } elsif cond(1) {
+    } elsif cond(2) {
+    }
+    is $called,3,"all conditions are checked";
+}
+
+
 #?niecza skip "eval_unimplemented"
 # L<S04/Statement parsing/keywords require whitespace>
 eval_dies_ok('if($x > 1) {}','keyword needs at least one whitespace after it');