aboutsummaryrefslogtreecommitdiff
path: root/examples/test-runner.ts
blob: c0eb4c44cf891148345666877e6e2bcd78119087 (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
30
31
32
33
34
35
import { DefineEffect, Do, Effect, Print, PutString, PutStringLn } from '../stdlib'

type Testi<m extends string, effs extends Effect[]> = [
  PutStringLn<m>,
  ...effs,
]

type Equals<Left, Right> =
  [Left] extends [Right] ? ([Right] extends [Left] ? true : false) : false

interface Assert<_B extends true> extends Effect { }

type testCases = [
  ...Testi<"should do some stuff", [
    Assert<Equals<1, 2>>,
  ]>,

  ...Testi<"hello world", [
    Print<2>,
  ]>,

  ...Testi<"should do some other stuff", [
    Print<5>,
  ]>,
]

export type main = [
  DefineEffect<'Assert', `(b) => {
    if (!b.getLiteralValue()) {
      throw new Error('AAAAAAA')
    }
  }`>,
  PutStringLn<"Running tests...">,
  Do<testCases>,
]