tests/testthat/test-GrantBonus.R

In pyMTurkR: A Client for the 'MTurk' Requester API

test_that("GrantBonus one worker, one bonus", {
  skip_if_not(CheckAWSKeys())

  GrantBonus(workers = as.factor('A3LXJ76P1ZZPMC'),
              assignments = as.factor('3WJEQKOXA82YOLHL9L9QK57XJ1YA1N'),
              amounts = .1,
              reasons = as.factor('Thanks!')) -> result
  expect_type(result, "list")

  # Duplicates, skip prompt
  GrantBonus(workers = c('A3LXJ76P1ZZPMC', 'A3LXJ76P1ZZPMC'),
             assignments = c('3WJEQKOXA82YOLHL9L9QK57XJ1YA1N', '3WJEQKOXA82YOLHL9L9QK57XJ1YA1N'),
             amounts = .1,
             reasons = as.factor('Thanks!'),
             skip.prompt = TRUE) -> result
  expect_type(result, "list")

})




test_that("GrantBonus incorrect WorkerId specifications", {
  skip_if_not(CheckAWSKeys())

  # invalid
  expect_s3_class(try(GrantBonus(workers = 'NOTAWORKER',
                                  assignments = '3WJEQKOXA82YOLHL9L9QK57XJ1YA1N',
                                  amounts = .1,
                                  reasons = 'Thanks!'), TRUE), "try-error")
  # too short
  expect_s3_class(try(GrantBonus(workers = '',
                                 assignments = '3WJEQKOXA82YOLHL9L9QK57XJ1YA1N',
                                 amounts = .1,
                                 reasons = 'Thanks!'), TRUE), "try-error")
  # too long
  expect_s3_class(try(GrantBonus(workers = paste(rep("A",65)),
                                 assignments = '3WJEQKOXA82YOLHL9L9QK57XJ1YA1N',
                                 amounts = .1,
                                 reasons = 'Thanks!'), TRUE), "try-error")

})


test_that("ContactWorker incorrect parameter lengths", {
  skip_if_not(CheckAWSKeys())

  # Incorrect reasons length
  try(GrantBonus(workers = 'A3LXJ76P1ZZPMC',
             assignments = '3WJEQKOXA82YOLHL9L9QK57XJ1YA1N',
             amounts = .1,
             reasons = c('Thanks!', 'x')), TRUE) -> result
  expect_s3_class(result, "try-error")

  try(GrantBonus(workers = 'A3LXJ76P1ZZPMC',
                 assignments = '3WJEQKOXA82YOLHL9L9QK57XJ1YA1N',
                 amounts = .1,
                 reasons = paste(rep("A",4097), collapse="")), TRUE) -> result
  expect_s3_class(result, "try-error")

  # Incorrect rewards length
  try(GrantBonus(workers = 'A3LXJ76P1ZZPMC',
                 assignments = '3WJEQKOXA82YOLHL9L9QK57XJ1YA1N',
                 amounts = c(.1, .5),
                 reasons = 'Thanks!'), TRUE) -> result
  expect_s3_class(result, "try-error")

})