enable fragmentation tests
This commit is contained in:
parent
226532f8f3
commit
c96e1d0180
2 changed files with 26 additions and 10 deletions
|
|
@ -1,7 +1,8 @@
|
|||
|
||||
|
||||
|
||||
include system/ansi_c
|
||||
discard """
|
||||
output: '''occupied ok: true
|
||||
total ok: true'''
|
||||
"""
|
||||
|
||||
import strutils, data
|
||||
|
||||
|
|
@ -16,4 +17,11 @@ proc main =
|
|||
# c_fprintf(stdout, "iteration: %ld size: %ld\n", i, size)
|
||||
|
||||
main()
|
||||
echo formatSize getOccupiedMem(), " / ", formatSize getTotalMem()
|
||||
|
||||
let occ = getOccupiedMem()
|
||||
let total = getTotalMem()
|
||||
|
||||
# Current values on Win64: 824KiB / 106.191MiB
|
||||
|
||||
echo "occupied ok: ", occ < 2 * 1024 * 1024
|
||||
echo "total ok: ", total < 120 * 1024 * 1024
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue