unitt/example.art at master · RickBarretto/unitt · GitHub

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 ./{src/unitt}!

it "Simple failing test" [
    expects -> false
]

describe "simple append" [
    it "keeps the order" [
        expects [equal? [a b c d]     [a] ++ [b c d]]
        expects.be: 'equal?     @[[a b c d]     [a] ++ [b c d]]
        expects.be: 'equal?     @[["b" "c" "d" "a"]     ["b" "c" "d"] ++ ["a"]]
        expects.be: 'notEqual?  @[["a" "b" "c" "d"]     ["b" "c" "d"] ++ ["a"]]
    ]

    it.skip "has ++ as alias (todo)" [
        expects.be: 'equal? @[append [] [] [] ++ [] ]
        expects.be: 'equal? @[append ["a" "b" "c"] ["a" "b"] ["a" "b" "c"] ++ ["a" "b"] ]
    ]
]

describe "simple append 2" [
    it "keeps the order" [
        expects [equal? [a b c d]     [a] ++ [b c d]]
        expects.be: 'equal?     @[[a b c d]     [a] ++ [b c d]]
        expects.be: 'equal?     @[["b" "c" "d" "a"]     ["b" "c" "d"] ++ ["a"]]
        expects.be: 'notEqual?  @[["a" "b" "c" "d"]     ["b" "c" "d"] ++ ["a"]]
    ]

    it.skip "has ++ as alias (todo) 2" [
        expects.be: 'equal? @[append [] [] [] ++ [] ]
        expects.be: 'equal? @[append ["a" "b" "c"] ["a" "b"] ["a" "b" "c"] ++ ["a" "b"] ]
    ]
]

it "Simple passing test" [
    expects -> true
]

if standalone? ::
    unitt\report 'full