switch to testthat part 1

Author: ironholds

.Rbuildignore

@@ -2,4 +2,4 @@
 ^\.Rproj\.user$
 ^\.httr-oauth$
 ^\.travis\.yml$
-manual_tests/*
+tests/testthat/token_file.rds.enc

.gitignore

@@ -2,3 +2,4 @@
 .Rhistory
 .RData
 .httr-oauth
+tests/testthat/token_file.rds

.travis.yml

@@ -0,0 +1,19 @@
+language: c
+before_install:
+- openssl aes-256-cbc -K $encrypted_5e6beae96b20_key -iv $encrypted_5e6beae96b20_iv
+  -in tests/testthat/token_file.rds.enc -out tests/testthat/token_file.rds -d
+- curl -OL http://raw.github.com/craigcitro/r-travis/master/scripts/travis-tool.sh
+- chmod 755 ./travis-tool.sh
+- ./travis-tool.sh bootstrap
+install:
+- ./travis-tool.sh install_deps
+script: ./travis-tool.sh run_tests
+after_failure:
+- ./travis-tool.sh dump_logs
+env:
+- NOT_CRAN="true"
+- WARNINGS_ARE_ERRORS=1
+notifications:
+  email:
+    on_success: change
+    on_failure: change

DESCRIPTION

@@ -10,3 +10,4 @@ Description: A client library for the Google Drive API; download and upload file
 License: MIT + file LICENSE
 Depends: httr
 Imports: XML, stringi, rmarkdown
+Suggests: testthat

tests/testthat.R

@@ -0,0 +1,3 @@
+library(testthat)
+library(driver)
+test_check("driver")

tests/testthat/test_files.R

@@ -0,0 +1,74 @@
+context("File metadata retrieval, content retrieval and timestamp-updating works")
+token <- readRDS("token_file.rds")
+test_that("Retrieving metadata for a list of un-simplified files works", {
+  files <- list_files(token, max_results = 1)
+  expect_true(exists("files")) #It worked?
+  expect_equal(length(files$items), 1) #It respected the "only get one" element.
+  expect_true(is.list(files$items[[1]]$labels)) #It didn't simplify things.
+})
+
+test_that("Retrieving metadata for a list of simplified files works", {
+  files <- list_files(token, max_results = 1, simplify = TRUE)
+  expect_true(exists("files")) #It worked?
+  expect_equal(length(files$items), 1) #It respected the "only get one" element.
+  expect_false(is.list(files$items[[1]]$labels)) #It DID simplify things.
+})
+
+test_that("Retrieving metadata for a single un-simplified file works", {
+  file_id <- list_files(token, max_results = 1)$items[[1]]$id #Get file_id
+  file <- file_metadata(token, file_id = file_id, simplify = FALSE) #Retrieve actual file
+  expect_true(exists("file")) #It worked?
+  expect_true(is.list(file$labels)) #It didn't simplify things.
+})
+
+test_that("Retrieving metadata for a single simplified file works", {
+  file_id <- list_files(token, max_results = 1)$items[[1]]$id #Get file_id
+  file <- file_metadata(token, file_id = file_id, simplify = TRUE) #Retrieve actual file
+  expect_true(exists("file")) #It worked?
+  expect_false(is.list(file$labels)) #It didn't simplify things.
+})
+
+test_that("File copying works", {
+  file <- list_files(token, max_results = 1)$items[[1]] #Get the original file
+  copy_result <- copy_file(token, file_id = file$id) #Copy!
+  expect_that(paste0("Copy of ",file$title), equals(copy_result$title)) #Expect the title is "Copy of $FOO"
+  expect_that(file$mimeType, equals(copy_result$mimeType)) #Expect they have matching MIME types. Copies, right?
+})
+
+test_that("File trashing works", {
+  file_id <- list_files(token, max_results = 1)$items[[1]]$id #Get file_id
+  trash_result <- trash_file(token, file_id) #Trash
+  expect_true(trash_result) #It worked?
+  is_trashed <- list_files(token, max_results = 1)$items[[1]]$labels$trashed #Get trashed status
+  expect_true(is_trashed) #Which should be true.
+})
+
+test_that("File untrashing works", {
+  file_id <- list_files(token, max_results = 1)$items[[1]]$id #Get file_id
+  untrash_result <- untrash_file(token, file_id) #Untrash
+  expect_true(untrash_result) #Untrashing /claims/ to have worked?
+  is_trashed <- list_files(token, max_results = 1)$items[[1]]$labels$trashed #Get trashed status
+  expect_false(is_trashed) #Which should be false.
+})
+
+test_that("Modifying the metadata of an existing file works",{
+  file <- list_files(token, max_results = 1)$items[[1]] #Get the most recent file.
+  file$title <- "This isn't the greatest file in the wo-orld, no. This is a tribute."
+  result <- update_file_metadata(token, file)
+  expect_equal(result$title, "This isn't the greatest file in the wo-orld, no. This is a tribute.")
+})
+
+test_that("File deletion works",{
+  file <- list_files(token, max_results = 1)$items[[1]]$id #Get the most recent fileID.
+  result <- delete_file(token, file) #Of course, we just created it with "File copying works", so deleting it is fine.
+  expect_true(result)
+})
+
+test_that("File uploading works",{
+  file <- upload_file(token = token, file_path = system.file("test.jpeg", package = "driver"), title = "This is a test")
+  expect_equal(file$title, "This is a test")
+  expect_equal(file$mimeType, "image/jpeg")
+  result <- delete_file(token, file$id)
+  expect_true(result)
+})
+