tests/testthat/test-copeland.R

In jassler/socialranking: Social Ranking Solutions for Power Relations on Coalitions

test_that("scores", {
  pr <- as.PowerRelation('12 > 1 ~ 2')
  expect_equal(copelandScores(pr), structure(list(`1` = c(1,-1), `2` = c(1,-1)), class = "CopelandScores"))
  expect_equal(copelandScores(pr, 1), structure(list(`1` = c(1,-1)), class = "CopelandScores"))
  expect_equal(copelandScores(pr, 2), structure(list(`2` = c(1,-1)), class = "CopelandScores"))

  pr <- as.PowerRelation('12 > 1 > 2')
  expect_equal(copelandScores(pr), structure(list(`1` = c(1,0), `2` = c(0,-1)), class = "CopelandScores"))
  expect_equal(copelandScores(pr, 1), structure(list(`1` = c(1,0)), class = "CopelandScores"))
  expect_equal(copelandScores(pr, 2), structure(list(`2` = c(0,-1)), class = "CopelandScores"))

  pr <- as.PowerRelation('12 > 2 > 1')
  expect_equal(copelandScores(pr), structure(list(`1` = c(0,-1), `2` = c(1,0)), class = "CopelandScores"))
  expect_equal(copelandScores(pr, 1), structure(list(`1` = c(0,-1)), class = "CopelandScores"))
  expect_equal(copelandScores(pr, 2), structure(list(`2` = c(1,0)), class = "CopelandScores"))
})

test_that("ranking", {
  pr <- as.PowerRelation('12 > 1 ~ 2')
  ranking <- evaluate_promise(copelandRanking(pr), print = TRUE)
  expect_equal(ranking$result, structure(list(c(1, 2)), class = "SocialRanking"))
  expect_equal(ranking$output, "1 ~ 2")
  expect_true(pr %:% 1 %>=cop% 2)
  expect_true(pr %:% 2 %>=cop% 1)
  expect_false(pr %:% 1 %>cop% 2)
  expect_false(pr %:% 2 %>cop% 1)

  pr <- as.PowerRelation('12 > 1 > 2')
  ranking <- evaluate_promise(copelandRanking(pr), print = TRUE)
  expect_equal(ranking$result, structure(list(1, 2), class = "SocialRanking"))
  expect_equal(ranking$output, "1 > 2")
  expect_true(pr %:% 1 %>=cop% 2)
  expect_false(pr %:% 2 %>=cop% 1)
})

test_that("manip paper example", {
  pr <- PowerRelation(list(
    list(c(1,2,3), c(1,2), 3, 1),
    list(2, c(2,3)),
    list(c(1,3))
  ))

  ranking <- evaluate_promise(copelandRanking(pr), print = TRUE)
  expect_equal(ranking$output, "1 > 2 > 3")
  expect_true(pr %:% 1 %>=cop% 2)
  expect_true(pr %:% 1 %>=cop% 3)
  expect_true(pr %:% 2 %>=cop% 3)
  expect_false(pr %:% 2 %>=cop% 1)
  expect_false(pr %:% 3 %>=cop% 1)
  expect_false(pr %:% 3 %>=cop% 2)
  expect_true(pr %:% 3 %>=cop% 3)
  expect_equal(ranking$result, structure(list(1, 2, 3), class = "SocialRanking"))

  expect_equal(copelandScores(pr), structure(list(`1` = c(2,-1), `2` = c(2,-2), `3` = c(1,-2)), class = "CopelandScores"))
})

test_that('copeland named', {
  pr <- as.PowerRelation('(abc ~ ab ~ c ~ a) > (b ~ bc) > ac')
  ranking <- evaluate_promise(copelandRanking(pr), print = TRUE)
  expect_equal(ranking$output, 'a > b > c')

  pr <- PowerRelation(list(
    list(c("Apple","Banana","Citrus"), c("Apple", "Banana"), "Citrus", "Apple"),
    list("Banana", c("Banana", "Citrus")),
    list(c("Apple", "Citrus"))
  ))
  ranking <- evaluate_promise(copelandRanking(pr), print = TRUE)
  expect_equal(ranking$output, 'Apple > Banana > Citrus')
})