在RUnit或測試中自動生成測試用例

Question

如何在RUnit中自動生成測試用例？

例如，假設我有一個簡單的sum（）函數：

sum <- function(x, y) { 
    return (x + y) 
    } 

我想測試一系列的不同的測試情況下，這種功能：

test_cases <- c(c(2, 2, 4), 
    c(3, 3, 6), 
    c(0, 0, 0), 
    c(-1, 2, 1) 
    ) 

前兩個每個向量的元素都是x和y，第三個是sum（x，y）函數的期望輸出。

在python中，我可以輕鬆地編寫一個函數來爲test_cases中的每個元素生成一個測試用例，但我不知道如何在R中實現它。我已經查看了RUnit和testthat文檔，但在那裏沒什麼相似之處。這裏最好的解決方案是什麼？

這是我怎麼會（使用nosetest啓動測試單元），它用Python語言編寫：

for triplet in test_cases: 
    yield test_triplet(triplet) 

def test_triplet(triplet): 
    assert(sum(triplet[0], triplet[1]) == triplet[2]) 

Answer 1

# You simply take advantage of R's vector orientation. 
test_cases <- matrix(c(2, 2, 4, 
         3, 3, 6, 
         0, 0, 0, 
         -1, 2, 1), ncol = 3, byrow = TRUE) 
my_sum <- function(x, y) { x + y} 

## testthat 
library(testthat) 
expect_equal(my_sum(test_cases[ , 1], test_cases[ , 2]), test_cases[ , 3]) 

## RUnit 
library(RUnit) 
test_my_sum <- function() { 
    checkEquals(my_sum(test_cases[ , 1], test_cases[ , 2]), test_cases[ , 3]) 
} 

Answer 2

sapply可能是有用的

Sum <- function(x, y) { # Sum is much better than sum,this avoids problems with sum base function 
    return (x + y) 
} 

test_cases <- matrix(c(2, 2, 4, # I think a matrix structure is better to handle this problem 
         3, 3, 6, 
         0, 0, 0, 
         -1, 2, 1), ncol=3, byrow=TRUE) 

# Applying your function and comparing the result with the expected result. 
sapply(1:nrow(test_cases), function(i) Sum(test_cases[i,1], test_cases[i,2]))==test_cases[,3] 

TRUE TRUE TRUE TRUE # indicates the result is as expected.