test little less strict

jakob-r · jakob-r · commit 1953ab0553fb · 2018-03-23T12:03:57.000+01:00
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -17,3 +17,4 @@
 ^vignettes/.+_files$
 ^vignettes/.+\.html$
 .github
+.covrignore
diff --git a/tests/testthat/test_adaptive_infillcrits.R b/tests/testthat/test_adaptive_infillcrits.R
@@ -39,7 +39,7 @@ test_that("adaptive infill crit works with all termination criteria", {
     df = as.data.frame(or$opt.path)
     expect_true(any(df$lambda > 1))
     expect_true(length(unique(df$lambda))>2)
-    expect_true(all(diff(df$lambda[!is.na(df$lambda)])<0))
+    expect_true(all(diff(df$lambda[!is.na(df$lambda)])<=0))
     expect_true(all(df$prop.type %in% c("infill_adacb", "initdesign")))
     expect_numeric(df$adacb)
   }

Original file line number	Diff line number	Diff line change
`@@ -39,7 +39,7 @@ test_that("adaptive infill crit works with all termination criteria", {`
`39`	`39`	`df = as.data.frame(or$opt.path)`
`40`	`40`	`expect_true(any(df$lambda > 1))`
`41`	`41`	`expect_true(length(unique(df$lambda))>2)`
`42`		`- expect_true(all(diff(df$lambda[!is.na(df$lambda)])<0))`
	`42`	`+ expect_true(all(diff(df$lambda[!is.na(df$lambda)])<=0))`
`43`	`43`	`expect_true(all(df$prop.type %in% c("infill_adacb", "initdesign")))`
`44`	`44`	`expect_numeric(df$adacb)`
`45`	`45`	`}`