added tests

This commit is contained in:
Andreas Rumpf 2010-05-28 23:33:29 +02:00
commit b34b1dbc6c
7 changed files with 172 additions and 0 deletions

View file

@ -0,0 +1,24 @@
#BUG
type
TAnyKind = enum
nkInt,
nkFloat,
nkString
TAny = object
case kind: TAnyKind
of nkInt: intVal: int
of nkFloat: floatVal: float
of nkString: strVal: string
var s: TAny
s.kind = nkString
s.strVal = "test"
var nr: TAny
nr.kind = nkint
nr.intVal = 78
# s = nr # works
nr = s # fails!