pike.git/ src/ testsuite.in

2001-02-05

2001-02-05 11:24:16 by Mirar (Pontus Hagland) <pike@sort.mirar.org>

• 7b5f5143114c8af21190fb5b6d1981c97f86f763 (31 lines) (+30/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

better calibration of RDTSC hrtime routine, and a testsuite test

Rev: src/configure.in:1.473
Rev: src/port.c:1.38
Rev: src/testsuite.in:1.382

1: - test_true([["$Id: testsuite.in,v 1.381 2001/02/04 09:09:01 mirar Exp $"]]); + test_true([["$Id: testsuite.in,v 1.382 2001/02/05 11:24:16 mirar Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
6077:   test_true(intp(time(1)))   test_true(floatp(time(2)))    +  + // gethrtime() may gethrtime(), RDTSC or gettimeofday + // sleep uses a combination of select/poll and the above + // time() uses gettimeofday + test_any([[ +  float tts=2.0; +  +  int t0=time(); +  float t1=time(t0); +  int hrt1=gethrtime(); +  sleep(tts); +  int hrt2=gethrtime(); +  float t2=time(t0); +  +  float e=(hrt2-hrt1)*1e-6; +  float f=t2-t1; +  +  array r=({}); +  if (e<tts-0.1 || e>tts+0.1) +  r+=({sprintf("hrtime %.6f, %+.6f",e,e-tts)}); +  +  if (f<tts-0.1 || f>tts+0.1) +  r+=({sprintf("timeofday %.6f, %+.6f",f,f-tts)}); +  +  if (sizeof(r)) return r*" / "; +  return "no error"; + ]],"no error") +    // - trace   test_do(trace(0))   test_eq(trace(0),0)