adding some provisions for writing lower-level unit tests targeting specific sub-systems of the compiler

see sigmatch as an example.
tests are compiled only when the compiler is compiled with -d:selftest
to execute them, just run the resulting binary without arguments

compiler/nimrod.cfg

@@ -11,4 +11,5 @@ path:"$projectPath/.."
 path:"$lib/packages/docutils"
 
 define:booting
+import:testability
 

compiler/nimrod.nim

@@ -76,5 +76,7 @@ when compileOption("gc", "v2") or compileOption("gc", "refc"):
   # the new correct mark&sweet collector is too slow :-/
   GC_disableMarkAndSweep()
 condsyms.InitDefines()
+
+when not defined(selftest):
   HandleCmdLine()
   quit(int8(msgs.gErrorCounter > 0))

compiler/sigmatch.nim

@@ -1155,3 +1155,16 @@ proc argtypeMatches*(c: PContext, f, a: PType): bool =
   result = res != nil
 
 include suggest
+
+
+
+tests:
+  suite "typerel":
+    test "ordinals":
+      # var owner = newSym(skModule, getIdent("dummy"), nil, UnknownLineInfo())
+      var m: TCandidate
+      InitCandidate(m, f)
+
+      # let f = newType(tyOrdinal, owner)
+      # let a = getSysType(tyInt)
+      # check typerel(m, f, a) == isGeneric

compiler/testability.nim

@@ -0,0 +1,5 @@
+template tests*(body: stmt) {.immediate.} =
+  when defined(selftest):
+    when not defined(unittest): import unittest
+    body
+

lib/pure/unittest.nim

@@ -99,7 +99,11 @@ template fail* =
   when not defined(ECMAScript):
     if AbortOnError: quit(1)
  
+  when defined(TestStatusIMPL):
     TestStatusIMPL = FAILED
+  else:
+    program_result += 1
+
   checkpoints = @[]
 
 macro check*(conditions: stmt): stmt {.immediate.} =