diff options
| author | Araq <rumpf_a@web.de> | 2014-01-13 02:10:03 +0100 |
|---|---|---|
| committer | Araq <rumpf_a@web.de> | 2014-01-13 02:10:03 +0100 |
| commit | 20b5f31c03fb556ec0aa2428a40adbac004d8987 (patch) | |
| tree | 58086941e7d6bb8f480ca1173a95722ada9435b2 /tests/lexer/tlexer.nim | |
| parent | 51ee524109cf7e3e86c676bc1676063a01bfd979 (diff) | |
| download | Nim-20b5f31c03fb556ec0aa2428a40adbac004d8987.tar.gz | |
new tester; all tests categorized
Diffstat (limited to 'tests/lexer/tlexer.nim')
| -rw-r--r-- | tests/lexer/tlexer.nim | 60 |
1 files changed, 60 insertions, 0 deletions
diff --git a/tests/lexer/tlexer.nim b/tests/lexer/tlexer.nim new file mode 100644 index 000000000..10a8ab51d --- /dev/null +++ b/tests/lexer/tlexer.nim @@ -0,0 +1,60 @@ +discard """ + disabled: true +""" + +# We start with a comment +# This is the same comment + +# This is a new one! + +import + lexbase, os, strutils + +type + TMyRec {.final.} = object + x, y: int # coordinates + c: char # a character + a: int32 # an integer + + PMyRec = ref TMyRec # a reference to `TMyRec` + +proc splitText(txt: string): seq[string] # splits a text into several lines + # the comment continues here + # this is not easy to parse! + +proc anotherSplit(txt: string): seq[string] = + # the comment should belong to `anotherSplit`! + # another problem: comments are statements! + +const + x = 0B0_10001110100_0000101001000111101011101111111011000101001101001001'f64 # x ~~ 1.72826e35 + myNan = 0B01111111100000101100000000001000'f32 # NAN + y = """ + a rather long text. + Over many + lines. + """ + s = "\xff" + a = {0..234} + b = {0..high(int)} + v = 0'i32 + z = 6767566'f32 + +# small test program for lexbase + +proc main*(infile: string, a, b: int, someverylongnamewithtype = 0, + anotherlongthingie = 3) = + var + myInt: int = 0 + s: seq[string] + # this should be an error! + if initBaseLexer(L, infile, 30): nil + else: + writeln(stdout, "could not open: " & infile) + writeln(stdout, "Success!") + call(3, # we use 3 + 12, # we use 12 + 43) # we use 43 + + +main(ParamStr(1), 9, 0) |