@typed/fx 0.0.32 → 0.0.34

package/perf/helpers.ts

@@ -0,0 +1,54 @@
+import * as Effect from '@effect/core/io/Effect'
+import * as MC from '@most/core'
+import * as MS from '@most/scheduler'
+import { asap } from '@most/scheduler'
+import * as MT from '@most/types'
+import * as rxjs from 'rxjs'
+
+import * as Fx from '../src/index'
+import { PerformanceTestCase } from '../tools/benchmark.js'
+
+export function effectTest<E, A>(init: () => Effect.Effect<never, E, A>) {
+  return PerformanceTestCase('@effect/io/Effect', init, Effect.unsafeRunPromise)
+}
+
+export function rxjsTest<A>(init: () => rxjs.Observable<A>) {
+  return PerformanceTestCase('rxjs @7', init, (o) => new Promise((resolve) => o.subscribe(resolve)))
+}
+
+export function mostTest<A>(init: (fromArray: typeof mostFromArray) => MT.Stream<A>) {
+  const scheduler = MS.newDefaultScheduler()
+
+  return PerformanceTestCase(
+    '@most/core',
+    () => init(mostFromArray),
+    (o) => MC.runEffects(o, scheduler),
+  )
+}
+
+export function mostFromArray<A>(array: readonly A[]): MT.Stream<A> {
+  const l = array.length
+  return MC.newStream((sink, scheduler) =>
+    asap(
+      {
+        run(t) {
+          for (let i = 0; i < l; ++i) {
+            sink.event(t, array[i])
+          }
+          sink.end(t)
+        },
+        error(t, e) {
+          sink.error(t, e)
+        },
+        dispose() {
+          // Nothing to dispose
+        },
+      },
+      scheduler,
+    ),
+  )
+}
+
+export function fxTest<E, A>(init: () => Fx.Fx<never, E, A>) {
+  return PerformanceTestCase('@typed/fx', () => Fx.runDrain(init()), Effect.unsafeRunPromise)
+}

package/src/Subject.test.ts

@@ -2,7 +2,7 @@ import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
 import * as Fiber from '@effect/core/io/Fiber'
-import { pipe } from '@fp-ts/data/Function'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/Subject.ts

@@ -113,10 +113,10 @@ export namespace RefSubject {
       updateSome: (f) => ref.updateSome(f),
       updateSomeAndGet: (f) => ref.updateSomeAndGet(f),
       run: h.run.bind(h),
-      emit: h.emit.bind(h),
+      emit: ref.set,
       failCause: h.failCause.bind(h),
       end: h.end,
-      unsafeEmit: (a) => Effect.unsafeRunAsync(h.emit(a)),
+      unsafeEmit: (a) => Effect.unsafeRunAsync(ref.set(a)),
       unsafeFailCause: (c) => Effect.unsafeRunAsync(h.failCause(c)),
       unsafeEnd: () => Effect.unsafeRunAsync(h.end),
     }

package/src/combine.test.ts

@@ -1,8 +1,8 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
 import * as Duration from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/continueWith.test.ts

@@ -1,7 +1,7 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/debounce.test.ts

@@ -1,8 +1,8 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
 import { millis } from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/delay.test.ts

@@ -1,8 +1,8 @@
 import { deepStrictEqual, ok } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
 import * as Duration from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/during.test.ts

@@ -4,8 +4,8 @@ import * as Effect from '@effect/core/io/Effect'
 import * as Fiber from '@effect/core/io/Fiber'
 import * as TestClock from '@effect/core/testing/TestClock'
 import { TestEnvironment } from '@effect/core/testing/TestEnvironment'
-import { pipe } from '@fp-ts/data/Function'
 import { millis } from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/exhaustMap.test.ts

@@ -1,8 +1,8 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
 import * as Duration from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/exhaustMapLatest.test.ts

@@ -1,8 +1,8 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
 import * as Duration from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/exhaustMapList.test.ts

@@ -4,8 +4,8 @@ import * as Effect from '@effect/core/io/Effect'
 import * as Fiber from '@effect/core/io/Fiber'
 import * as TestClock from '@effect/core/testing/TestClock'
 import { TestEnvironment } from '@effect/core/testing/TestEnvironment'
-import { pipe } from '@fp-ts/data/Function'
 import { millis } from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/filterLoop.test.ts

@@ -1,7 +1,7 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
+import { pipe } from '@tsplus/stdlib/data/Function'
 import * as Maybe from '@tsplus/stdlib/data/Maybe'
 
 import * as Fx from './index.js'

package/src/filterMap.test.ts

@@ -1,7 +1,7 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
+import { pipe } from '@tsplus/stdlib/data/Function'
 import * as Maybe from '@tsplus/stdlib/data/Maybe'
 
 import * as Fx from './index.js'

package/src/flatMap.test.ts

@@ -1,8 +1,8 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
 import * as Duration from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/flatMapConcurrently.test.ts

@@ -1,8 +1,8 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
 import * as Duration from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/hold.test.ts

@@ -2,8 +2,8 @@ import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
 import * as Fiber from '@effect/core/io/Fiber'
-import { pipe } from '@fp-ts/data/Function'
 import * as Duration from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/mapCause.test.ts

@@ -3,7 +3,7 @@ import { deepEqual } from 'assert'
 import * as Cause from '@effect/core/io/Cause'
 import * as Effect from '@effect/core/io/Effect'
 import * as Exit from '@effect/core/io/Exit'
-import { pipe } from '@fp-ts/data/Function'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/mapEffect.test.ts

@@ -1,7 +1,7 @@
 import { deepEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/merge.test.ts

@@ -1,7 +1,7 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/multicast.test.ts

@@ -1,8 +1,8 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
 import * as Duration from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/orElse.test.ts

@@ -1,7 +1,7 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/periodic.test.ts

@@ -1,8 +1,8 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
 import { millis } from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import { periodic } from './periodic.js'
 import { runCollect } from './runCollect.js'

package/src/provide.test.ts

@@ -2,7 +2,7 @@ import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
 import * as Scope from '@effect/core/io/Scope'
-import { pipe } from '@fp-ts/data/Function'
+import { pipe } from '@tsplus/stdlib/data/Function'
 import { Tag } from '@tsplus/stdlib/service/Tag'
 
 import * as Fx from './index.js'

package/src/since.test.ts

@@ -4,8 +4,8 @@ import * as Effect from '@effect/core/io/Effect'
 import * as Fiber from '@effect/core/io/Fiber'
 import * as TestClock from '@effect/core/testing/TestClock'
 import { TestEnvironment } from '@effect/core/testing/TestEnvironment'
-import { pipe } from '@fp-ts/data/Function'
 import { millis } from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/skipRepeats.test.ts

@@ -1,7 +1,7 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
+import { pipe } from '@tsplus/stdlib/data/Function'
 import * as Equivalence from '@tsplus/stdlib/prelude/Equivalence'
 
 import * as Fx from './index.js'

package/src/skipWhile.test.ts

@@ -1,7 +1,7 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/slice.test.ts

@@ -1,7 +1,7 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/snapshot.test.ts

@@ -1,8 +1,8 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
 import * as Duration from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/switchMap.test.ts

@@ -1,8 +1,8 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
 import * as Duration from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/takeWhile.test.ts

@@ -1,7 +1,7 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/throttle.test.ts

@@ -1,8 +1,8 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
 import { millis } from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/until.test.ts

@@ -4,8 +4,8 @@ import * as Effect from '@effect/core/io/Effect'
 import * as Fiber from '@effect/core/io/Fiber'
 import * as TestClock from '@effect/core/testing/TestClock'
 import { TestEnvironment } from '@effect/core/testing/TestEnvironment'
-import { pipe } from '@fp-ts/data/Function'
 import { millis } from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/withEmitter.test.ts

@@ -1,7 +1,7 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/zip.test.ts

@@ -1,8 +1,8 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
 import * as Duration from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/src/zipIterable.test.ts

@@ -1,8 +1,8 @@
 import { deepStrictEqual } from 'assert'
 
 import * as Effect from '@effect/core/io/Effect'
-import { pipe } from '@fp-ts/data/Function'
 import * as Duration from '@tsplus/stdlib/data/Duration'
+import { pipe } from '@tsplus/stdlib/data/Function'
 
 import * as Fx from './index.js'
 

package/tools/benchmark.ts

@@ -0,0 +1,179 @@
+import tablemark from 'tablemark'
+
+export interface PerformanceTestCase<A> {
+  readonly name: string
+  readonly init: () => A
+  readonly run: (a: A) => unknown | Promise<unknown>
+}
+
+export function PerformanceTestCase<A>(
+  name: string,
+  init: () => A,
+  run: (a: A) => Promise<unknown>,
+): PerformanceTestCase<A> {
+  return { name, init, run }
+}
+
+export interface InitResult {
+  readonly startTime: number
+  readonly endTime: number
+}
+
+export interface TestResult {
+  readonly startTime: number
+  readonly endTime: number
+}
+
+export function TestResult(startTime: number, endTime: number): TestResult {
+  return { startTime, endTime }
+}
+
+export interface TestStats {
+  readonly average: number
+  readonly min: number
+  readonly max: number
+  readonly timeToInit: number
+  readonly percentile: number
+}
+
+export function TestStats(
+  average: number,
+  min: number,
+  max: number,
+  timeToInit: number,
+  percentile: number,
+): TestStats {
+  return { average, min, max, timeToInit, percentile }
+}
+
+export interface TestSuite {
+  readonly name: string
+  readonly tests: ReadonlyArray<PerformanceTestCase<any>>
+}
+
+export function TestSuite(name: string, tests: ReadonlyArray<PerformanceTestCase<any>>): TestSuite {
+  return { name, tests }
+}
+
+export interface TestSuiteResult {
+  readonly name: string
+  readonly stats: Readonly<Record<string, TestStats>>
+}
+
+export function TestSuiteResult(
+  name: string,
+  stats: Readonly<Record<string, TestStats>>,
+): TestSuiteResult {
+  return { name, stats }
+}
+
+export interface RunTestConfig {
+  readonly iterations: number
+  readonly getTime: () => number
+}
+
+export function RunTestConfig(iterations: number, getTime: () => number): RunTestConfig {
+  return { iterations, getTime }
+}
+
+export function runTestCaseWith(config: RunTestConfig) {
+  return async <A>(test: PerformanceTestCase<A>): Promise<Readonly<Record<string, TestStats>>> => {
+    const { iterations, getTime } = config
+    const initStartTime = getTime()
+    const init = test.init()
+    const initEndTime = getTime()
+    const results: TestResult[] = []
+
+    for (let i = 0; i < iterations; i++) {
+      const startTime = getTime()
+      await test.run(init)
+      const endTime = getTime()
+      results.push(TestResult(startTime, endTime))
+    }
+
+    return buildStats({
+      [test.name]: [
+        {
+          startTime: initStartTime,
+          endTime: initEndTime,
+        },
+        results,
+      ] as const,
+    })
+  }
+}
+
+export async function runTestSuite(
+  suite: TestSuite,
+  config: RunTestConfig,
+): Promise<TestSuiteResult> {
+  let results: Record<string, TestStats> = {}
+  const runTestCase = runTestCaseWith(config)
+
+  for (const test of suite.tests) {
+    results = { ...results, ...(await runTestCase(test)) }
+  }
+
+  return TestSuiteResult(suite.name, addPercentile(results))
+}
+
+function buildStats(
+  results: Record<string, readonly [InitResult, readonly TestResult[]]>,
+): Readonly<Record<string, TestStats>> {
+  const stats: Record<string, TestStats> = {}
+
+  for (const [name, [initResult, testResults]] of Object.entries(results)) {
+    const durations = testResults.map((r) => r.endTime - r.startTime)
+    const average = durations.reduce((a, b) => a + b, 0) / durations.length
+    const min = Math.min(...durations)
+    const max = Math.max(...durations)
+
+    stats[name] = TestStats(
+      roundNumber(average),
+      roundNumber(min),
+      roundNumber(max),
+      roundNumber(initResult.endTime - initResult.startTime),
+      -1, // Needs to be calculated later
+    )
+  }
+
+  return stats
+}
+
+function roundNumber(n: number): number {
+  return parseFloat(n.toFixed(4))
+}
+
+function addPercentile(
+  stats: Readonly<Record<string, TestStats>>,
+): Readonly<Record<string, TestStats>> {
+  const newStats: Record<string, TestStats> = {}
+
+  const fastestToSlowest = Object.entries(stats).sort(([, a], [, b]) => a.average - b.average)
+  const fastestTime = fastestToSlowest[0][1].average
+
+  for (let i = 0; i < fastestToSlowest.length; ++i) {
+    const [name, stat] = fastestToSlowest[i]
+    newStats[name] = TestStats(
+      stat.average,
+      stat.min,
+      stat.max,
+      stat.timeToInit,
+      roundNumber(stat.average / fastestTime),
+    )
+  }
+
+  return newStats
+}
+
+export function printTestSuiteResult(result: TestSuiteResult): string {
+  return `## ${result.name}
+
+${tablemark(
+  Object.entries(result.stats).map(([library, stats]) => ({
+    library,
+    ...stats,
+  })),
+)}
+`
+}