test_that("Function evaluation", {
  Function_obj<-list()
  Function_obj$dimension<-2
  Function_obj$components<-list()
  Function_obj$components[[1]]<-list(coefficient=c(1/2,1/2),parameter= c(-1,-2),functions="Logarithmic")
  Function_obj$components[[2]]<-list(coefficient= c(2/3,1/3),parameter= c(-1,-2),functions="Logarithmic")
  Function_obj$components[[3]]<-list(coefficient= c(1/3,2/3),parameter=c(-1,-2),functions="Logarithmic")
  Function_obj$components[[4]]<-list(coefficient=c(12,15,9,-6,-6),parameter=c(1,2,3,-1,-2),functions="Linear_combination")

  Eval<-Function_evaluation(Function_obj,input=c(4,2))
  expect_type(Eval, "list")
  expect_length(Eval, 3)
})