effect-bun-testing 4.0.0

package/src/internal/internal.ts

@@ -0,0 +1,407 @@
+import {
+  Cause,
+  Duration,
+  Effect,
+  Exit,
+  Layer,
+  pipe,
+  Schedule,
+  Scope
+} from "effect"
+import { TestClock, TestConsole } from "effect/testing"
+import {
+  describe,
+  beforeAll,
+  afterAll,
+  test as bunTest,
+  expect
+} from "bun:test"
+import * as fc from "fast-check"
+import * as Equal from "effect/Equal"
+
+// ---------------------------------------------------------------------------
+// Types
+// ---------------------------------------------------------------------------
+
+/** A test body that returns an Effect. */
+export interface TestFunction<A, E, R> {
+  (): Effect.Effect<A, E, R>
+}
+
+/** Registers a named test whose body returns an Effect. */
+export interface Test<R> {
+  <A, E>(
+    name: string,
+    self: TestFunction<A, E, R>,
+    timeout?: number
+  ): void
+}
+
+/** Full tester with modifiers (skip, only, each, etc.). */
+export interface Tester<R> extends Test<R> {
+  readonly skip: Test<R>
+  readonly only: Test<R>
+  readonly skipIf: (condition: unknown) => Test<R>
+  readonly if: (condition: unknown) => Test<R>
+  /** Alias for `if` (vitest compat). */
+  readonly runIf: (condition: unknown) => Test<R>
+  readonly each: <T>(
+    cases: ReadonlyArray<T>
+  ) => <A, E>(
+    name: string,
+    self: (args: T) => Effect.Effect<A, E, R>,
+    timeout?: number
+  ) => void
+  readonly failing: Test<R>
+  /** Alias for `failing` (vitest compat). */
+  readonly fails: Test<R>
+  readonly prop: PropEffect<R>
+}
+
+/** Property-based test that returns an Effect. */
+export interface PropEffect<R> {
+  <const Arbs extends ReadonlyArray<fc.Arbitrary<any>>>(
+    name: string,
+    arbitraries: Arbs,
+    self: (
+      ...args: { [K in keyof Arbs]: Arbs[K] extends fc.Arbitrary<infer T> ? T : never }
+    ) => Effect.Effect<any, any, R>,
+    timeout?: number | { readonly fastCheck?: fc.Parameters<any> }
+  ): void
+}
+
+/** Property-based test that returns void / Promise<void>. */
+export interface Prop {
+  <const Arbs extends ReadonlyArray<fc.Arbitrary<any>>>(
+    name: string,
+    arbitraries: Arbs,
+    self: (
+      ...args: { [K in keyof Arbs]: Arbs[K] extends fc.Arbitrary<infer T> ? T : never }
+    ) => void | Promise<void>,
+    timeout?: number | { readonly fastCheck?: fc.Parameters<any> }
+  ): void
+}
+
+export type TestServices = TestClock.TestClock | TestConsole.TestConsole
+
+/** Full method set exposed on `it` and returned from `makeMethods`. */
+export interface Methods {
+  readonly effect: Tester<TestServices | Scope.Scope>
+  readonly live: Tester<Scope.Scope>
+  readonly flakyTest: typeof flakyTest
+  readonly layer: typeof layer
+  readonly prop: Prop
+}
+
+/** Method set available inside a `layer()` callback. */
+export interface MethodsNonLive<R, ExcludeTestServices extends boolean = false> {
+  readonly effect: Tester<ExcludeTestServices extends true ? R | Scope.Scope : R | TestServices | Scope.Scope>
+  readonly flakyTest: typeof flakyTest
+  readonly layer: <R2, E2>(
+    layer_: Layer.Layer<R2, E2>,
+    options?: LayerOptions
+  ) => LayerFn<R2, ExcludeTestServices>
+  readonly prop: Prop
+}
+
+export interface LayerOptions {
+  readonly memoMap?: Layer.MemoMap
+  readonly timeout?: Duration.Input
+  readonly excludeTestServices?: boolean
+}
+
+export type LayerFn<R, ExcludeTestServices extends boolean = false> = {
+  (f: (it: MethodsNonLive<R, ExcludeTestServices>) => void): void
+  (name: string, f: (it: MethodsNonLive<R, ExcludeTestServices>) => void): void
+}
+
+// ---------------------------------------------------------------------------
+// Test Environment
+// ---------------------------------------------------------------------------
+
+const TestEnv: Layer.Layer<TestServices> = Layer.mergeAll(
+  TestConsole.layer,
+  TestClock.layer()
+)
+
+// ---------------------------------------------------------------------------
+// runPromise  — Bun-adapted Effect runner (no signal, no onTestFinished)
+// ---------------------------------------------------------------------------
+
+const runPromise = <A, E>(effect: Effect.Effect<A, E, never>): Promise<A> =>
+  Effect.gen(function*() {
+    const exit = yield* Effect.exit(effect)
+    if (Exit.isSuccess(exit)) {
+      return exit.value
+    }
+    if (Cause.hasInterruptsOnly(exit.cause)) {
+      throw new Error("All fibers interrupted without errors.")
+    }
+    const errors = Cause.prettyErrors(exit.cause)
+    for (let i = 1; i < errors.length; i++) {
+      yield* Effect.logError(errors[i])
+    }
+    throw errors[0]!
+  }).pipe(Effect.runPromise)
+
+// ---------------------------------------------------------------------------
+// makeTester  — creates a Tester<R> that maps each test body through mapEffect
+// ---------------------------------------------------------------------------
+
+export const makeTester = <R>(
+  mapEffect: (self: Effect.Effect<any, any, R>) => Effect.Effect<any, any, never>,
+  testFn: typeof bunTest = bunTest
+): Tester<R> => {
+  const run = <A, E>(self: () => Effect.Effect<A, E, R>): Promise<void> =>
+    runPromise(pipe(Effect.suspend(self), mapEffect, Effect.asVoid))
+
+  const f: Test<R> = (name, self, timeout) =>
+    testFn(name, () => run(self), timeout)
+
+  const skip: Test<R> = (name, self, timeout) =>
+    testFn.skip(name, () => run(self), timeout)
+
+  const only: Test<R> = (name, self, timeout) =>
+    testFn.only(name, () => run(self), timeout)
+
+  const skipIf =
+    (condition: unknown): Test<R> =>
+    (name, self, timeout) =>
+      testFn.skipIf(condition as boolean)(name, () => run(self), timeout)
+
+  const ifCond =
+    (condition: unknown): Test<R> =>
+    (name, self, timeout) =>
+      testFn.if(condition as boolean)(name, () => run(self), timeout)
+
+  const each =
+    <T>(cases: ReadonlyArray<T>) =>
+    <A, E>(
+      name: string,
+      self: (args: T) => Effect.Effect<A, E, R>,
+      timeout?: number
+    ) =>
+      testFn.each(cases as T[])(
+        name,
+        (args: T) =>
+          runPromise(pipe(Effect.suspend(() => self(args)), mapEffect, Effect.asVoid)),
+        timeout
+      )
+
+  const failing: Test<R> = (name, self, timeout) =>
+    testFn.failing(name, () => run(self), timeout)
+
+  const propFn: PropEffect<R> = (name, arbitraries, self, timeout) => {
+    const fcOptions =
+      typeof timeout === "object" ? timeout?.fastCheck : undefined
+    const timeoutMs = typeof timeout === "number" ? timeout : undefined
+    testFn(
+      name,
+      async () => {
+        await fc.assert(
+          fc.asyncProperty(
+            ...(arbitraries as unknown as [fc.Arbitrary<any>]),
+            (...args: any[]) =>
+              runPromise(
+                pipe(
+                  Effect.suspend(() => (self as any)(...args)) as Effect.Effect<any, any, R>,
+                  mapEffect,
+                  Effect.asVoid
+                )
+              )
+          ),
+          fcOptions
+        )
+      },
+      timeoutMs
+    )
+  }
+
+  return Object.assign(f, {
+    skip,
+    only,
+    skipIf,
+    if: ifCond,
+    runIf: ifCond,
+    each,
+    failing,
+    fails: failing,
+    prop: propFn
+  }) as Tester<R>
+}
+
+// ---------------------------------------------------------------------------
+// Preconfigured testers
+// ---------------------------------------------------------------------------
+
+/** Run effects with TestClock + TestConsole, auto-scoped. */
+export const effect: Tester<TestServices | Scope.Scope> = makeTester((e) =>
+  e.pipe(Effect.scoped, Effect.provide(TestEnv))
+)
+
+/** Run effects live (no test services), auto-scoped. */
+export const live: Tester<Scope.Scope> = makeTester((e) => Effect.scoped(e))
+
+// ---------------------------------------------------------------------------
+// flakyTest  — retry an effect up to 10 times within a timeout
+// ---------------------------------------------------------------------------
+
+export const flakyTest = <A, E, R>(
+  self: Effect.Effect<A, E, R>,
+  timeout: Duration.Input = Duration.seconds(30)
+): Effect.Effect<A, never, R> =>
+  pipe(
+    Effect.catchDefect(self, (defect) => Effect.fail(defect as any)),
+    Effect.retry(
+      Schedule.both(Schedule.recurs(10), Schedule.during(timeout))
+    ),
+    Effect.orDie
+  ) as any
+
+// ---------------------------------------------------------------------------
+// prop  — non-Effect property-based test
+// ---------------------------------------------------------------------------
+
+export const prop: Prop = (name, arbitraries, self, timeout) => {
+  const fcOptions =
+    typeof timeout === "object" ? timeout?.fastCheck : undefined
+  const timeoutMs = typeof timeout === "number" ? timeout : undefined
+  bunTest(
+    name,
+    async () => {
+      await fc.assert(
+        fc.asyncProperty(
+          ...(arbitraries as unknown as [fc.Arbitrary<any>]),
+          (...args: any[]) => (self as any)(...args)
+        ),
+        fcOptions
+      )
+    },
+    timeoutMs
+  )
+}
+
+// ---------------------------------------------------------------------------
+// layer  — shared Layer across tests with beforeAll/afterAll lifecycle
+// ---------------------------------------------------------------------------
+
+export const layer = <R, E, const ExcludeTestServices extends boolean = false>(
+  layer_: Layer.Layer<R, E>,
+  options?: {
+    readonly memoMap?: Layer.MemoMap
+    readonly timeout?: Duration.Input
+    readonly excludeTestServices?: ExcludeTestServices
+  }
+): LayerFn<R, ExcludeTestServices> => {
+  type Env = ExcludeTestServices extends true ? R : R | TestServices
+
+  return ((...args: any[]) => {
+    const excludeTestServices = options?.excludeTestServices ?? false
+    const withTestEnv: Layer.Layer<any, any> = excludeTestServices
+      ? (layer_ as any)
+      : Layer.provideMerge(layer_ as any, TestEnv as any)
+    const memoMap = options?.memoMap ?? Layer.makeMemoMapUnsafe()
+    const scope = Scope.makeUnsafe()
+    const timeout = options?.timeout
+      ? Duration.toMillis(options.timeout)
+      : undefined
+
+    const serviceMapEffect = pipe(
+      Layer.buildWithMemoMap(withTestEnv, memoMap, scope),
+      Effect.orDie,
+      Effect.cached,
+      Effect.runSync
+    )
+
+    const effectTester = makeTester<Env>(
+      (e) =>
+        Effect.flatMap(serviceMapEffect, (serviceMap) =>
+          e.pipe(Effect.scoped, Effect.provide(serviceMap))
+        ) as any
+    )
+
+    const makeIt = (): MethodsNonLive<R, ExcludeTestServices> =>
+      ({
+        effect: effectTester,
+        flakyTest,
+        prop,
+        layer: <R2, E2>(
+          nestedLayer: Layer.Layer<R2, E2>,
+          nestedOptions?: LayerOptions
+        ) =>
+          layer(
+            Layer.provideMerge(nestedLayer as any, withTestEnv) as any,
+            {
+              ...nestedOptions,
+              memoMap,
+              excludeTestServices: true
+            } as any
+          )
+      }) as any
+
+    if (args.length === 1) {
+      beforeAll(
+        () => runPromise(Effect.asVoid(serviceMapEffect)),
+        timeout
+      )
+      afterAll(
+        () => runPromise(Scope.close(scope, Exit.void)),
+        timeout
+      )
+      return args[0](makeIt())
+    }
+
+    return describe(args[0] as string, () => {
+      beforeAll(
+        () => runPromise(Effect.asVoid(serviceMapEffect)),
+        timeout
+      )
+      afterAll(
+        () => runPromise(Scope.close(scope, Exit.void)),
+        timeout
+      )
+      return args[1](makeIt())
+    })
+  }) as any
+}
+
+// ---------------------------------------------------------------------------
+// makeMethods  — compose the full `Methods` object
+// ---------------------------------------------------------------------------
+
+export const makeMethods = (): Methods => ({
+  effect,
+  live,
+  flakyTest,
+  layer,
+  prop
+})
+
+// ---------------------------------------------------------------------------
+// addEqualityTesters  — register Effect Equal-aware matchers via expect.extend
+// ---------------------------------------------------------------------------
+
+export const addEqualityTesters = (): void => {
+  expect.extend({
+    toEqualEffect(received: unknown, expected: unknown) {
+      if (!Equal.isEqual(received) || !Equal.isEqual(expected)) {
+        const pass = Object.is(received, expected)
+        return {
+          pass,
+          message: () =>
+            pass
+              ? `Expected values to not be equal`
+              : `Expected values to be equal`
+        }
+      }
+      const pass = Equal.equals(received, expected)
+      return {
+        pass,
+        message: () =>
+          pass
+            ? `Expected Effect values to not be equal (via Equal.equals)`
+            : `Expected Effect values to be equal (via Equal.equals), but they differ`
+      }
+    }
+  })
+}

package/src/utils.ts

@@ -0,0 +1,215 @@
+import { expect } from "bun:test"
+import * as Equal from "effect/Equal"
+import { Option, Result, Exit, Cause } from "effect"
+
+// ---------------------------------------------------------------------------
+// Primitive assertions
+// ---------------------------------------------------------------------------
+
+export function fail(message: string): never {
+  throw new Error(message)
+}
+
+export function deepStrictEqual<A>(actual: A, expected: A, message?: string): void {
+  expect(actual).toStrictEqual(expected)
+  if (message) {
+    // Message is informational — the assertion above throws on failure
+  }
+}
+
+export function strictEqual<A>(actual: A, expected: A, message?: string): void {
+  expect(actual).toBe(expected)
+}
+
+export function notDeepStrictEqual<A>(actual: A, expected: A, message?: string): void {
+  expect(actual).not.toStrictEqual(expected)
+}
+
+/** Compare using Effect's `Equal.equals` for structural equality. */
+export function assertEquals<A>(actual: A, expected: A, message?: string): void {
+  if (!Equal.equals(actual, expected)) {
+    const msg = message ?? `Expected values to be equal (via Equal.equals)`
+    throw new Error(
+      `${msg}\n  actual:   ${JSON.stringify(actual)}\n  expected: ${JSON.stringify(expected)}`
+    )
+  }
+}
+
+export function doesNotThrow(thunk: () => void, message?: string): void {
+  try {
+    thunk()
+  } catch (e) {
+    throw new Error(message ?? `Expected function not to throw, but it threw: ${e}`)
+  }
+}
+
+// ---------------------------------------------------------------------------
+// Boolean assertions
+// ---------------------------------------------------------------------------
+
+export function assertTrue(self: unknown, message?: string): asserts self {
+  expect(self).toBeTruthy()
+}
+
+export function assertFalse(self: boolean, message?: string): void {
+  expect(self).toBeFalsy()
+}
+
+// ---------------------------------------------------------------------------
+// Type assertions
+// ---------------------------------------------------------------------------
+
+export function assertInstanceOf<C extends abstract new (...args: any[]) => any>(
+  value: unknown,
+  constructor: C,
+  message?: string
+): asserts value is InstanceType<C> {
+  expect(value).toBeInstanceOf(constructor)
+}
+
+// ---------------------------------------------------------------------------
+// String assertions
+// ---------------------------------------------------------------------------
+
+export function assertInclude(actual: string | undefined, expected: string): void {
+  expect(actual).toBeDefined()
+  expect(actual).toInclude(expected)
+}
+
+export function assertMatch(actual: string, regexp: RegExp): void {
+  expect(actual).toMatch(regexp)
+}
+
+// ---------------------------------------------------------------------------
+// Throw assertions
+// ---------------------------------------------------------------------------
+
+export function throws(
+  thunk: () => void,
+  error?: Error | ((u: unknown) => void)
+): void {
+  if (typeof error === "function") {
+    try {
+      thunk()
+      throw new Error("Expected function to throw")
+    } catch (e) {
+      error(e)
+    }
+  } else if (error) {
+    expect(thunk).toThrow(error.message)
+  } else {
+    expect(thunk).toThrow()
+  }
+}
+
+export async function throwsAsync(
+  thunk: () => Promise<void>,
+  error?: Error | ((u: unknown) => void)
+): Promise<void> {
+  if (typeof error === "function") {
+    try {
+      await thunk()
+      throw new Error("Expected async function to throw")
+    } catch (e) {
+      error(e)
+    }
+  } else {
+    try {
+      await thunk()
+      throw new Error("Expected async function to throw")
+    } catch (e) {
+      if (error && e instanceof Error) {
+        expect(e.message).toInclude(error.message)
+      }
+    }
+  }
+}
+
+// ---------------------------------------------------------------------------
+// Option assertions
+// ---------------------------------------------------------------------------
+
+export function assertNone<A>(
+  option: Option.Option<A>
+): asserts option is Option.None<never> {
+  expect(Option.isNone(option)).toBe(true)
+}
+
+export function assertSome<A>(
+  option: Option.Option<A>,
+  expected: A
+): asserts option is Option.Some<A> {
+  expect(Option.isSome(option)).toBe(true)
+  if (Option.isSome(option)) {
+    assertEquals(option.value, expected)
+  }
+}
+
+// ---------------------------------------------------------------------------
+// Result assertions (v4: Either → Result)
+// ---------------------------------------------------------------------------
+
+export function assertSuccess_<A, E>(
+  result: Result.Result<A, E>,
+  expected: A
+): asserts result is Result.Success<A, E> {
+  expect(Result.isSuccess(result)).toBe(true)
+  if (Result.isSuccess(result)) {
+    assertEquals(result.success, expected)
+  }
+}
+
+export function assertFailure_<A, E>(
+  result: Result.Result<A, E>,
+  expected: E
+): asserts result is Result.Failure<A, E> {
+  expect(Result.isFailure(result)).toBe(true)
+  if (Result.isFailure(result)) {
+    assertEquals(result.failure as any, expected as any)
+  }
+}
+
+/** Alias for assertSuccess_ (vitest compat: assertRight). */
+export function assertRight<A, E>(
+  result: Result.Result<A, E>,
+  expected: A
+): asserts result is Result.Success<A, E> {
+  assertSuccess_(result, expected)
+}
+
+/** Alias for assertFailure_ (vitest compat: assertLeft). */
+export function assertLeft<A, E>(
+  result: Result.Result<A, E>,
+  expected: E
+): asserts result is Result.Failure<A, E> {
+  assertFailure_(result, expected)
+}
+
+// ---------------------------------------------------------------------------
+// Exit assertions
+// ---------------------------------------------------------------------------
+
+export function assertExitSuccess<A, E>(
+  exit: Exit.Exit<A, E>,
+  expected: A
+): asserts exit is Exit.Success<A, never> {
+  expect(Exit.isSuccess(exit)).toBe(true)
+  if (Exit.isSuccess(exit)) {
+    assertEquals(exit.value, expected)
+  }
+}
+
+export function assertExitFailure<A, E>(
+  exit: Exit.Exit<A, E>,
+  expected: Cause.Cause<E>
+): asserts exit is Exit.Failure<never, E> {
+  expect(Exit.isFailure(exit)).toBe(true)
+  if (Exit.isFailure(exit)) {
+    assertEquals(exit.cause as any, expected as any)
+  }
+}
+
+/** @deprecated Use assertExitSuccess. Alias. */
+export const assertSuccess = assertExitSuccess
+/** @deprecated Use assertExitFailure. Alias. */
+export const assertFailure = assertExitFailure