quantified.uncertainty/squiggle
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added simple genericOperation test

Browse Source
This commit is contained in:
Ozzie Gooen 2022-03-28 16:52:04 -04:00
parent 3cf336d720
commit 01b80d73be
1 changed files with 1 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
packages/squiggle-lang/__tests__/GenericDist/GenericOperation__Test.res
View File

@ -62,43 +62,14 @@ describe("toPointSet", () => {
expect(result)->toEqual(#Error(Other("Converting sampleSet to pointSet failed")))
})
test("back and forth", () => {
test("on sample set", () => {
let result =
run(#fromDist(#toDist(#toPointSet), normalDist))
|> fmap(#fromDist(#toDist(#toSampleSet(1000))))
|> fmap(#fromDist(#toDist(#consoleLog)))
|> fmap(#fromDist(#toDist(#toPointSet)))
|> fmap(#fromDist(#toDist(#consoleLog)))
|> fmap(#fromDist(#toFloat(#Mean)))
|> toFloat
|> toExt
expect(result)->toBeCloseTo(5.09)
})
test("on sample set distribution", () => {
let result =
run(
#fromDist(
#toDist(#toPointSet),
#SampleSet([
0.0,
1.0,
2.0,
3.0,
4.0,
5.0,
6.0,
7.0,
8.0,
9.0,
10.0,
]),
),
)
|> fmap(#fromDist(#toFloat(#Mean)))
|> toFloat
|> toExt
Js.log(result)
expect(result)->toBeCloseTo(5.09)
})
})