diff options
Diffstat (limited to 'tests/fields/tfielditerator2.nim')
-rw-r--r-- | tests/fields/tfielditerator2.nim | 70 |
1 files changed, 0 insertions, 70 deletions
diff --git a/tests/fields/tfielditerator2.nim b/tests/fields/tfielditerator2.nim deleted file mode 100644 index c8e230cf5..000000000 --- a/tests/fields/tfielditerator2.nim +++ /dev/null @@ -1,70 +0,0 @@ -discard """ - output: ''' -a char: true -a char: false -an int: 5 -an int: 6 -a string: abc -a string: I'm root! -CMP false -CMP true -CMP true -CMP false -CMP true -CMP true -a: a -b: b -x: 5 -y: 6 -z: abc -thaRootMan: I'm root! -myDisc: enC -c: Z -enC -Z -''' -""" - -type - SomeRootObj = object of RootObj - thaRootMan: string - TMyObj = object of SomeRootObj - a, b: char - x, y: int - z: string - - TEnum = enum enA, enB, enC - TMyCaseObj = object - case myDisc: TEnum - of enA: a: int - of enB: b: string - of enC: c: char - -proc p(x: char) = echo "a char: ", x <= 'a' -proc p(x: int) = echo "an int: ", x -proc p(x: string) = echo "a string: ", x - -proc myobj(a, b: char, x, y: int, z: string): TMyObj = - result.a = a; result.b = b; result.x = x; result.y = y; result.z = z - result.thaRootMan = "I'm root!" - -var x = myobj('a', 'b', 5, 6, "abc") -var y = myobj('A', 'b', 5, 9, "abc") - -for f in fields(x): - p f - -for a, b in fields(x, y): - echo "CMP ", a == b - -for key, val in fieldPairs(x): - echo key, ": ", val - -var co: TMyCaseObj -co.myDisc = enC -co.c = 'Z' -for key, val in fieldPairs(co): - echo key, ": ", val - -for val in fields(co): - echo val |