tests/testthat/test-sims.R

In ims-fhs/vsim: Vereinbarkeits Simulator (vsim)

context("simulator tests")

test_that("calc_relevant_questions_2a", {
  Glist <<- read.csv('../../inst/shiny-apps/vsim/data/Glist_Teil1.csv', sep = ";", stringsAsFactors = FALSE, encoding = "UTF-8")
  QInputlist_Teil2a <<- read.csv('../../inst/shiny-apps/vsim/data/QInputlist_Teil2a.csv', sep = ";", stringsAsFactors = FALSE, encoding = "UTF-8")

  # test1
  result <- calc_relevant_questions_2a(test_calc_relevant_questions_2a_01)
  expect_equal(result, test_calc_relevant_questions_2a_expected_result_01)

  # test2
  result <- calc_relevant_questions_2a(test_calc_relevant_questions_2a_02)
  expect_equal(result, test_calc_relevant_questions_2a_expected_result_02)

  # test3
  result <- calc_relevant_questions_2a(test_calc_relevant_questions_2a_03)
  expect_equal(result, test_calc_relevant_questions_2a_expected_result_03)

  # test4: chancen home office
  result <- calc_relevant_questions_2a(test_calc_relevant_questions_2a_04)
  expect_equal(result, test_calc_relevant_questions_2a_expected_result_04)

  # test5: problem home office
  result <- calc_relevant_questions_2a(test_calc_relevant_questions_2a_05)
  expect_equal(result, test_calc_relevant_questions_2a_expected_result_05)

  # test 6: Chancen flexible Zeiten
  result <- calc_relevant_questions_2a(test_calc_relevant_questions_2a_06)
  expect_equal(result, test_calc_relevant_questions_2a_expected_result_06)

  # # test 7: Problem flexible Zeiten
  result <- calc_relevant_questions_2a(test_calc_relevant_questions_2a_07)
  expect_equal(result, test_calc_relevant_questions_2a_expected_result_07)

})

test_that("calc_relevant_gaps_2b", {
  Glist <<- read.csv('../../inst/shiny-apps/vsim/data/Glist_Teil1.csv', sep = ";", stringsAsFactors = FALSE, encoding = "UTF-8")
  # test1
  result <- calc_relevant_gaps_2b(test_calc_relevant_gaps_2b_01)
  expect_equal(result, test_calc_relevant_gaps_2b_expected_result_01)

  # test2
  result <- calc_relevant_gaps_2b(test_calc_relevant_gaps_2b_02)
  expect_equal(result, test_calc_relevant_gaps_2b_expected_result_02)

  # test3
  result <- calc_relevant_gaps_2b(test_calc_relevant_gaps_2b_03)
  expect_equal(result, test_calc_relevant_gaps_2b_expected_result_03)

})