Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

133 lines (116 sloc) 1.873 kb
#! nqp
# check control structure 'if ... else'
say('1..14');
if 1 { say("ok 1 # on one line with else"); } else { say("not ok 1 # on one line with else")}
say("ok 2 # statements following if with else are okay");
if 1 {
print("ok 3");
}
else {
print("not ok 3");
}
say(" # multi-line if with else");
if 0 {
print("not ok 4");
}
else {
print("ok 4");
}
say(" # multi-line if, else branch");
if 0 {
}
else {
print("ok 5");
}
say(" # empty if-block");
if 0 {
print("not ok 6");
}
else {
}
print("ok 6");
say(" # empty else-block");
if 0 {
}
else {
}
print("ok 7");
say(" # empty if- and else-block");
if 0 {
}
elsif 0 {
}
elsif 0 {
}
else {
}
print("ok 8");
say(" # empty if-, elsif-, and else-block");
if 1 {
print("ok 9");
}
elsif 0 {
print("not ok 9 # elsif 1");
}
elsif 0 {
print("not ok 9 # elsif 2");
}
else {
print("not ok 9 # else");
}
say(" # if expr true in if/elsif/elsif/else");
if 0 {
print("not ok 10 # if");
}
elsif 1 {
print("ok 10");
}
elsif 0 {
print("not ok 10 # elsif 2");
}
else {
print("not ok 10 # else");
}
say(" # first elsif expr true in if/elsif/elsif/else");
if 0 {
print("not ok 11 # if");
}
elsif 0 {
print("not ok 11 # elsif 1");
}
elsif 1 {
print("ok 11");
}
else {
print("not ok 11 # else");
}
say(" # second elsif expr true in if/elsif/elsif/else");
if 0 {
print("not ok 12 # if");
}
elsif 1 {
print("ok 12");
}
elsif 1 {
print("not ok 12 # elsif 2");
}
else {
print("not ok 12 # else");
}
say(" # first and second elsif expr true in if/elsif/elsif/else");
if 0 {
print("not ok 13 # if");
}
elsif 0 {
print("not ok 13 # elsif 1");
}
elsif 0 {
print("not ok 13 # elsif 2");
}
else {
print("ok 13");
}
say(" # else expr true in if/elsif/elsif/else");
if 0 { } elsif 0 { }
print("ok 14");
say(" # no else block in if/elsif")
Jump to Line
Something went wrong with that request. Please try again.