test/script/common.et


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

module common


export def expect_result from p of job result result:
    let dummy = job == "" # TODO: forces string type
    expect from p:
        /job-start $job/
        /job-finish $job ([a-z]+)/ capture done
    guard (done == result)

export def expect_previous_result from p of job result result:
    let dummy = job == "" # TODO: forces string type
    expect from p:
        /job-previous $job ([a-z]+)/ capture done
    guard (done == result)

export def expect_success from p of job:
    expect_result from p of job result "done"

export def expect_previous_success from p of job:
    expect_previous_result from p of job result "done"

export def expect_skip from p of job:
    let dummy = job == "" # TODO: forces string type
    expect from p:
        /job-skip $job/