Agrega tests

R/parglo.maxlik.R

@@ -7,6 +7,7 @@
 #          email='[email protected]'),
 #   person(c('Sergio','M.'), 'Vicente-Serrano', role='aut',
 #          email='[email protected]'))
+# nocov start
 parglo.maxlik <- function(x,ini) {
 	# generalized logistic log-likelihood function
 	glo.loglik <- function(theta,x){
@@ -31,3 +32,4 @@ parglo.maxlik <- function(x,ini) {
 		source='parglo.loglik',value=o$value,count=o$count,
 		conv=o$convergence,msg=o$message))
 }
+# nocov end

R/spi-core.R

@@ -7,6 +7,7 @@
 #          email='[email protected]'),
 #   person(c('Sergio','M.'), 'Vicente-Serrano', role='aut',
 #          email='[email protected]'))
+# nocov start
 spi_core <- function(data, scale, kernel=list(type='rectangular',shift=0),
                  distribution='log-Logistic', fit='ub-pwm', na.rm=FALSE,
                  ref.start=NULL, ref.end=NULL, x=FALSE, params=NULL, ...) {
@@ -171,7 +172,7 @@ spi_core <- function(data, scale, kernel=list(type='rectangular',shift=0),
   return(z)
 }
 
-
+# nocov end
 spi_params <- function(pp, ...)  {
   spi_core(stats::ts(pp, frequency = 1), ...)$coefficients
 }

tests/testthat/test-kable-inta.R

@@ -0,0 +1,3 @@
+test_that("multiplication works", {
+  expect_known_output(kable_inta(mtcars), "kable")
+})

tests/testthat/test-leer_surfer.R

@@ -0,0 +1,5 @@
+test_that("multiplication works", {
+  escala <- system.file("extdata", "escala_pp_mensual.lvl", package = "agromet")
+
+  expect_known_output(leer_surfer(escala), "escala_surfer")
+})