tests/testthat/testxlast1-ApproveAssignment.R

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

test_that("ApproveAssignment with AssignmentId", {
  skip_if_not(CheckAWSKeys())
  skip_if(nrow(try(GetAssignment(hit.type = '3ZY5FK1Q9GOM4W6XMFN2W6BL58VO8Z',
                                 results = 1), TRUE)) == 0)

  GetAssignment(hit.type = '3ZY5FK1Q9GOM4W6XMFN2W6BL58VO8Z',
                results = 1)$AssignmentId -> assignment

  expect_type(ApproveAssignment(assignments = assignment, verbose = FALSE), "list")

  # Factor feedback
  expect_type(ApproveAssignment(assignments = assignment,
                                verbose = FALSE,
                                feedback = as.factor("good job")), "list")

  # Feedback that's too long (more than 1024 characters)
  expect_s3_class(try(ApproveAssignment(assignments = assignment,
                                verbose = FALSE,
                                feedback = paste(sample(LETTERS, 1025, replace=TRUE), collapse="")), TRUE), "try-error")

  # Fewer feedbacks than assignments
  expect_type(ApproveAssignment(assignments = c(assignment, assignment),
                                verbose = FALSE,
                                feedback = "good job"), "list")

  # More feedbacks than assignments should give try-error
  expect_s3_class(try(ApproveAssignment(assignments = assignment,
                                          verbose = FALSE,
                                          feedback = c("a", "b")), TRUE), "try-error")

  # Rejected
  expect_type(ApproveAssignment(assignments = assignment,
                                rejected = TRUE), "list")

  # More rejected logicals than assignments should give try-error
  expect_s3_class(try(ApproveAssignment(assignments = assignment,
                                          verbose = FALSE,
                                          rejected = c(TRUE, FALSE)), TRUE), "try-error")

})