tests/testthat/test-GenerateNotification.R

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

test_that("GenerateNotification", {

  a <- GenerateNotification(destination = 'email@email.com',
                            event.type = 'AssignmentAccepted')

  expect_equal(class(a)[1], "python.builtin.dict")

})


test_that("GenerateNotification parameter misspecification", {

  a <- try(GenerateNotification(destination = 'email@email.com',
                            event.type = 'x'), TRUE)
  expect_s3_class(a, 'try-error')

  a <- try(GenerateNotification(event.type = 'AssignmentAccepted',
                                transport = 'FTP'), TRUE)
  expect_s3_class(a, 'try-error')

})