Nim/tests/tcasestm.nim
Andreas Rumpf e792940f52 version 0.7.6
2009-04-22 15:55:27 +02:00

32 lines
552 B
Nim

# Test the case statement
type
tenum = enum eA, eB, eC
var
x: string
y: Tenum = eA
i: int
case y
of eA: write(stdout, "a\n")
of eB, eC: write(stdout, "b oder c\n")
x = readLine(stdin)
case x
of "Andreas", "Rumpf": write(stdout, "Hallo Meister!\n")
of "aa", "bb": write(stdout, "Du bist nicht mein Meister\n")
of "cc", "hash", "when": nil
of "will", "it", "finally", "be", "generated": nil
else: write(stdout, "das sollte nicht passieren!\N")
case i
of 0..5, 8, 9: nil
of 6, 7: nil
elif x == "Ha":
nil
elif x == "Ho":
nil
else:
nil