aboutsummaryrefslogtreecommitdiff
path: root/stdlib/test.ts
blob: a592d87d37574c315b2227ef552ab703c2b0788b (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
import { Do, Effect, Kind1 } from './effect'
import { Throw, Try } from './exception'
import { Equals } from './util'

export interface Config {
  // compileTimeTestFailures: false
  // stopAtFailure: true // TODO: stopAtFailure
}

export interface Assert<_B extends boolean> extends Effect {}

export interface Test<_m extends string, _effs extends Effect[]> extends Effect {}

export interface ShowAssertionError<_L extends unknown, _R extends unknown> extends Effect {} 

export type AssertEquals<Left, Right> = Try<
  Assert<Equals<Left, Right>>,
  <e extends string>() => Do<[
    ShowAssertionError<Left, Right>,
    Throw<e>,
  ]>
>

export interface AssertEqualsK<Right extends unknown> extends Kind1 {
  return: AssertEquals<this['input'], Right>
}

// TODO: export interface AssertFails?