inst/tests/test_sampleFunc.R

#require(testthat)
context("fSampleFunc")

test_that("two vectors are added correctly",{
		a = 1:10
		b = 1
		c = a+b
		expect_that( fSampleFunc(a,b), equals(c) )
		expect_that( fSampleFunc(a), throws_error() )
	})
tommasojulitta/FieldSpectroscopyDP documentation built on March 12, 2020, 1:42 p.m.