new tester; all tests categorized

tests/compile/tlexer.nim

@@ -1,60 +0,0 @@
-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)