6

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)
     )

各ベクトルの最初の2つの要素はxとyであり、3番目はsum（x、y）関数の期待される出力です。

Pythonでは、test_casesの各要素のテストケースを生成する関数を簡単に作成できますが、Rで実装する方法がわかりません。RUnitとそのドキュメントを確認しましたが、類似したものはありません。ここでの最良の解決策は何ですか？

これは私がPythonでそれを書く方法です（nosetestを使用してテストユニットを起動します）：

for triplet in test_cases:
    yield test_triplet(triplet)

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

2 に答える 2

3 
# 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])
}
于 2013-01-02T20:54:32.653 に答える
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.
于 2012-09-18T15:13:17.477 に答える