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
|
unittest <- function (x,y) {
if (all(x==y)) {
print("PASS")
} else {
print("FAIL")
print(paste(x, " != ", y))
stop("Test failed")
}
}
unittesttol <- function(x,y,z) {
if (all(abs(x-y) < z)) {
print("PASS")
} else {
print("FAIL")
stop("Test failed")
}
}
unittest_sequence <- function (x,y) {
x = as.vector(x)
y = as.vector(y)
if (length(x) == 0 && length(y) == 0) {
print("PASS")
return()
}
if (class(x[1]) != class(y[1])) {
print("FAILED")
stop(paste("Test failed: ", class(x[1]), " != ", class(y[1])))
}
try(expr = {
if (!any(x != y)) {
print("PASS")
return()
}
}, silent = T)
print("FAIL")
stop("Test failed")
}
|
