Nim/tests/accept/run/tisopr.nim
2010-02-26 01:26:16 +01:00

20 lines
264 B
Nim
Executable file

# 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