hyung-hwan/hawk
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added a small test case for gc
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse Source
This commit is contained in:
hyung-hwan
2024-04-23 00:39:01 +09:00
parent 27bf77b51e
commit 9271fae745
6 changed files with 54 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
t/h-004.hawk Normal file
View File

@ -0,0 +1,37 @@
@pragma entry main
@pragma implicit off
@include "tap.inc";
function run_gc_test ()
{
@local i, a, b, ts, pr, cpr;
tap_ensure (hawk::GC_NUM_GENS, 3, @SCRIPTNAME, @SCRIPTLINE);
hawk::gc_set_threshold(0, 30);
ts = hawk::gc_get_threshold(0);
tap_ensure (ts, 30, @SCRIPTNAME, @SCRIPTLINE);
pr = hawk::gc_get_pressure(0);
for (i = 0; i < 50; i++)
{
a[1] = 999; ## there is only 1 allocation that's concerting GC in the current implementation
b = a;
b = @nil;
a = @nil;
cpr = hawk::gc_get_pressure(0);
if (pr + i + 1 <= ts)
tap_ensure (cpr, pr + i + 1, @SCRIPTNAME, @SCRIPTLINE);
else ## gc kicks in when the pressure reaches the threshold, the pressure drops...
tap_ensure (cpr, (pr + i + 1) - ts, @SCRIPTNAME, @SCRIPTLINE);
}
}
function main()
{
run_gc_test();
tap_end ();
}