Nim/tests/tisopr.nim
Andreas Rumpf ddaedab835 version 0.7.2
2008-12-12 14:02:27 +01:00

20 lines
264 B
Nim

# Test is operator
type
TMyType = object
len: int
data: string
TOtherType = object of TMyType
proc p(x: TMyType): bool =
return x is TOtherType
var
m: TMyType
n: TOtherType
write(stdout, p(m))
write(stdout, p(n))
#OUT falsetrue