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,30 @@
# test explicit type instantiation
type
TDict*[TKey, TValue] = object
data: seq[tuple[k: TKey, v: TValue]]
PDict*[TKey, TValue] = ref TDict[TKey, TValue]
proc newDict*[TKey, TValue](): PDict[TKey, TValue] =
new(result)
result.data = @[]
proc add*(d: PDict, k: TKey, v: TValue) =
d.data.add((k, v))
#iterator items*(d: PDict): tuple[k: TKey, v: TValue] =
# for k, v in items(d.data): yield (k, v)
var d = newDict[int, string]()
d.add(12, "12")
d.add(13, "13")
for k, v in items(d):
stdout.write("Key: ", $k, " value: ", v)
var c = newDict[char, string]()
c.add('A', "12")
c.add('B', "13")
for k, v in items(c):
stdout.write(" Key: ", $k, " value: ", v)