tests/testthat/test_getsetSVMObject.R

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

context("Storing SVM Objects work")


test_that("storing an SVM object works", {
	# call without parameters to get an exception
	svmObject = createSVMWrapperInternal ("randomString903489534", par.set=ParamHelpers::makeParamSet())
	setSVMObject ("randomString903489534", svmObject)
	
	svmObjectStored = getSVMObject ("randomString903489534")
	expect_equal (svmObject$method, svmObjectStored$method)
	expect_equal (class(svmObject), class(svmObjectStored))
}	)
	

test_that("overwriting an SVM object works", {
	# create just a package
	svmObject = createSVMWrapperInternal ("randomString903489534", par.set=ParamHelpers::makeParamSet())
	setSVMObject ("randomString903489534", svmObject)
	
	svmObjectSecond = createSVMWrapperInternal ("randomString239423222", par.set=ParamHelpers::makeParamSet())
	setSVMObject ("randomString903489534", svmObjectSecond)

	svmObjectStored = getSVMObject ("randomString903489534")
	expect_equal (svmObjectSecond$method, svmObjectStored$method)
	expect_equal (class(svmObjectSecond), class(svmObjectStored))
}	)
	


test_that("erasing an SVM object works", {
	# create just a package
	svmObject = createSVMWrapperInternal ("randomString903489534", par.set=ParamHelpers::makeParamSet())
	setSVMObject ("randomString903489534", svmObject)
	setSVMObject ("randomString903489534", NULL)
	
	svmObjectStored = getSVMObject ("randomString903489534")
	expect_equal (svmObjectStored, NULL)
}	)