82 lines
2.2 KiB
Plaintext
82 lines
2.2 KiB
Plaintext
|
module InternalExpressionValue = ReducerInterface_InternalExpressionValue
|
||
|
|
module ExpressionT = Reducer_Expression_T
|
||
|
|
module Module = Reducer_Module
|
||
|
|
module Bindings = Reducer_Module
|
||
|
|
module ErrorValue = Reducer_ErrorValue
|
||
|
|
|
||
|
|
open Jest
|
||
|
|
open Expect
|
||
|
|
|
||
|
|
// ----------------------
|
||
|
|
// --- Start of Module File
|
||
|
|
// ----------------------
|
||
|
|
|
||
|
|
module FooImplementation = {
|
||
|
|
open FunctionRegistry_Core
|
||
|
|
open FunctionRegistry_Helpers
|
||
|
|
|
||
|
|
let library = [
|
||
|
|
Function.make(
|
||
|
|
~name="add",
|
||
|
|
~nameSpace="Foo",
|
||
|
|
~definitions=[
|
||
|
|
FnDefinition.make(
|
||
|
|
~requiresNamespace=false,
|
||
|
|
~name="add",
|
||
|
|
~inputs=[FRTypeNumber, FRTypeNumber],
|
||
|
|
~run=(_, inputs, _) =>
|
||
|
|
switch inputs {
|
||
|
|
| [FRValueNumber(a), FRValueNumber(b)] => Ok(Wrappers.evNumber(a +. b))
|
||
|
|
| _ => Error("False")
|
||
|
|
},
|
||
|
|
(),
|
||
|
|
),
|
||
|
|
FnDefinition.make(
|
||
|
|
~requiresNamespace=true,
|
||
|
|
~name="add",
|
||
|
|
~inputs=[FRTypeNumber, FRTypeNumber, FRTypeNumber],
|
||
|
|
~run=(_, inputs, _) =>
|
||
|
|
switch inputs {
|
||
|
|
| [FRValueNumber(a), FRValueNumber(b), FRValueNumber(c)] =>
|
||
|
|
Ok(Wrappers.evNumber(a +. b +. c))
|
||
|
|
| _ => Error("False")
|
||
|
|
},
|
||
|
|
(),
|
||
|
|
),
|
||
|
|
],
|
||
|
|
(),
|
||
|
|
),
|
||
|
|
]
|
||
|
|
}
|
||
|
|
|
||
|
|
let makeBindings = (previousBindings: Bindings.t): Bindings.t =>
|
||
|
|
previousBindings->FunctionRegistry_Core.Registry.makeModules(FooImplementation.library)
|
||
|
|
|
||
|
|
let stdLibWithFoo = Bindings.emptyBindings->makeBindings
|
||
|
|
|
||
|
|
let evalWithFoo = sourceCode =>
|
||
|
|
Reducer_Expression.parse(sourceCode)->Belt.Result.flatMap(expr =>
|
||
|
|
Reducer_Expression.reduceExpression(
|
||
|
|
expr,
|
||
|
|
stdLibWithFoo,
|
||
|
|
InternalExpressionValue.defaultEnvironment,
|
||
|
|
)
|
||
|
|
)
|
||
|
|
|
||
|
|
let evalToStringResultWithFoo = sourceCode =>
|
||
|
|
evalWithFoo(sourceCode)->InternalExpressionValue.toStringResult
|
||
|
|
|
||
|
|
describe("Module", () => {
|
||
|
|
test("add(1,2)", () => {
|
||
|
|
let result = evalToStringResultWithFoo("Foo.add(1,2)")
|
||
|
|
expect(result)->toEqual("Ok(3)")
|
||
|
|
})
|
||
|
|
test("add(1,2,3)", () => {
|
||
|
|
let result = evalToStringResultWithFoo("Foo.add(1,2,3)")
|
||
|
|
expect(result)->toEqual("Ok(6)")
|
||
|
|
})
|
||
|
|
test("add(1,2,3,5)", () => {
|
||
|
|
let result = evalToStringResultWithFoo("Foo.add(1,2,3,5)")
|
||
|
|
expect(result)->toEqual("Ok(6)")
|
||
|
|
})
|
||
|
|
})
|