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
36
37
38
39
40
|
import { Do } from '../stdlib/effect'
import { PutStringLn } from '../stdlib/stdio'
import { SetEvalEnvironment } from '../stdlib/sys'
import { Test, Assert } from '../stdlib/test'
import { Equals, Not } from '../stdlib/util'
type testSomeStuff = Do<[
PutStringLn<"Some Stuff">,
Test<"should do some stuff", [
Assert<Equals<1, 1>>,
Assert<Not<Equals<2, 1>>>,
]>,
Test<"bing bong, bing bing bong", [
Assert<Equals<1, 1>>,
]>,
]>
type testSomeMoreStuff = Do<[
PutStringLn<"Other stuff?">,
Test<"should do some other stuff", [
Assert<Equals<[1, 2, 3], [1, 2, 3]>>,
]>,
// Test<"this'll fail fo sho", [
// Assert<Equals<[1, 2, 3], [4, 5, 6]>>,
// ]>,
]>
export type main = [
// Update env to node with test helpers
SetEvalEnvironment<'test.node'>,
PutStringLn<"=== Running tests... ===\n">,
testSomeStuff,
testSomeMoreStuff,
]
|
