blob: 6328fab63ed338e9012159f263a8be566aaaed56 (
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
|
#{ ERRIF -- Test error types.
procedure errif (type)
int type { prompt = "Error test code: " }
begin
int code
# get local script variable of param
code = type
if (code == 1) { # FPE test
fpe ()
} else if (code == 2) { # SEGVIO test
segvio ()
} else if (code == 3) { # SPP error() call test
spperr ()
} else if (code == 4) { # non-existant task test
foo ()
} else if (code == 5) { # CL error() command
error (code, "cl error() command")
}
end
|
