summary refs log tree commit diff stats
path: root/tests/realtimeGC/tmain.nim
blob: f1515a549d0f08dbba0910a83da0ab6fa36cc605 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
discard """
  cmd: "nim $target --threads:on -d:release -d:useRealtimeGC $options $file"
  joinable:false
"""

#[
was: cmd: "nim $target --debuginfo $options $file"
these dont' seem needed --debuginfo
nor these from the previous main.nim.cfg: --app:console
]#

import times, os, strformat, strutils
from stdtest/specialpaths import buildDir
# import threadpool

const runtimeSecs {.intdefine.} = 5

const file = "shared.nim"
const dllname = buildDir / (DynlibFormat % file)

static:
  let nim = getCurrentCompilerExe()
  let (output, exitCode) = gorgeEx(fmt"{nim} c -o:{dllname} --debuginfo --app:lib --threads:on -d:release -d:useRealtimeGC {file}")
  doAssert exitCode == 0, output

proc status() {.importc: "status", dynlib: dllname.}
proc count() {.importc: "count", dynlib: dllname.}
proc checkOccupiedMem() {.importc: "checkOccupiedMem", dynlib: dllname.}

proc process() =
  let startTime = getTime()
  let runTime = cast[Time](runtimeSecs)
  var accumTime: Time
  while accumTime < runTime:
    for i in 0..10:
      count()
    # echo("1. sleeping... ")
    sleep(500)
    for i in 0..10:
      status()
    # echo("2. sleeping... ")
    sleep(500)
    checkOccupiedMem()
    accumTime = cast[Time]((getTime() - startTime))
    # echo("--- Minutes left to run: ", int(int(runTime-accumTime)/60))

proc main() =
  process()
  # parallel:
  #   for i in 0..0:
  #     spawn process()
  # sync()

main()