tests/testthat/test-misc_func.R

In metaDigitise: Extract and Summarise Data from Published Figures

context("Check misc functions...")

testthat::test_that("Checking is.wholenumber..", {
	testthat::expect_equal(
		is.wholenumber(x=1), 
		TRUE, 
		info = "is.wholenumber failed")
})

testthat::test_that("Checking isNumeric..", {
	testthat::expect_equal(
		isNumeric(x=1), 
		TRUE, 
		info = "isNumeric failed")
})

testthat::test_that("Checking is.even..", {
	testthat::expect_equal(
		is.even(x=1), 
		FALSE, 
		info = "is.even failed")
})

testthat::test_that("Checking filename..", {
	testthat::expect_equal(
		filename(x="~/Dropbox/0_postdoc/10_metaDigitise/example_figs/5_fig2a.png"), 
		"5_fig2a.png", 
		info = "filename failed")
})



user_options_tester_func <- function(...) {
	testthat::with_mock(
		readline = function(question) "a",
		user_options (...)
		)
}

testthat::test_that("Checking user_options..", {
	testthat::expect_equal(
 		user_options_tester_func("question", c("a","b","c")), 
		"a",
		info = "user_options failed")
})
 



testthat::test_that("Checking user_unique..", {
	testthat::expect_equal(
 		testthat::with_mock(
			readline = function(question) "d",
 			user_unique("question", c("a","b","c"))
 		), 
		"d",
		info = "user_unique failed")
})



user_numeric_tester_func <- function(..., user_entry) {
	testthat::with_mock(
		readline = function(question) user_entry,
		user_numeric (...)
		)
}

testthat::test_that("Checking user_numeric..", {
	testthat::expect_equal(
		user_numeric_tester_func("question",user_entry="1"), 
		1, 
		info = "user_numeric failed")
})


user_count_tester_func <- function(...) {
	testthat::with_mock(
		readline = function(question) "1",
		user_count (...)
		)
}

testthat::test_that("Checking user_count..", {
	testthat::expect_equal(
 		user_count_tester_func("question"), 
		1,
		info = "user_count failed")
})


testthat::test_that("Checking user_base..", {
 
testthat::with_mock( readline = function(question) "1",	testthat::expect_equal(user_base(),"1", info = "user_base failed"))
testthat::with_mock( readline = function(question) "e", testthat::expect_equal(user_base(),"e", info = "user_base failed"))

})
 




ask_variable_tester_func <- function(...) {
	testthat::with_mock(
		readline = function(question) "x",
		ask_variable (...)
		)
}

testthat::test_that("Checking ask_variable..", {
	testthat::expect_equal(
 		ask_variable_tester_func(plot_type="scatterplot"), 
		c(y="x",x="x"), 
		info = "ask_variable failed")
	testthat::expect_equal(
 		ask_variable_tester_func(plot_type="mean_error"), 
		"x", 
		info = "ask_variable failed")
	testthat::expect_equal(
 		ask_variable_tester_func(plot_type="boxplot"), 
		"x", 
		info = "ask_variable failed")
	testthat::expect_equal(
 		ask_variable_tester_func(plot_type="histogram"), 
		"x", 
		info = "ask_variable failed")
})


testthat::test_that("Checking knownN..", {
	testthat::with_mock(		
		`metaDigitise::user_options` = function(...) "n",
		testthat::evaluate_promise(testthat::expect_equal(
		 	knownN(plot_type="scatterplot",processed_data=data.frame(id=rep(1,20), x=rep(1,20),y=rep(1,20), stringsAsFactors = TRUE), knownN=NULL)
		 	,
			NULL,
			info = "knownN failed"
		))
	)
	
	testthat::with_mock(
		`metaDigitise::user_options` = function(...) "y",
		`metaDigitise::user_count` = mockery::mock(40,30,20,10),
		 testthat::evaluate_promise(testthat::expect_equal(
		 	knownN(plot_type="scatterplot",processed_data=data.frame(id=rep(letters[4:1],5), x=rep(1,20),y=rep(1,20), stringsAsFactors = TRUE), knownN=NULL)
		 	,
			c(d=40,c=30,b=20,a=10),
			info = "knownN failed"
		))
	)

	testthat::with_mock(
		`metaDigitise::user_options` = function(...) "n",
		 testthat::evaluate_promise(testthat::expect_equal(
		 	knownN(plot_type="scatterplot",processed_data=data.frame(id=rep(letters[4:1],5), x=rep(1,20),y=rep(1,20), stringsAsFactors = TRUE), knownN=c(40,30,20,10))
		 	,
			NULL,
			info = "knownN failed"
		))
	)

	testthat::with_mock(
		`metaDigitise::user_options` = function(...) "y",
		`metaDigitise::user_count` = mockery::mock(40,30,20,10),
		 testthat::evaluate_promise(testthat::expect_equal(
		 	knownN(plot_type="scatterplot",processed_data=data.frame(id=rep(letters[4:1],5), x=rep(1,20),y=rep(1,20), stringsAsFactors = TRUE), knownN=c(10,20,30,40))
		 	,
			c(d=40,c=30,b=20,a=10),
			info = "knownN failed"
		))
	)

	testthat::with_mock(
		`metaDigitise::user_options` = function(...) "c",
		`metaDigitise::user_count` = mockery::mock(40,30,20,10),
		 testthat::evaluate_promise(testthat::expect_equal(
		 	knownN(plot_type="scatterplot",processed_data=data.frame(id=rep(letters[4:1],5), x=rep(1,20),y=rep(1,20), stringsAsFactors = TRUE), knownN=c(d=40,c=30,b=20,a=10))
		 	,
			c(d=40,c=30,b=20,a=10),
			info = "knownN failed"
		))
	)
})