From ff7e87ce67ab74e4485026b508b982cd903e83d2 Mon Sep 17 00:00:00 2001
From: Will Beasley <wibeasley@hotmail.com>
Date: Mon, 24 Feb 2020 17:23:27 -0600
Subject: [PATCH] tidy

ref #4
---
 tests/testthat/tests-get_file.R | 4 ++--
 tests/testthat/utils-manifest.R | 1 -
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/tests/testthat/tests-get_file.R b/tests/testthat/tests-get_file.R
index 4af59aa..08f28e8 100644
--- a/tests/testthat/tests-get_file.R
+++ b/tests/testthat/tests-get_file.R
@@ -3,7 +3,7 @@ context("Data Access API")
 # See https://demo.dataverse.org/dataverse/dataverse-client-r
 # https://doi.org/10.70122/FK2/FAN622
 
-test_that("download file from DOI and filename", {
+test_that("download tab from DOI and filename", {
   actual <- get_file(
     file = "roster-bulls-1996.tab",
     dataset = "doi:10.70122/FK2/FAN622"
@@ -12,7 +12,7 @@ test_that("download file from DOI and filename", {
   expect_true(1000 < object.size(actual)) # Should be 1+ KB
 })
 
-test_that("download file from file id", {
+test_that("download tab from file id", {
   actual <- get_file(
     file = 396357
   )
diff --git a/tests/testthat/utils-manifest.R b/tests/testthat/utils-manifest.R
index 2943ad3..3e80b11 100644
--- a/tests/testthat/utils-manifest.R
+++ b/tests/testthat/utils-manifest.R
@@ -14,7 +14,6 @@ retrieve_manifest <- function ( ) {
   d
 }
 # retrieve_manifest()
-# checkmate::assert_fi
 
 retrieve_file_expected <- function (subdataverse, file_name) {
   path <-