tests/testthat/test_testSVM.R

In aydindemircioglu/SVMBridge: A Bridge to Integrate Different 'SVM' Solvers into R

context("Creating SVM Packages")


test_that("empty method produces an error", {
	# call without parameters to get an exception
#	expect_error(createSVMWrapper(), "is missing, with no default")
}	)
	

test_that("creating SVM Package works", {
	# create just a package
#	svmObject = createSVMWrapper ("oneSVM")
#	expect_equal (svmObject$method, "oneSVM")
#	expect_equal (class(svmObject)[2], "SVMWrapper")
}	)