tests/testthat/test_46_isBalancedGame.R

In CoopGame: Important Concepts of Cooperative Game Theory

boolSkip=F

#' v1=c(0,0,0,40,50,20,100) #return 1
#' v2=c(1,1,1,2,3,4,3) #return 0
#' v3= c(0,0,0,0,7,7,7,7,7,7,12,12,12,12,22) #return 1
#' v4= c(0,0,0,0,1,0,0,0,0,3,3,3,3,3,4) #return 0

test_that("Check 46.1 - isBalancedGame with 3 players, return TRUE" ,{
  if(boolSkip){
    skip("Test was skipped")
  }
  v1=c(0,0,0,40,50,20,100)
  result=isBalancedGame(v1)
  expect_equal(result, TRUE)
})


test_that("Check 46.2 - isBalancedGame with 4 players, return TRUE" ,{
  if(boolSkip){
    skip("Test was skipped")
  }
  v2= c(0,0,0,0,7,7,7,7,7,7,12,12,12,12,22)
  result=isBalancedGame(v2)
  expect_equal(result, TRUE)
})

test_that("Check 46.3 - isBalancedGame with 3 players, return FALSE" ,{
  if(boolSkip){
    skip("Test was skipped")
  }
  v3=c(1,1,1,2,3,4,3)
  result=isBalancedGame(v3)
  expect_equal(result, FALSE)
})

test_that("Check 46.4 - isBalancedGame with 4 players, return FALSE" ,{
  if(boolSkip){
    skip("Test was skipped")
  }
  v4= c(0,0,0,0,1,0,0,0,0,3,3,3,3,3,4)
  result=isBalancedGame(v4)
  expect_equal(result, FALSE)
})