90 lines
2.8 KiB
XML
90 lines
2.8 KiB
XML
// open Jest
|
|
// open Expect
|
|
|
|
// module BindingsReplacer = Reducer_Expression_BindingsReplacer
|
|
// module Expression = Reducer_Expression
|
|
// module ExpressionWithContext = Reducer_ExpressionWithContext
|
|
// module InternalExpressionValue = ReducerInterface.InternalExpressionValue
|
|
// module Macro = Reducer_Expression_Macro
|
|
// module ProjectAccessorsT = ReducerProject_ProjectAccessors_T
|
|
// module T = Reducer_Expression_T
|
|
|
|
// let testMacro_ = (
|
|
// tester,
|
|
// bindArray: array<(string, InternalExpressionValue.t)>,
|
|
// expr: T.expression,
|
|
// expectedCode: string,
|
|
// ) => {
|
|
// let bindings = Reducer_Bindings.fromArray(bindArray)
|
|
// tester(expr->T.toString, () => {
|
|
// let result = switch expr->Reducer_Dispatch_BuiltInMacros.dispatchMacroCall(
|
|
// bindings,
|
|
// ProjectAccessorsT.identityAccessors,
|
|
// Expression.reduceExpressionInProject,
|
|
// ) {
|
|
// | v => Ok(v)
|
|
// | exception Reducer_ErrorValue.ErrorException(e) => Error(e)
|
|
// }
|
|
|
|
// result->ExpressionWithContext.toStringResult->expect->toEqual(expectedCode)
|
|
// })
|
|
// }
|
|
|
|
// let testMacroEval_ = (
|
|
// tester,
|
|
// bindArray: array<(string, InternalExpressionValue.t)>,
|
|
// expr: T.expression,
|
|
// expectedValue: string,
|
|
// ) => {
|
|
// let bindings = Reducer_Bindings.fromArray(bindArray)
|
|
// tester(expr->T.toString, () =>
|
|
// expr
|
|
// ->Macro.doMacroCall(
|
|
// bindings,
|
|
// ProjectAccessorsT.identityAccessors,
|
|
// Expression.reduceExpressionInProject,
|
|
// )
|
|
// ->Ok
|
|
// ->InternalExpressionValue.toStringResult
|
|
// ->expect
|
|
// ->toEqual(expectedValue)
|
|
// )
|
|
// }
|
|
|
|
// let testMacro = (
|
|
// bindArray: array<(string, InternalExpressionValue.t)>,
|
|
// expr: T.expression,
|
|
// expectedExpr: string,
|
|
// ) => testMacro_(test, bindArray, expr, expectedExpr)
|
|
// let testMacroEval = (
|
|
// bindArray: array<(string, InternalExpressionValue.t)>,
|
|
// expr: T.expression,
|
|
// expectedValue: string,
|
|
// ) => testMacroEval_(test, bindArray, expr, expectedValue)
|
|
|
|
// module MySkip = {
|
|
// let testMacro = (
|
|
// bindArray: array<(string, InternalExpressionValue.t)>,
|
|
// expr: T.expression,
|
|
// expectedExpr: string,
|
|
// ) => testMacro_(Skip.test, bindArray, expr, expectedExpr)
|
|
// let testMacroEval = (
|
|
// bindArray: array<(string, InternalExpressionValue.t)>,
|
|
// expr: T.expression,
|
|
// expectedValue: string,
|
|
// ) => testMacroEval_(Skip.test, bindArray, expr, expectedValue)
|
|
// }
|
|
|
|
// module MyOnly = {
|
|
// let testMacro = (
|
|
// bindArray: array<(string, InternalExpressionValue.t)>,
|
|
// expr: T.expression,
|
|
// expectedExpr: string,
|
|
// ) => testMacro_(Only.test, bindArray, expr, expectedExpr)
|
|
// let testMacroEval = (
|
|
// bindArray: array<(string, InternalExpressionValue.t)>,
|
|
// expr: T.expression,
|
|
// expectedValue: string,
|
|
// ) => testMacroEval_(Only.test, bindArray, expr, expectedValue)
|
|
// }
|