tests/testthat/test-facial_features.r

In IndicoDataSolutions/IndicoIo-R: A simple R Wrapper for the indico set of APIs - http://indico.io

context("Facial Features Detection")

test_that("Facial Features Detection API returns proper answer", {
  test_image <- paste(readLines("image/base64.txt"), collapse=" ")
  features <- facial_features(test_image)

  expect_is(features, "list")
  expect_equal(length(features), 48)
})

test_that("facial_features alias also function", {
  test_image <- paste(readLines("image/base64.txt"), collapse=" ")
  features <- facial_features(test_image)

  expect_is(features, "list")
  expect_equal(length(features), 48)
})

test_that("Throws error on empty or wrong image", {
  expect_error(facial_features())
  expect_error(facial_features(array(10)))
})

test_that("Batch Facial Features Detection API returns proper answer", {
  test_image_list = list()
  test_image_list[[1]] <- paste(readLines("image/base64.txt"), collapse=" ")
  features <- facial_features(test_image_list)

  expect_is(features, "list")
  expect_is(features[[1]], "list")
  expect_equal(length(features), length(test_image_list))
  expect_equal(length(features[[1]]), 48)
})