From 78347889552de88dab3c657053f5c64a9112367b Mon Sep 17 00:00:00 2001 From: Calvin Rose Date: Sat, 14 Feb 2026 09:58:47 -0600 Subject: Slight tweaks so test suite is not hash sensitive. --- spork/cc.janet | 2 +- test/suite-tarray.janet | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/spork/cc.janet b/spork/cc.janet index 2f22e43..ca6eb0a 100644 --- a/spork/cc.janet +++ b/spork/cc.janet @@ -18,7 +18,7 @@ ### (pkg-config "sdl2" "vulkan") ### (with-dyns [*defines* {"GAME_BUILD" "devel-0.0"} ### *visit* visit-execute-if-stale] -### (compile-and-link-executable "game" "main.c" "sound.c" "graphics.c")) +### (compile-and-link-executable "game" "main.c" "generate-c.janet" "sound.c" "graphics.c")) ### (import ./path) diff --git a/test/suite-tarray.janet b/test/suite-tarray.janet index 6283f84..c22de2d 100644 --- a/test/suite-tarray.janet +++ b/test/suite-tarray.janet @@ -93,6 +93,7 @@ (for i 0 (tarray/length array2) (put array2 i (math/random))) +# Changes in Janet's hash algorithm will perturb these results - doesn't always mean things are broken (assert (approx-eq 0.208122 (median-absolute-deviation arr) 0.00001) "median-absolute-deviation") (assert (approx-eq 0.274348 (sample-standard-deviation arr) 0.000001) "sample-standard-deviation") (assert (approx-eq 0.272973 (standard-deviation arr) 0.000001) "standard-deviation") @@ -104,7 +105,7 @@ (assert (approx-eq 0.0745142 (variance arr) 0.000001) "variance") (assert (approx-eq 0.0752669 (sample-variance arr) 0.000001) "sample-variance") (assert (approx-eq 0.520372 (median arr) 0.000001) "median") -(assert (approx-eq 0.645951 (mode arr) 0.000001) "mode") +(assert (mode arr) "mode") # don't check result as it depends on hash function when there is no mode. (assert (approx-eq 0.409312 (interquartile-range arr) 0.000001) "interquartile-range") (assert (approx-eq 0.348654 (geometric-mean arr) 0.00001) "geometric-mean") (assert (approx-eq 0.122595 (harmonic-mean arr) 0.00001) "harmonic-mean") -- cgit v1.2.3