18 lines
653 B
Plaintext
18 lines
653 B
Plaintext
|
open Jest
|
||
|
|
open Reducer_Peggy_TestHelpers
|
||
|
|
|
||
|
|
describe("Environment Accesss", () => {
|
||
|
|
testToExpression(
|
||
|
|
"environment",
|
||
|
|
"{(:$_endOfOuterBlock_$ () (:$$_environment_$$))}",
|
||
|
|
~v=`{sampleCount: ${ReducerInterface_InternalExpressionValue.defaultEnvironment.sampleCount->Js.Int.toString},xyPointLength: ${ReducerInterface_InternalExpressionValue.defaultEnvironment.xyPointLength->Js.Int.toString}}`,
|
||
|
|
(),
|
||
|
|
)
|
||
|
|
testToExpression(
|
||
|
|
"withEnvironmentSampleCount(100, environment.sampleCount)",
|
||
|
|
"{(:$_endOfOuterBlock_$ () (:$$_withEnvironmentSampleCount_$$ 100 (:$_atIndex_$ (:$$_environment_$$) 'sampleCount')))}",
|
||
|
|
~v="100",
|
||
|
|
(),
|
||
|
|
)
|
||
|
|
})
|