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,16 @@
type
TDict[TK, TV] = object
k: TK
v: TV
PDict[TK, TV] = ref TDict[TK, TV]
proc destroyDict[TK, TV](a : PDict[TK, TV]) =
return
proc newDict[TK, TV](a: TK, b: TV): PDict[TK, TV] =
new(result, destroyDict)
discard newDict("a", "b")