@effect-ts/system/_src/Testing/AssertionValue/withContext.ts

Effect-TS is a zero dependency set of libraries to write highly productive, purely functional TypeScript at scale.

// ets_tracing: off

import type * as O from "../../Option/index.js"
import type { AssertionValue } from "./AssertionValue.js"
import { makeAssertionValue } from "./makeAssertionValue.js"

export function withContext_(
  self: AssertionValue,
  expr: O.Option<string>,
  sourceLocation: O.Option<string>
): AssertionValue {
  return makeAssertionValue(
    self.assertion,
    self.value,
    self.result,
    expr,
    sourceLocation
  )
}

export function withContext(expr: O.Option<string>, sourceLocation: O.Option<string>) {
  return (self: AssertionValue) => withContext_(self, expr, sourceLocation)
}