start of tests refactoring; sqlite3 new wrapper fixes

This commit is contained in:
rumpf_a@web.de 2010-02-21 19:42:36 +01:00
commit d913fdb280
173 changed files with 206 additions and 238 deletions

View file

@ -0,0 +1,18 @@
# Test the magic low() and high() procs
type
myEnum = enum e1, e2, e3, e4, e5
var
a: array [myEnum, int]
for i in low(a) .. high(a):
a[i] = 0
proc sum(a: openarray[int]): int =
result = 0
for i in low(a)..high(a):
inc(result, a[i])
write(stdout, sum([1, 2, 3, 4]))
#OUT 10