tests/testthat/test_expfactory.R

In earcanal/manjushri: Wisdom Abstracted from PhD Data Analysis

library(tidyverse)
context('The Experiment Factory')

token <- '07ba0ce7-cc4c-4b55-becd-8ae3d9e7eaf6'
df <- process_ant('../fixtures/ant.json', p=token, time=1)
test_that("process_ant() can process JSON", {
  expect_is(df, 'data.frame')
})
test_that("process_ant() returns correct p column value", {
  expect_equal(df[1,'p'], token)
})

# SMS
df <- process_new_expfactory_survey(token='1', survey='../fixtures/sms.json') %>%
  mutate(p = 1)
test_that("process_new_expfactory_survey() returns a data frame", {
   expect_is(df, 'data.frame')
})
test_that('SMS structured JSON correctly parsed', {
  expect_equal(df[1,4], 'I was aware of different emotions that arose in me')
})
df <- state_mindfulness_scale(df)
test_that('SMS total value', {
  expect_equal(df[1,'sms_total'], 92)
})
test_that('SMS mind value', {
  expect_equal(df[1,'sms_mind'], 68)
})
test_that('SMS body value', {
  expect_equal(df[1,'sms_body'], 24)
})

df <- process_new_expfactory_survey(token='1', survey='../fixtures/sms-flat.json', flat=TRUE)
test_that("process_new_expfactory_survey() can process flat JSON", {
  expect_is(df, 'data.frame')
})
test_that('SMS flat JSON correctly parsed', {
  expect_equal(df[1,4], 'I was aware of different emotions that arose in me')
})

test_that("process_expfactory_experiment() returns a data frame", {
  expect_is(process_expfactory_experiment(path = '../fixtures/attention-network-task-no-feedback-results.json'), 'data.frame')
})