jyapayne/Nim
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

enabled sexp tests

Browse source
This commit is contained in:
Simon Hafner 2015-04-22 06:11:30 +05:00
commit 766b7ea61d
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/pure/sexp.nim
View file

@ -677,12 +677,12 @@ proc parseSexp*(buffer: string): SexpNode =
result = parseSexp(newStringStream(buffer)) result = parseSexp(newStringStream(buffer))
when isMainModule: when isMainModule:
# let testSexp = parseSexp("""(1 (98 2) nil (2) foobar "foo" 9.234)""") let testSexp = parseSexp("""(1 (98 2) nil (2) foobar "foo" 9.234)""")
# assert(testSexp[0].getNum == 1) assert(testSexp[0].getNum == 1)
# assert(testSexp[1][0].getNum == 98) assert(testSexp[1][0].getNum == 98)
# assert(testSexp[2].getElems == @[]) assert(testSexp[2].getElems == @[])
# assert(testSexp[4].getSymbol == "foobar") assert(testSexp[4].getSymbol == "foobar")
# assert(testSexp[5].getStr == "foo") assert(testSexp[5].getStr == "foo")
let alist = parseSexp("""((1 . 2) (2 . "foo"))""") let alist = parseSexp("""((1 . 2) (2 . "foo"))""")
assert(alist[0].getCons.car.getNum == 1) assert(alist[0].getCons.car.getNum == 1)