2022-04-07 22:38:49 +00:00
|
|
|
open Jest
|
|
|
|
open Expect
|
|
|
|
|
|
|
|
let makeTest = (~only=false, str, item1, item2) =>
|
|
|
|
only
|
2022-04-12 23:59:40 +00:00
|
|
|
? Only.test(str, () => expect(item1)->toEqual(item2))
|
|
|
|
: test(str, () => expect(item1)->toEqual(item2))
|
2022-04-07 22:38:49 +00:00
|
|
|
|
|
|
|
let {toFloat, toDist, toString, toError, fmap} = module(DistributionOperation.Output)
|
|
|
|
|
|
|
|
let fnImage = (theFn, inps) => Js.Array.map(theFn, inps)
|
|
|
|
|
|
|
|
let env: DistributionOperation.env = {
|
2022-04-11 21:37:40 +00:00
|
|
|
sampleCount: 100000,
|
|
|
|
xyPointLength: 1000,
|
2022-04-07 22:38:49 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
let run = DistributionOperation.run(~env)
|
|
|
|
let outputMap = fmap(~env)
|
|
|
|
let unreachableInTestFileMessage = "Should be impossible to reach (This error is in test file)"
|
|
|
|
let toExtFloat: option<float> => float = E.O.toExt(unreachableInTestFileMessage)
|
2022-04-12 23:59:40 +00:00
|
|
|
let toExtDist: option<GenericDist_Types.genericDist> => GenericDist_Types.genericDist = E.O.toExt(
|
|
|
|
unreachableInTestFileMessage,
|
|
|
|
)
|
2022-04-07 22:38:49 +00:00
|
|
|
// let toExt: option<'a> => 'a = E.O.toExt(unreachableInTestFileMessage)
|
2022-04-12 23:59:40 +00:00
|
|
|
let unpackFloat = x => x->toFloat->toExtFloat
|
|
|
|
let unpackDist = y => y->toDist->toExtDist
|