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
41
42
43
44
45
46
47
48
49
|
rm(list=ls())
#act <- tryCatch(fib(3), error=function(x) 'error')
#checkEquals(act, 'error')
assert('type_fill_args_1', {
mysum(x, y, ...) %as% { (x - y) * sum(...) }
seal(mysum)
act <- mysum(2, 3, 1, 2, 3)
(act == -6)
act <- mysum(x=2, 3, 1, 2, 3)
(act == -6)
act <- mysum(2, y=3, 1, 2, 3)
(act == -6)
act <- mysum(y=3, x=2, 1, 2, 3)
(act == -6)
act <- mysum(y=3, 1, 2, 3, x=2)
(act == -6)
act <- mysum(2, 1, 2, 3, y=3)
(act == -6)
})
assert('type_fill_args_2', {
mysum(x, y=3, ...) %as% { (x - y) * sum(...) }
seal(mysum)
act <- mysum(2, 1, 1, 2, 3)
(act == -7)
act <- mysum(1, y=2, 1, 1, 2, 3)
(act == -7)
act <- mysum(y=2, x=1, 1, 1, 2, 3)
(act == -7)
act <- mysum(1, 1, 2, 3, x=2)
(act == -7)
act <- mysum(1, 1, 1, 2, 3, y=2)
(act == -7)
})
|
